[firebase-br] Ajuda com sp (iniciante)

Danilo Miranda danilomibr em gmail.com
Dom Ago 10 11:45:20 -03 2008


Olá,  parece que está faltando um SUSPEND na sua proc.

BEGIN
   vvlr_total = 0;
   FOR SELECT CXA_CODIGO,CTA_CODIGO,CRDB,VALOR_CR,VALOR_DB
       FROM   MOVCXA
       INTO   :vcxa_codigo,:vcta_codigo,:vcrdb,:vvalor_cr,:vvalor_db
   DO BEGIN
       SELECT cta_codigo
       FROM   Tmp_RecDesp
       WHERE  Cxa_Codigo = :vcxa_codigo  and
              Cta_Codigo = :vcta_codigo
       ORDER BY Cxa_Codigo,Cta_Codigo
       INTO   :vctacxa;
       if (:vcrdb = 'C') then begin
           vvlr_total  = :vvalor_cr;
       end
       if(:vcrdb = 'D') then begin
           vvlr_total  = :vvalor_db;
       end
       if (:vctacxa is null) then begin
           INSERT INTO TMP_RECDESP
VALUES(:vcxa_codigo,:vcta_codigo,'',:vcrdb,:vvlr_total);
       end
       UPDATE tmp_recdesp SET
             VLR_TOTAL  = VLR_TOTAL + :vvlr_total
       WHERE CXA_CODIGO = :vcxa_codigo
       AND   CTA_CODIGO = :vCta_codigo;

suspend; --AQUI O SUSPEND.

   END
END

Abraços

-- 
Atenciosamente

Danilo Miranda
http://www.danilomiranda.com.br



Mais detalhes sobre a lista de discussão lista