[firebase-br] Ajuda com sp (iniciante)

[Wayder Loyola]

Pessoal,

Estou iniciando e gostaria de ajuda para criar a seguinte SP:

Tabela MOVCXA
============
CXA_CODIGO,  DATA,    CTA_CODIGO,VALOR_CR,VALOR_CR
01                    01/01/06 01                          100,00
0,00
01                    01/01/06 01                            50,00
0,00
01                    01/01/06 02                          100,00
0,00
01                    01/01/06 03                              0,00
100,00

Tabela FLUXOCXA

CXA_CODIGO, CTA_CODIGO, CRDB, VALOR
01                    01                    C         150,00
01                    02                    C         100,00
01                    03                    D         100,00


Segue minha SP:

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;
    END
END


FB 1.5 + DELPHI 7.00


Flw

WLoyola