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:

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:

Nome Tipo Observações Retorna Valor
CprNCodEmp NÚMERO Código da empresa N
CprNCodFil NÚMERO Código da filial do contrato N
CprNNumCtr NÚMERO Número interno do contrato N
CprNCodFor NÚMERO Código do Fornecedor vinculado ao contrato N
CprNTipCtr NÚMERO Tipo de contrato N
CprATnsPro ALFA Código da transação de produto do contrato N
CprATnsSer ALFA Código da transação de serviço do contrato N
CprNVlrTot NÚMERO Valor total do contrato (na moeda da empresa) N
CprACodMoe ALFA Código da moeda base do título a pagar S
CprACodTpt ALFA Código do tipo do título a pagar S
CprATnsTit ALFA Código da transação origem do título a pagar S
CprAGerTit ALFA Indicativo se o contrato irá ou não gerar títulos ("S"-Sim ou "N"-Não, valor padrão assumido pelo sistema="S") S

Atenção

Caso o parâmetro global LisVarReg esteja habilitado, a variável ListaVariaveis estará disponível em todos os identificadores de regras do sistema. O conteúdo desta variável lista os campos disponibilizados no identificador de regras em questão.

Não é aconselhada a ativação desse parâmetro global para o uso cotidiano. Esse recurso de listagem dos campos de identificadores auxilia a construção de regras e o Suporte para, por exemplo, depuração ou quando não houver acesso à documentação dos identificadores de regras.

Este artigo ajudou você?