Fórum Comando quot;Suspendquot; em StoredProcedure #254391

DECLARE VARIABLE ATUAL FLOAT;
BEGIN
   SELECT QUANTIDADE FROM PRODUTOS WHERE CODIGO=:PRODUTO INTO :ATUAL;
   NEWQUANT = :ATUAL-:NQUANT;
   UPDATE PRODUTOS SET QUANTIDADE=:NEWQUANT WHERE CODIGO=:PRODUTO;
END

DECLARE VARIABLE TCODIGO INTEGER;

begin

   SELECT CODSUB FROM NOTAS WHERE DATA=:PDATA AND FORNECEDOR=:PFORNECEDOR INTO :TCODIGO;
   
   IF (TCODIGO > 1) THEN
   BEGIN
      SCODIGO = TCODIGO;
   END
   ELSE
   BEGIN
      INSERT INTO NOTAS (DATA,FORNECEDOR) VALUES (:PDATA,:PCLINICA);
         SELECT CODSUB FROM NOTAS WHERE DATA=:PDATA AND FORNECEDOR=:PFORNECEDOR INTO :SCODIGO;
   END
   
   SUSPEND;

end