Identificador de Regra

PAT-670BEMRE02

Módulo: PAT - Patrimônio.

Finalidade: disponibilizar, via regra, os principais campos da tela antes de excluir um registro. Isto a fim de que o usuário consista/valide as informações como preferir.

Tela: F670BEM.

Transação: não se aplica.

Regra:

Definir Alfa PATACodBem;
Definir Alfa PATADesBem;
Definir Alfa PATACodTns;
Definir Numero PATNCodEsp;
Definir Numero PATNQtdItm;
Definir Numero PATNCodTur;
Definir Numero PATNFilAqi;
Definir Numero PATNFilLoc;
Definir Data PATDDatEnt;
Definir Data PATDDatAqi;
Definir Data PATDDatIcl;
Definir Data PATDDatIcg;
Definir Alfa PATATipAcr;
Definir Numero PATNCtaRed;
Definir Numero PATNCodFor;
Definir Alfa PATANomFor;
Definir Numero PATNTaxIof;
Definir Numero PATNTaxIog;
Definir Numero PATNRedBcl;
Definir Numero PATNVlrBas;
Definir Numero PATNCorAcu;
Definir Numero PATNCdpAcu;
Definir Numero PATNVlrMco;
Definir Numero PATNVlrMio;
Definir Numero PATNVlrMgr;
Definir Numero PATNVlrSeg;
Definir Numero PATNDprAcu;
Definir Alfa PATASitPat;
Definir Alfa PATATrfOrg;
Definir Alfa PATABemAgp;
Definir Numero PATNCodMot;
Definir Alfa PATAObsMot;
Definir Numero PATNUsuGer;
Definir Data PATDDatGer;
Definir Alfa PATAHorGer;

 se (( PATACodBem = "CAPWAGNE0002-000") e ( PATADesBem = "TESTE WAGNER") e
     ( PATACodTns = "90800") e ( PATNCodEsp = 6) e ( PATNQtdItm = 1) e 
     ( PATNCodTur = 0) e ( PATNFilAqi = 1) e ( PATNFilLoc = 1) e ( PATDDatEnt = 39090) e 
     ( PATDDatAqi = 39090) e ( PATDDatIcl = 39082) e ( PATDDatIcg = 39082) e 
     ( PATNCtaRed = 2680) e ( PATNCodFor = 1) e ( PATNCdpAcu = 10) e
     ( PATNVlrMgr = 100) e ( PATNVlrSeg = 1) e ( PATASitPat = "I") e
     ( PATAObsMot = "teste 670Bem") e ( PATNUsuGer = 32) e ( PATDDatGer = 39090) e
     ( PATAHorGer = "11:04"))
     Mensagem(Erro,"Este Bem não pode ser excluido!");

Variáveis disponibilizadas: