Fórum Problemas com Stored Procedure #51787

criei a seguinte sp no firebird só que na hora que eu chamo ela, não da erro não acontece nada.

execute PROCEDURE SPGRARIT (515,3,7,2005,2,´1234569´,´2005/10/10´,´p´,12)



SET TERM @;
CREATE PROCEDURE SPGRARIT (ITEM INTEGER,QTDE SMALLINT, MESENT SMALLINT,ANOENT SMALLINT,DOCENT INTEGER,
LOTE VARCHAR(20),VALIDADE DATE,TIPOMOV CHAR(1),ARM SMALLINT)
RETURNS (ITEM1 INTEGER, SEQ1 INTEGER)

AS
DECLARE VARIABLE SEQ INTEGER;
DECLARE VARIABLE QTDE1 INTEGER;
BEGIN

SELECT MAX(SEQ) FROM GERASITE WHERE ITEM = :ITEM INTO :SEQ;

SEQ1 = :SEQ + 1;

WHILE (QTDE < QTDE1) DO
BEGIN
QTDE1 = QTDE1 + 1;
SEQ = SEQ + 1;
INSERT INTO GERASITE (ITEM,SEQ,MES_ENT,ANO_ENT,DOC_ENT,LOTE,VALIDADE,TIPO_MOV,ARM) VALUES
(:ITEM,:SEQ,:MESENT,:ANOENT,:DOCENT,:LOTE,:VALIDADE,:TIPOMOV,:ARM);

END
ITEM1 = :ITEM;
SUSPEND;
END;@

[color=green:ace0476125]Movido de Delphi para Interbase/Firebird[/color:ace0476125]