Identificador de Regra

CPR-460OBSLI01

Módulo: CPR - Compras.

Finalidade: Herdar informações da licitação para as observações de um contrato de compra quando da geração do mesmo via ordem de compra.

Características: - Será gerada uma observação automática na tabela E460OBS com o seguinte texto:

"Contrato gerado a partir de uma ordem de compra gerada a partir de um processo de licitação. Processo de cotação: XX", sendo que esta observação pode ser alterada via regra conforme a necessidade.

Tela: F460CTR, F460PFO

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 CprAObsOcp; @Observação a ser gravada@
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");

@Altera a observação@
CprAObsOcp = CprAObsOcp + " / Modalidade: " + VCprNCodMod;
CprAObsOcp = CprAObsOcp + " / Publicação: " + VCprDDatPub;
CprAObsOcp = CprAObsOcp + " / Homologação: " + VCprDDatHom;
CprAObsOcp = CprAObsOcp + " / Contrato oficial: " + CprACtrOfi;
CprAObsOcp = CprAObsOcp + " / Comissão julgadora: " + CprAComJul;

@Exibe mensagem de teste para visualização dos dados disponíveis na regra@
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 +
"ObsOcp: " + CprAObsOcp + Quebra +
"[&OK]";
Mensagem(Retorna,StrAux);
fim

Variáveis Disponibilizadas: