CREATE TABLE TESTTABLE (
    ID    INTEGER NOT NULL,
    VAL   NUMERIC(9,5) NOT NULL,
    VAL2  NUMERIC(9,2) NOT NULL,
    VAL3  NUMERIC(9,0) NOT NULL
);

COMMIT;

INSERT INTO TESTTABLE (ID, VAL, VAL2, VAL3)
               VALUES (1, 5, 5, 5);
INSERT INTO TESTTABLE (ID, VAL, VAL2, VAL3)
               VALUES (2, 5.5, 5.5, 6);
INSERT INTO TESTTABLE (ID, VAL, VAL2, VAL3)
               VALUES (3, 5.12345, 5.12, 5);
COMMIT;

EXECUTE BLOCK
AS
DECLARE VARIABLE ID INTEGER;
DECLARE VARIABLE VAL NUMERIC(9,5);
BEGIN
--    VAL = 5.0;-- Входит в цикл
    VAL = 5.5;-- Не входит в цикл

    FOR SELECT
        T.ID
    FROM
        TESTTABLE T
    WHERE
        T.VAL2 = :VAL
    INTO
        :ID
    DO
    BEGIN
        ID = :ID;
    END
END

CREATE OR ALTER PROCEDURE OPER$RECEIPT$RETURN (
    ID_RETURNED_RECEPT DECFLOAT(34) NOT NULL,
    ID_SOURCE DECFLOAT(34) NOT NULL,
    DATE_ACCOUNT DECFLOAT(34) NOT NULL,
    PAYMENT_ORDER DECFLOAT(34),
    COMMENT DECFLOAT(34))
AS
DECLARE VARIABLE ID_BATCH DECFLOAT(34);
DECLARE VARIABLE ID_RECEIPT DECFLOAT(34);
BEGIN

CREATE OR ALTER PROCEDURE OPER$RECEIPT$RETURN (
    ID_RETURNED_RECEPT DOM$KEY NOT NULL,
    ID_SOURCE DOM$KEY NOT NULL,
    DATE_ACCOUNT DOM$DATE NOT NULL,
    PAYMENT_ORDER DOM$NUMBER_PAYMENT_ORDER,
    COMMENT DOM$COMMENT)
AS
DECLARE VARIABLE ID_BATCH DOM$KEY;
DECLARE VARIABLE ID_RECEIPT DOM$KEY;
BEGIN