Identificador de Regra

CPR-460TITCT01

Módulo: CPR - Compras.

Finalidade: Gerar títulos no contas a pagar para todos os tipos de contratos de compra.

Características:

• Para maiores detalhes sobre a utilização do identificador deve-se ler a documentação do processo de geração de títulos via identificador no arquivo de ajuda da tela F460CTR.
• Ao utilizar este identificador de regras aconselha-se a criação de índice na tabela E501TCP para os campos FILCTR, NUMCTR, SEQIMO e SEQCGT.

Tela: F460CTR

Transação: Não se aplica.

Regra:

Não é necessário possuir regra no identificador, porém, o mesmo permite que sejam informados os seguintes campos via regra para geraçao dos títulos: Transação dos títulos, Tipo de título e Moeda, bem como ainda um indicativo se o contrato irá ou não gerar títulos.

Exemplo de regra:
Definir Alfa VCodEmp;
Definir Alfa VCodFil;
Definir Alfa VNumCtr;
Definir Alfa VCodFor;
Definir Alfa VVlrTot;
Definir Alfa VTipCtr;
Definir Alfa CprATnsPro;
Definir Alfa CprATnsSer;
Definir Alfa CprACodMoe;
Definir Alfa CprACodTpt;
Definir Alfa CprATnsTit;
Definir Alfa CprAGerTit;
Definir Alfa Quebra;
Definir Alfa StrAux;

inicio
RetornaAscii(13, Quebra);
IntParaAlfa(CprNCodEmp, VCodEmp);
IntParaAlfa(CprNCodFil, VCodFil);
IntParaAlfa(CprNNumCtr, VNumCtr);
IntParaAlfa(CprNCodFor, VCodFor);
IntParaAlfa(CprNVlrTot, VVlrTot);
IntParaAlfa(CprNTipCtr, VTipCtr);

Mensagem(Retorna,"DADOS ANTES DA ALTERAÇÃO.");
StrAux = "CprNCodEmp: " + VCodEmp + Quebra +
"CprNCodFil: " + VCodFil + Quebra +
"CprNNumCtr: " + VNumCtr + Quebra +
"CprNCodFor: " + VCodFor + Quebra +
"CprNTipCtr: " + VTipCtr + Quebra +
"CprATnsPro: " + CprATnsPro + Quebra +
"CprATnsSer: " + CprATnsSer + Quebra +
"CprNVlrTot: " + VVlrTot + Quebra +
"CprACodMoe: " + CprACodMoe + Quebra +
"CprACodTpt: " + CprACodTpt + Quebra +
"CprATnsTit: " + CprATnsTit + Quebra +
"CprAGerTit: " + CprAGerTit + Quebra +
"[&OK]";
Mensagem(Retorna,StrAux);

@altera os dados dos títulos a serem gerados@
CprATnsTit = "90503";
CprACodTpt = "01";
CprACodMoe = "01";
CprAGerTit = "S";

Mensagem(Retorna,"DADOS APÓS A ALTERAÇÃO.");
StrAux = "CprNCodEmp: " + VCodEmp + Quebra +
"CprNCodFil: " + VCodFil + Quebra +
"CprNNumCtr: " + VNumCtr + Quebra +
"CprNCodFor: " + VCodFor + Quebra +
"CprNTipCtr: " + VTipCtr + Quebra +
"CprATnsPro: " + CprATnsPro + Quebra +
"CprATnsSer: " + CprATnsSer + Quebra +
"CprNVlrTot: " + VVlrTot + Quebra +
"CprACodMoe: " + CprACodMoe + Quebra +
"CprACodTpt: " + CprACodTpt + Quebra +
"CprATnsTit: " + CprATnsTit + Quebra +
"CprAGerTit: " + CprAGerTit + Quebra +
"[&OK]";
Mensagem(Retorna,StrAux);
fim

Variáveis Disponibilizadas: