Histórico da Página
...
Bloco de código | ||
---|---|---|
| ||
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) |
Aviso |
---|
Esta fórmula deverá ser sempre criada dentro do contexto do TOTVS Gestão Financeira, visto que as informações bancárias estão presentes na tabela FLAN |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas