Identificador de Regra

CHA-900BCCDE01

Módulo: CHA - Chão de Fábrica.

Finalidade: Com este identificador ativo, se não houver regra associada, será sugerido o Centro de Custos do Estágio e não do Depósito, como era o padrão.

Havendo regra associada, o centro de custos deverá ser definido através da regra.

Características: 1. Esse identificador pode ou não, estar ligado à uma regra.

2. Ele é chamado em todos os apontamentos de OP, independente da interface.

Transação: Não se aplica.

Regra:

Exemplo de regra:

Definir Alfa VSCodCcu;
Definir Alfa VSCodDep;
Definir Alfa VSCodAcs;
Definir Alfa VSCodCre;
Definir Numero VSCodEtg;
Definir Cursor Cur_E725Cre;
Definir Cursor Cur_E727Acs;
Definir Cursor Cur_E093Etg;
Definir Cursor Cur_E205Dep;

Definir Numero VCodEmp;


VCodEmp = CodEmp;

Se (VSCodCre <> "") @ se tiver o centro de recursos @
inicio
Cur_E725Cre.SQL "SELECT CODCCU FROM E725CRE WHERE CODEMP = :VCodEmp AND CODCRE = :VSCodCre";
Cur_E725Cre.AbrirCursor();
Se (Cur_E725Cre.Achou)
VSCodCcu = Cur_E725Cre.CodCcu;
Senao
VSCodCcu = "";
fim;
Senao
Se (VSCodAcs <> "") @ se tiver o acessório @
inicio
Cur_E727Acs.SQL "SELECT CODCCU FROM E727ACS WHERE CODEMP = :VCodEmp AND CODACS = :VSCodAcs";
Cur_E727Acs.AbrirCursor();
Se (Cur_E727Acs.Achou)
VSCodCcu = Cur_E727Acs.CodCcu;
Senao
VSCodCcu = "";
fim;
Senao
Se (VSCodEtg > 0) @ se tiver o estágio @
inicio
Cur_E093Etg.SQL "SELECT CODCCU FROM E093ETG WHERE CODEMP = :VCodEmp AND CODETG = :VSCodEtg";
Cur_E093Etg.AbrirCursor();
Se (Cur_E093Etg.Achou)
VSCodCcu = Cur_E093Etg.CodCcu;
Senao
VSCodCcu = "";
fim;
Senao
Se (VSCodDep <> "") @ se tiver o depósito @
inicio
Cur_E205Dep.SQL "SELECT CODCCU FROM E205DEP WHERE CODEMP = :VCodEmp AND CODDEP = :VSCodDep";
Cur_E205Dep.AbrirCursor();
Se (Cur_E205Dep.Achou)
VSCodCcu = Cur_E205Dep.CodCcu;
Senao
VSCodCcu = "";
fim;
Senao
VSCodCcu = "";

Variáveis Disponibilizadas: