Stored Procedure com problemas

Question

Criei uma stored procedure e a mesma n�o est� funcionando da maneira que deveria, talvez por nunca ter feito uma em IB/FB eu deva ter feito algo errado.O Objetivo dela e checar de um registro pai tem ...

Ronaldo.cutu · Answer

EU TESTEI A SEGUINTE PROCEDURE E DEU CERTO

CREATE PROCEDURE DIVIDE_CONTROLE (
NR_CONTROLE INTEGER)
AS
DECLARE VARIABLE CONT1 INTEGER;
DECLARE VARIABLE NEW_CONTROL INTEGER;
DECLARE VARIABLE QTD_ITENS INTEGER;
DECLARE VARIABLE VAR_ITEM_NF INTEGER;
DECLARE VARIABLE VAR_CONTROLE_ITEM_NF INTEGER;
begin
/* Verifica se o controle possui mais de 10 itens */
SELECT count(*)
FROM nfsitem
WHERE controle = :nr_controle
INTO :qtd_itens;

/* Se a quantidade de itens for superior a 10, separa em outros controles */
IF (qtd_itens > 10) then
begin
cont1 = 1;
/* Seleciona os itens do controle */
for
SELECT item , controle
FROM nfsitem
WHERE controle = :nr_controle
AND item > 10
INTO :var_item_nf, :var_controle_item_nf
do begin

/* Se o contador for = 1, insere um novo controle */
if (cont1 = 1) then
begin
/* Pega novo controle */
new_control = GEN_ID(NFSCAB_CONTROLE,1);
/* Insere novo controle */
insert into nfscab
select :new_control, *RESTANTES DE SEUS CAMPOS*
from nfscab
where controle = :nr_controle;
end

/* Altera os itens do controle principal e joga o numero do novo controle */
update nfsitem set
item = :cont1
, controle = :new_control
where controle = :var_controle_item_nf
and item = :var_item_nf;

/* Se o contador for = 10, passa para 1, para criar novo controle */
if (cont1 = 10 ) then
cont1 = 1;
else
cont1 = cont1 + 1;
end
end
suspend;
end

F�rum Stored Procedure com problemas #51106