Fórum Diferença da Procedure MySQL x Firebird #559761

ALTER PROCEDURE ATUALIZA_ESTOQUE_ENTRADA (
    RCODENTRADA INTEGER)
AS
declare variable VCODENTRADA integer;
declare variable VCODCLIENTE integer;
declare variable VCODOBRA integer;
declare variable VCODPROD integer;
declare variable VQTDE float;
declare variable VVRUNITARIO numeric(15,2);
declare variable VTIPO char(1);
declare variable VSTATUS varchar(20);
begin

    FOR SELECT I.codentrada, I.codobra, I.codproduto, I.quantidade, I.vrunitario
    FROM ITENSENTRADA I
    WHERE I.codentrada = :rcodentrada
    INTO :vcodentrada, :vcodobra, :vcodprod, :vqtde, :vvrunitario do

    BEGIN
        vtipo = 'E';

        SELECT E.codcliente, e.status
        FROM ENTRADA e
        WHERE E.codentrada = :rcodentrada
        INTO :vcodcliente, :vstatus;

        if (:vstatus = 'ABERTA' or :vstatus = 'FINALIZADA') then exit;
        else
        begin
          UPDATE entrada e
          SET e.status = 'FINALIZADA'
          WHERE E.codentrada = :rcodentrada;

          UPDATE PRODUTO P SET
          P.estoque = P.estoque + :vqtde,
          P.vrunitario = :vvrunitario
          WHERE P.codproduto = :vcodprod;


          INSERT INTO HISTORICOCLIENTES(CODMOV, CODCLIENTE, CODPRODUTO, QTDE, CODOBRA, TIPO) VALUES (:vcodentrada, :vcodcliente, :vcodprod, :vqtde, :vcodobra, :vtipo);
          INSERT INTO HISTORICOPRODUTO (CODMOV, CODOBRA, CODCLIENTE, CODPROD, QTDE, VALOR, TIPO) VALUES (:vcodentrada, :vcodobra, :vcodcliente, :vcodprod, :vqtde, :vvrunitario, :vtipo);
         end

    END
END^