Definir Numero IMPACODEMP;
Definir Numero IMPACODFIL;
Definir Numero IMPNVLRAJS;

Definir Data IMPDDATINI;
Definir Data IMPDDATFIM;

Definir Cursor Cur_E660NFV;
Definir Cursor Cur_E660NFC;

Definir Numero TotalDev;
Definir Numero TotalEnt;

@Nota de devolução@

Cur_E660NFV.Sql" select \
            vlrdai \
            from \
            e660nfv \
            where \
            codemp= :IMPACODEMP and \
            codfil= :IMPACODFIL and \
            codtns= '6556' and \
            Datemi>= :IMPDDATINI and \
            datemi<= :IMPDDATFIM";
  
Cur_E660NFV.AbrirCursor();

Enquanto (Cur_E660NFV.Achou)
Inicio
TotalDev =  Cur_E660NFV.vlrdai;
Cur_E660NFV.Proximo();
Fim;

Cur_E660NFV.FecharCursor();

@Nota de entrada@

Cur_E660NFC.Sql"select \
                vlrdai \
                from \
                e660nfc \
                where \
                codemp= :IMPACODEMP and \
                codfil= :IMPACODFIL and \
                codtns in ('2556','2352') and \
                Datent>= :IMPDDATINI and \
                datent<= :IMPDDATFIM"
                
Cur_E660NFC.AbrirCursor();

Enquanto (Cur_E660NFC.Achou)
Inicio
TotalEnt = Cur_E660NFC.vlrdai;
Cur_E660NFC.Proximo();
Fim;

Cur_E660NFC.FecharCursor();

@Alimentando a variavel@

IMPNVLRAJS= ( TotalEnt - TotalDev);

Depura++;