Identificador de Regra

PAT-670MCLRE01

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

Tela: F670MCL

Transação: Não se aplica.

Regra:

Definir Alfa PATATipAlt;
Definir Alfa PATASemMvt;
Definir Alfa PATACodBem;
Definir Alfa PATACodEsp;
Definir Alfa PATACtaRed;
Definir Alfa PATACodCcu;
Definir Alfa PATACodLoc;
Definir Alfa PATACodFil;
Definir Numero PATNGSelReg;
Definir Alfa PATAGCodBem;
Definir Numero PATNGCodTur;
Definir Data PATDGDatIac;
Definir Data PATDGDatFac;
Definir Data PATDGDatIag;
Definir Data PATDGDatFag;
Definir Data PATDGDatIin;
Definir Data PATDGDatFin;
Definir Data PATDGDatIig;
Definir Data PATDGDatFig;
Definir Alfa PATAGTipAcr;
Definir Numero PATNGCodFor;
Definir Alfa PATAGNomFor;
Definir Alfa PATAGRecPis;
Definir Alfa PATAGRecCof;
Definir Alfa PATAGRecCsl;
Definir Data PATDGDatLoc;
Definir Numero PATNGSeqLoc;
Definir Alfa PATAGNumPla;
Definir Alfa PATAGCodDep;
Definir Alfa PATAGPlaSeg;
Definir Numero PATNGEmpLoc;
Definir Numero PATNGFilEmp;
Definir Alfa PATAGCcuLoc;
Definir Alfa PATAGLcrLoc;
Definir Alfa PATAGPerEmp;
Definir Numero PATNGFilAqi;
Definir Numero PATNGFilLoc;
Definir Data PATDGDatEnt;
Definir Data PATDGDatAqi;
Definir Data PATDGDatIcl;
Definir Data PATDGDatIcg;
Definir Numero PATNGCtaRed;
Definir Numero PATNGTaxIof;
Definir Numero PATNGTaxIog;
Definir Numero PATNGRedBcl;
Definir Numero PATNGVlrBas;
Definir Numero PATNGVlrAqp;
Definir Numero PATNGVlrAqc;
Definir Numero PATNGVlrAql;
Definir Numero PATNGCorAcu;
Definir Numero PATNGVlrMco;
Definir Numero PATNGVlrMio;
Definir Numero PATNGVlrMgr;
Definir Numero PATNGVlrSeg;
Definir Numero PATNGDprAcu;
Definir Numero PATNGBprAcu;
Definir Numero PATNGBcrAcu;
Definir Numero PATNGBclAcu;
Definir Numero PATNGQtmPis;
Definir Numero PATNGQtmCof;
Definir Numero PATNGQtmCsl;
Definir Alfa PATAGCodCcu;
Definir Alfa PATAGCodLoc;
Definir Alfa PATAGLocRea;
Definir Numero PATNGCodPor;

se (( PATATipAlt = "Dados dos Bens") e ( PATASemMvt = "NAO") e
(PATACodBem = "CAPINTEG0001-000,CAPTESTA0001-000") e
( PATACtaRed = "2680,1300") e ( PATAGCodBem = "CAPINTEG0001-000"))
Mensagem(Erro,"Alteração não permitida!");

Variáveis Disponibilizadas: