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: