Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  • Fórmula do cálculo do Código de Barras (Protheus): Este parâmetro possibilitará definir uma fórmula, que será utilizada para calcular o código de barras dos títulos disponiveis para pagamento no Protheus. Seguem algumas considerações sobre este parâmetro.
    • Esta opção somente estará disponível em ambientes cuja integração com o EAI1 esteja ativa e configurada;
    • Caso exista configuração ativa porém ainda sem uma fórmula definida nestes parâmetros, o Meu Imóvel não permitirá a cópia do código de barras;
    • Somente lançamentos cujo status da remessa seja igual a registrado ou remetido serão exibidos na visão de boletos do Meu imóvel;
    • Da mesma forma, somente lançamentos em aberto ou baixados parcialmente poderão ter seu código de barras copiado;

Exemplo de fórmula que calculará o código de barras / IPTE num ambiente integrado com o Protheus

Bloco de código
languagec#
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
   SetVar(CODBARRAS,MONTACODIGOBARRASBRADESCO(VALOR, NUMBANCO, NUMAGENCIA, NUMCONTA, CARTEIRA, NOSSONUMERO, TABLAN('DATAVENCIMENTO','D'),0));
Senao 
 se (NUMBANCO = 104) Entao
   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)

Neste exemplo, a consulta SQL que utilizamos é a seguinte:



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