Identificador de Regra
CRE-301MORALLB
Módulo: CRE - Contas a Receber.
Finalidade: personalizar o recebimento dos links de boletos. É acionado quando o web service de alteração parcial de títulos (com.senior.g5.co.mfi.cre.titulos, porta AlteracaoParcialTitulosCR) altera o link de boleto de um título. Lembrando que, se houver algum erro na regra, o processo de alteração é cancelado e o web service retorna um alerta.
Transação: não se aplica.
Regra:
Possui as variáveis de entradas preenchidas conforme exemplo de regra abaixo. Não possui variáveis de retorno/saída.
@ Variáveis de entrada da regra @
Definir Numero VSNUMNFV;
Definir Numero VSCODEMP;
Definir Numero VSCODFIL;
Definir Alfa VSCODSNF;
Definir Alfa VSLinkBoleto;
@ A variável E301TCR.XXXXXX vem carregada com QUASE todos os dados da tabela E301TCR@
@ A variável E140NFV.XXXXXX vem carregada com todos os dados da tabela E140NFV (se houver relacionamento entre o título e uma nota de venda) @
@ A variável E140PAR.XXXXXX vem carregado com todos os dados da tabela E140PAR (se houver relacionamento entre o título e uma parcela da nota de venda) @
@ Não existem variáveis de saída/retorno na regra. @
@ ***************************** Exemplo Regra *********************************@
Definir Alfa vAux1;
Definir Alfa vAux2;
Definir Alfa vAux3;
Definir Alfa vAux4;
@ Emxemplo de como usar a chave da nota @
Definir Alfa vChaveDaNota;
IntParaAlfa(VSCODEMP, vAux1);
IntParaAlfa(VSCODFIL, vAux2);
IntParaAlfa(VSNUMNFV, vAux3);
vChaveDaNota = vAux1 + vAux2 + vAux3 + VSCODSNF;
@ Exemplo de como usar os dados do título @
Definir Alfa vDadosDoTitulo;
IntParaAlfa(E301TCR.CodEmp, vAux1);
IntParaAlfa(E301TCR.CodFil, vAux2);
vDadosDoTitulo = vAux1 + vAux2 + E301TCR.NumTit + E301TCR.CodTpt;
@ Exemplo de como usar os dados da nota fiscal @
Definir Alfa vDadosDaNota;
IntParaAlfa(E140NFV.CodEmp, vAux1);
IntParaAlfa(E140NFV.CodFil, vAux2);
IntParaAlfa(E140NFV.NumNfv, vAux3);
vDadosDaNota = vAux1 + vAux2 + vAux3 + E140NFV.CodSnf;
@ Exemplo de como usar os dados da parcela associada ao título @
Definir Alfa vDadosDaParcela;
IntParaAlfa(E140PAR.CodEmp, vAux1);
IntParaAlfa(E140PAR.CodFil, vAux2);
IntParaAlfa(E140PAR.NumNfv, vAux3);
IntParaAlfa(E140PAR.CodPar, vAux4);
vDadosDaParcela = vAux1 + vAux2 + vAux3 + E140PAR.codsnf + vAux4;
English
Español
English
Español


