Histórico da Página

Decl VALOR, NUMBANCO, NUMAGENCIA, NUMCONTA, NOSSONUMERO, CARTEIRA, CODBARRAS, numConvenio, codigoCedente, digitoCedente, numeroDocumento;
EXECSQL('FÓRMULA_PROTHEUS');

SetVar(VALOR,ResultSQL("FÓRMULA_PROTHEUS","VALOR"));
SetVar(NUMBANCO,ResultSQL("FÓRMULA_PROTHEUS","NUMBANCO"));
SetVar(NUMAGENCIA,ResultSQL("FÓRMULA_PROTHEUS","NUMAGENCIA"));
SetVar(NUMCONTA,ResultSQL("FÓRMULA_PROTHEUS","NROCONTA"));
SetVar(CARTEIRA,ResultSQL("FÓRMULA_PROTHEUS","CARTEIRA"));
SetVar(NOSSONUMERO,ResultSQL("FÓRMULA_PROTHEUS","NOSSONUMERO"));
SetVar(NOSSONUMERO,ResultSQL("FÓRMULA_PROTHEUS","NOSSONUMERO"));

se (NUMBANCO = 237) Entao
   MONTACODIGOBARRASBRADESCO SetVar(CODBARRAS,MONTACODIGOBARRASBRADESCO(VALOR, NUMBANCO, NUMAGENCIA, NUMCONTA, CARTEIRA, NOSSONUMERO, TABLAN('DATAVENCIMENTO','D'),0) );
Senao 
 se (NUMBANCO = 104) Entao
   MONTACODIGOBARRASCAIXA SetVar(CODBARRAS,MONTACODIGOBARRASCAIXA(VALOR, NUMBANCO, numConvenio, NUMAGENCIA, codigoCedente, digitoCedente, CARTEIRA, NOSSONUMERO, TABLAN('DATAVENCIMENTO','D'))) ;
 Senao 
   se (NUMBANCO = 341) Entao
        SetVar(CODBARRAS,MONTACODIGOBARRASITAU(VALOR, NUMBANCO, NUMCONTA, NUMAGENCIA, codigoCedente, CARTEIRA, NOSSONUMERO, numeroDocumento, TABLAN('DATAVENCIMENTO','D')));
   FimSe
 FimSe
FimSe

MONTAIPTE(CODBARRAS)