Identificador de Regra

PAT-670BEMRE00

Módulo: PAT - Patrimônio.

Finalidade: Disponibilizar via regra os principais campos da tela antes de Inserir/Alterar, para que o usuário consista as informações da forma que desejar.

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
( 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 Inserido/Alterado!");

Variáveis Disponibilizadas: