Identificador de Regra

CPR-440CONID01

Módulo: CPR - Compras.

Finalidade: Efetuar a consistência do campo E440NFC.IDENFC (identificador único da nota fiscal do fornecedor) durante a digitação do campo e no fechamento da nota fiscal. Este identificador substitui a consistência padrão do sistema, passando para a regra a responsabilidade de consistência do campo.

Característica: A consistência ocorre através de uma mensagem de erro executada pela regra.

Tela: F440GNE

Transação: Não se aplica.

Regra:

@ Variáveis padrão do identificador @
Definir Numero VSCodEmp;
Definir Numero VSCodFil;
Definir Numero VSCodFor;
Definir Numero VSNumNfc;
Definir Alfa VSCodSnf;
Definir Alfa VSIdeNfc;

@ Variáveis Personalizadas @
Definir Numero xCODEMP;
Definir Numero xCODFIL;
Definir Numero xCODFOR;
Definir Numero xNUMNFC;
Definir Alfa xCODSNF;
Definir Alfa xIDENFC;
xCODEMP = VSCodEmp;
xCODFIL = VSCodFil;
xNUMNFC = VSNumNfc;
xCODFOR = VSCodFor;
xCODSNF = VSCodSnf;
xIDENFC = VSIdeNfc;

@----- BUSCA OUTRAS NOTAS COM O MESMO IDENFC(CONSISTÊNCIA PADRÃO) -----@
Definir cursor xCur_IdeNfc;
Definir alfa xMsg;
Definir alfa xCodForAux;
IntParaAlfa(VSCodFor, xCodForAux);
xCur_IdeNfc.SQL "SELECT NUMNFC FROM E440NFC WHERE CODFOR= :xCODFOR AND IDENFC= :xIDENFC AND \
NOT(CODEMP= :xCODEMP AND CODFIL= :xCODFIL AND CODFOR= :xCODFOR AND NUMNFC= :xNUMNFC AND CODSNF= :xCODSNF)";
xCur_IdeNfc.Abrircursor();
Se(xCur_IdeNfc.Achou)
inicio
xMsg="Identificador único "VSIdeNfc" da nota fiscal do fornecedor "xCodForAux" já cadastrado.";
Mensagem(Erro, xMsg);
fim;
xCur_IdeNfc.fecharcursor();

Variáveis Disponibilizadas:

Nome Tipo Observações Retorna Valor
VSCodEmp NÚMERO Código da empresa N
VSCodFil NÚMERO Código da filial N
VSCodFor NÚMERO Código do fornecedor da nota fiscal de entrada N
VSNumNfc NÚMERO Número da nota fiscal de entrada N
VSCodSnf ALFA Código da série da nota fiscal de entrada N
VSTipNfe NÚMERO Tipo de nota fiscal de entrada N
VSCodSel ALFA Código da Série Legal da nota fiscal de entrada N
VSCodSsl ALFA Código da Subsérie Legal da nota fiscal de entrada N
VSIdeNfc ALFA Identificador único da nota fiscal do fornecedor N

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ê?