Identificador de Regra

CPR-410CONLI01

Módulo: CPR - Compras.

Finalidade: Efetuar consistências na inserção, alteração ou exclusão das informações da licitação.

Todos os campos utilizados na tela F410LIC estão disponíveis.

Características: O identificador é executado no processamento (inclusão e alteração) e na exclusão das informações da licitação.

Tela: F410LIC

Transação: Não se aplica.

Regra:

Definir Alfa VCprNCodEmp; @Código da empresa@
Definir Alfa VCprNNumPct; @Número do processo de cotação de preço@
Definir Alfa VCprNCodMod; @Código da modalidade@
Definir Alfa VCprDDatAbe; @Data de abertura do processo@
Definir Alfa VCprDDatPub; @Data de publicação@
Definir Alfa VCprDDatHom; @Data de homologação@
Definir Alfa CprATipCpr; @Indicativo se a compra é direta ou via licitação@
Definir Alfa CprAPrcPct; @Processo@
Definir Alfa CprAObjLic; @Objeto da Licitação@
Definir Alfa CprACtrOfi; @Contrato oficial@
Definir Alfa CprAAtaRpr; @Ata de registro de preço@
Definir Alfa CprAComJul; @Comissão julgadora@
Definir Alfa CprAEstado; @Estado do processo (INSERINDO, ALTERANDO ou EXCLUINDO)@
Definir Alfa Quebra;
Definir Alfa StrAux;

inicio

RetornaAscii(13, Quebra);
IntParaAlfa(CprNCodEmp, VCprNCodEmp);
IntParaAlfa(CprNNumPct, VCprNNumPct);
IntParaAlfa(CprNCodMod, VCprNCodMod);
ConverteMascara(3,CprDDatAbe, VCprDDatAbe, "DD/MM/YYYY");
ConverteMascara(3,CprDDatPub, VCprDDatPub, "DD/MM/YYYY");
ConverteMascara(3,CprDDatHom, VCprDDatHom, "DD/MM/YYYY");

StrAux = "CodEmp: " + VCprNCodEmp + Quebra +
"NumPct: " + VCprNNumPct + Quebra +
"CodMod: " + VCprNCodMod + Quebra +
"DatAbe: " + VCprDDatAbe + Quebra +
"DatPub: " + VCprDDatPub + Quebra +
"DatHom: " + VCprDDatHom + Quebra +
"TipCpr: " + CprATipCpr + Quebra +
"PrcPct: " + CprAPrcPct + Quebra +
"ObjLic: " + CprAObjLic + Quebra +
"CtrOfi: " + CprACtrOfi + Quebra +
"AtaRpr: " + CprAAtaRpr + Quebra +
"ComJul: " + CprAComJul + Quebra +
"Estado: " + CprAEstado + Quebra +
"[&OK]";
Mensagem(Retorna,StrAux);
fim

Variáveis Disponibilizadas: