Identificador de Regra

CPR-440DIVRL01

Módulo: CPR - Compras.

Finalidade: Personalizar uma tabela com eventuais divergências, ou qualquer outra necessidade.

Características: O identificador será executado tantas vezes quantas forem as ligações efetuadas no processamento.

Tela: F440REL

Transação: Não se aplica.

Regra:

Definir Alfa VCprNCodEmp;
Definir Alfa VCprNCodFil;
Definir Alfa VCprACodFor;
Definir Alfa VCprANumNfc;
Definir Alfa VCprNSeqIpc;
Definir Alfa VCprNSeqIsc;
Definir Alfa VCprNNumOcp;
Definir Alfa VCprNSeqIpo;
Definir Alfa VCprNSeqIso;

Definir Alfa CprACodSnf;

Definir Alfa Quebra;
Definir Alfa StrAux;

inicio

RetornaAscii(13, Quebra);

IntParaAlfa(CprNCodEmp, VCprNCodEmp);
IntParaAlfa(CprNCodFil, VCprNCodFil);
IntParaAlfa(CprACodFor, VCprACodFor);
IntParaAlfa(CprANumNfc, VCprANumNfc);
IntParaAlfa(CprNSeqIpc, VCprNSeqIpc);
IntParaAlfa(CprNSeqIsc, VCprNSeqIsc);
IntParaAlfa(CprNNumOcp, VCprNNumOcp);
IntParaAlfa(CprNSeqIpo, VCprNSeqIpo);
IntParaAlfa(CprNSeqIso, VCprNSeqIso);

StrAux =
"CprNCodEmp: " + VCprNCodEmp + Quebra +
"CprNCodFil: " + VCprNCodFil + Quebra +
"CprACodFor: " + VCprACodFor + Quebra +
"CprANumNfc: " + VCprANumNfc + Quebra +
"CprACodSnf: " + CprACodSnf + Quebra +
"CprNSeqIpc: " + VCprNSeqIpc + Quebra +
"CprNSeqIsc: " + VCprNSeqIsc + Quebra +
"CprNNumOcp: " + VCprNNumOcp + Quebra +
"CprNSeqIpo: " + VCprNSeqIpo + Quebra +
"CprNSeqIso: " + VCprNSeqIso + Quebra +
"[&OK]";
Mensagem(Retorna,StrAux);

XX = 0;
fim

Variáveis Disponibilizadas: