Identificador de Regra

CTB-650AJURE01

Módulo: CTB - Contabilidade.

Finalidade: Disponibilizar 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 que estiverem visíveis na tela durante a execução.
As variáveis com iniciais "CTB" + "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: CTBNGNumLct.

Tela: F650AJU

Transação: Não se aplica.

Regra:

Definir Alfa CTBAModAju;
Definir Alfa CTBABasAju;
Definir Alfa CTBAAbgFil;
Definir Alfa CTBAAbgAfi;
Definir Alfa CTBAAbgGcc;
Definir Alfa CTBAAbgCta;
Definir Alfa CTBAFecCan;
Definir Alfa CTBALotFil;
Definir Alfa CTBACtaAju;
Definir Numero CTBNCtaDeb;
Definir Numero CTBNCtaCre;
Definir Alfa CTBANatOri;
Definir Alfa CTBAAjuOri;
Definir Alfa CTBAAjuCpa;
Definir Numero CTBNCodHpd;
Definir Alfa CTBACplLct;
Definir Data CTBDMesAno;
Definir Data CTBDDatLct;
Definir Alfa CTBACodMoeInd;
Definir Numero CTBNVlrCotInd;
Definir Data CTBDDatMoeInd;
Definir Alfa CTBACodMoeVa1;
Definir Numero CTBNVlrCotVa1;
Definir Data CTBDDatMoeVa1;
Definir Alfa CTBACodMoeVa2;
Definir Numero CTBNVlrCotVa2;
Definir Data CTBDDatMoeVa2;
Definir Numero CTBNArrInt;
Definir Numero CTBNArrDec;
Definir Alfa CTBATipZer;
Definir Alfa CTBACodMoeCon;
Definir Numero CTBNVlrCotCon;
Definir Data CTBDDatMoeCon;
Definir Numero CTBNCodAju;
Definir Alfa CTBADesAju;
Definir Numero CTBNGSelReg;
Definir Numero CTBNGCtaRed;
Definir Alfa CTBAGClaCta;
Definir Alfa CTBAGDesCta;
Definir Alfa CTBAGAnaSin;
Definir Alfa CTBAGNatCta;
Definir Numero CTBNGVlrBas;
Definir Numero CTBNGVlrAju;
Definir Numero CTBNGCtaDeb;
Definir Numero CTBNGCtaCre;
Definir Numero CTBNGCodHpd;
Definir Alfa CTBAGCplHpd;

se (( CTBNCodAju = 1) e ( CTBAModAju = "I") e ( CTBABasAju = "M") e
( CTBAAbgFil = "1,2") e ( CTBAAbgGcc = "1,2") e ( CTBAAbgCta = "50") e
( CTBAFecCan = "S") e ( CTBALotFil = "S") e ( CTBACtaAju = "S") e
( CTBNCtaDeb = 50) e ( CTBNCtaCre = 60) e ( CTBANatOri = "S") e
( CTBAAjuOri = "A") e ( CTBAAjuCpa = "N") e ( CTBNCodHpd = 802) e
( CTBDMesAno = 39113) e ( CTBDDatLct = 39139) e ( CTBACodMoeInd = "US$") e
( CTBNVlrCotInd = 3.4698) e ( CTBDDatMoeInd = 37989) e ( CTBNGSelReg = 1) e
( CTBNGCtaRed = 50) e ( CTBAGClaCta = "11010101") e ( CTBAGAnaSin = "A") e
( CTBAGNatCta = "D") e ( CTBNGVlrBas = 1829.27) e ( CTBNGVlrAju = 6347.2) e
( CTBNGCtaDeb = 50) e ( CTBNGCtaCre = 60) e ( CTBNGCodHpd = 802))
Mensagem(Erro,"Processamento não permitido!");

Variáveis Disponibilizadas: