Identificador de Regra

Definir alfa CPRSCORPOE; /*CORPO DO EMAIL*/
Definir alfa CPRSREMETE; /*REMETENTE*/
Definir alfa CPRSASSUNT; /*ASSUNTO*/
Definir alfa CPRSDESTIN; /*DESTINO*/
Definir numero CPRNCODEMP; /*EMPRESA DO CONTRATO*/
Definir numero CPRNCODFIL; /*FILIAL DO CONTRATO*/
Definir numero CPRNNUMCTR; /*NÚMERO DO CONTRATO*/

Definir alfa xCODEMP;
Definir alfa xCODFIL;
Definir alfa xNUMCTR;

Definir Alfa aEnter;
RetornaAscII (13, aEnter);

IntParaAlfa( CPRNCODEMP, XCODEMP);
IntParaAlfa( CPRNCODFIL, xCODFIL);
IntParaAlfa( CPRNNUMCTR, xNUMCTR);


CPRSCORPOE = CPRSCORPOE + aEnter+ aEnter+
"-------INFORMAÇÕES------- "+ aEnter+
"Remetente: " + CPRSREMETE +aEnter+
"Assunto: " + CPRSASSUNT +aEnter+
"Destino: " + CPRSDESTIN +aEnter+
"Empresa: " + XCODEMP+ aEnter+
"Filial: " + XCODFIL+ aEnter+
"Contrato de Compra: "+XNUMCTR;