Identificador de Regra

PAT-670LOTRE01

Módulo: PAT - Patrimônio.

Finalidade: Disponibiliza via regra os principais campos da tela ao processar cada registro, para que o usuário consista as informações da forma que desejar.

Características: As variáveis disponibilizadas para regra serão somente as visíveis na tela durante a execução.
As variáveis com iniciais "PAT" + "TIPO (N,A,D)" + "G" são variáveis de campos de grade e serão disponibilizadas para regra somente quando estiverem visíveis na grade durante a execução. Ex: PATACodBem.

Tela: F670LOT

Transação: Não se aplica.

Regra:

Definir Numero PATNQtdGer;
Definir Alfa PATADesBem;
Definir Numero PATNCodFor;
Definir Alfa PATANomFor;
Definir Alfa PATAEspDoc;
Definir Alfa PATACodSnf;
Definir Numero PATNNumDoc;
Definir Numero PATNCodEsp;
Definir Alfa PATACodTns;
Definir Numero PATNFilAqi;
Definir Numero PATNFilLoc;
Definir Data PATDDatEnt;
Definir Data PATDDatAqi;
Definir Data PATDDatIcl;
Definir Data PATDDatIcg;
Definir Alfa PATATelLoc;
Definir Numero PATNCtaRed;
Definir Alfa PATACodCcu;
Definir Alfa PATATipDes;
Definir Data PATDDatGar;
Definir Numero PATNCodTur;
Definir Alfa PATARecPis;
Definir Numero PATDQtmPis;
Definir Alfa PATARecCof;
Definir Numero PATNQtmCof;
Definir Alfa PATARecCsl;
Definir Numero PATNQtmCsl;
Definir Alfa PATATipAcr;
Definir Numero PATNVlrBas;
Definir Numero PATNTaxIof;
Definir Numero PATNTaxIog;
Definir Numero PATNRedBcl;
Definir Numero PATNVlrSeg;
Definir Numero PATNVlrAqp;
Definir Numero PATNVlrAqc;
Definir Numero PATNVlrAql;
Definir Alfa PATAGCodBem;
Definir Alfa PATAGDesBem;
Definir Numero PATNGCodEsp;
Definir Alfa PATAGCodTns;
Definir Data PATDGDatEnt;
Definir Data PATDGDatAqi;
Definir Data PATDGDatIcl;
Definir Data PATDGDatIcg;
Definir Numero PATNGVlrBas;
Definir Numero PATNGVlrAqp;
Definir Numero PATNGVlrAqc;
Definir Numero PATNGVlrAql;
Definir Numero PATNGFilAqi;
Definir Numero PATNGFilLoc;
Definir Numero PATNGCtaRed;
Definir Alfa PATAGCodCcu;
Definir Alfa PATAGTipDes;
Definir Numero PATNGTaxIof;
Definir Numero PATNGTaxIog;
Definir Numero PATNGRedBcl;
Definir Numero PATNGCodFor;
Definir Alfa PATAGNomFor;
Definir Alfa PATAGCodSnf;
Definir Numero PATNGNumDoc;
Definir Alfa PATAGEspDoc;
Definir Numero PATNGVlrSeg;
Definir Data PATDGDatGar;
Definir Numero PATNGCodTur;
Definir Alfa PATAGTipAcr;
Definir Alfa PATAGRecPis;
Definir Numero PATNGQtmPis;
Definir Alfa PATAGRecCof;
Definir Numero PATNGQtmCof;
Definir Alfa PATAGRecCsl;
Definir Numero PATNGQtmCsl;


se (( PATDDatEnt = 39195) e ( PATDDatAqi = 39195) e ( PATDDatIcl = 39173) e
( PATDDatIcg = 39173) e ( PATATelLoc = "SIM" ) e ( PATNCtaRed = 6030))
se (( PATAGCodBem = "INFNOTEB0001-002") e ( PATNGCodEsp = 5) e
( PATAGTipAcr = "C") e ( PATAGRecPis = "N") e ( PATAGRecCof = "N") e
( PATAGRecCsl = "N"))
Mensagem(Erro,"Processamento não permitido!");

Variáveis Disponibilizadas: