Identificador de Regra

PAT-670MANRE01

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 apenas 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.
O campo PAGNGSelEci indica se a linha do Grid esta selecionada (indica se o registro será processado).

Tela: F670MAN

Transação: Não se aplica.

Regra:

Definir Data PATDDatRef;
Definir Alfa PATACodTns;
Definir Alfa PATACodBem;
Definir Alfa PATACodCcu;
Definir Alfa PATACtaRed;
Definir Alfa PATACodPri;
Definir Alfa PATACodLoc;
Definir Alfa PATACodPor;
Definir Alfa PATACodFil;
Definir Alfa PATACodEsp;
Definir Alfa PATACSomenteAcr;
Definir Alfa PATADesBem;
Definir Numero PATNGSelEci;
Definir Alfa PATAGCodBem;
Definir Alfa PATAGCodLoc;
Definir Alfa PATAGLocRea;
Definir Alfa PATAGSerDoc;
Definir Numero PATNGDocMov;
Definir Alfa PATAGObsMov;
Definir Alfa PATACAcrBemPrincipal;
Definir Numero PATNGTaxIof;
Definir Numero PATNGTaxIog;
Definir Numero PATNGNovTaxIof;
Definir Numero PATNGNovTaxIog;
Definir Numero PATNGCtaRed;
Definir Numero PATNGCtaNov;
Definir Numero PATNGCodEsp;
Definir Numero PATNGEspNov;
Definir Data PATDGDatTrf;
Definir Alfa PATAGBemNov;
Definir Numero PATNGQtdItm;
Definir Alfa PATAGNumPla;
Definir Numero PATNGQtdTrf;
Definir Data PATDGDatRet;
Definir Numero PATNGFilLoc;
Definir Numero PATNGFilNov;
Definir Alfa PATAGSnfNfv2;
Definir Numero PATNGNumNfv2;
Definir Numero PATNGSeqIpv2;
Definir Numero PATNGSeqIsv2;
Definir Alfa PATAGSnfNfv;
Definir Numero PATNGNumNfv;
Definir Numero PATNGSeqIpv;
Definir Numero PATNGSeqIsv;
Definir Alfa PATAGCodPri;
Definir Alfa PATAGLocNov;
Definir Data PATDGDatBai;
Definir Numero PATNGQtdBai;
Definir Numero PATNGVlrVen;
Definir Numero PATNGVlrDes;
Definir Numero PATNGVlrBas;
Definir Numero PATNGVlrAtu;
Definir Numero PATNGPerDes;
Definir Alfa PATAGNdeBem;
Definir Alfa PATAGBemAgp;
Definir Data PATDGDatRea;
Definir Numero PATNGQtmPis;
Definir Numero PATNGPisNov;
Definir Numero PATNGQtmCof;
Definir Numero PATNGCofNov;
Definir Numero PATNGQtmCsl;
Definir Numero PATNGCslNov;
Definir Numero PATNGCodPor;
Definir Numero PATNGPorNov;

se (( PATDDatRef = 39203) e ( PATACodTns = "90802") e ( PATACodCcu = "1101") e
( PATACtaRed = "2680") e ( PATACodFil = "1") e ( PATACodEsp = "6") e
( PATACSomenteAcr = "NAO" ) e ( PATAGCodBem = "CAPINTEG0001-001") e
( PATNGDocMov = 1))
Mensagem(Erro,"Processamento não permitido!");

Variáveis Disponibilizadas: