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;