Identificador de Regra

definir alfa CprABxaGrp;

definir numero CprNCodEmp;

definir numero CprNCodFil;

definir numero CprNCodFor;

definir alfa ChaA_S_N;

definir Numero CprNListPro;

definir numero SeqCcp;

definir alfa CodPro;

definir alfa CodDer;

definir numero PreUni;

definir numero QtdCcp;

ChaA_S_N = "N";

ListaRegraPrimeiro(CprNListPro, ChaA_S_N);

Enquanto(ChaA_S_N = "S"){

ListaRegraObterValorNumero(CprNListPro, "SeqCcp", SeqCcp, ChaA_S_N);

ListaRegraObterValorAlfa(CprNListPro, "CodPro", CodPro, ChaA_S_N);

ListaRegraObterValorAlfa(CprNListPro, "CodDer", CodDer, ChaA_S_N);

ListaRegraObterValorNumero(CprNListPro, "PreUni", PreUni, ChaA_S_N);

ListaRegraObterValorNumero(CprNListPro, "QtdCcp", QtdCcp, ChaA_S_N);

 

ListaRegraProximo(CprNListPro, ChaA_S_N);

}

CprABxaGrp = 'S';