Identificador de Regra

GER-000PEUSP01

Módulo: GER - Gerais.

Finalidade: Definir quais usuário podem enxergar a estrutura de determinados produtos.

Características: Muitas vezes é apenas passado o código do produto. A variável "VSCodMod" (código do modelo) só terá valor ao utilizar as telas "F700CMC, F700COM e F700DMP".

Tela: Produção

Transação: Não se aplica.

Regra:

Definir Alfa VCodEmp;
Definir Alfa VSCodOri;
Definir Alfa VScodFam;
Definir Alfa VSCodPro;
Definir Alfa VSCodDer;
Definir Numero VCodUsu;
Definir Alfa VSPermite;
Definir Cursor C075PRO;

EstaNulo(VSCodOri, VCodOri_Nulo);
Se (VCodOri_Nulo = 1)
Inicio
IntParaAlfa(CodEmp, VCodEmp);
C075PRO.SQL "SELECT CODORI FROM E075PRO WHERE CODEMP = :VCodEmp AND CODPRO = :VSCodPro";
C075PRO.AbrirCursor();
Se (C075PRO.Achou)
VSCodOri = C075PRO.CodOri;
C075PRO.FecharCursor();
Fim;
VSPermite = "S";
Se ((VCodUsu = 39) e (VSCodOri <> "40"))
VSPermite = "N";
Se ((VCodUsu = 40) e (VSCodOri <> "20"))
VSPermite = "N";

Variáveis Disponibilizadas:

Nome Tipo Observações Retorna Valor
VSCodOri ALFA Código da Origem N
VSCodFam ALFA Código da Família N
VSCodPro ALFA Código do Produto N
VSCodDer ALFA Código da Derivação N
VCodUsu ALFA Código do usuário logado N
VSCodMod ALFA Código do modelo N
VSPermite ALFA Variável de retorno S ou N q indica se permite ou não enxergar a estrutura do produto S

Atenção

Caso o parâmetro global LisVarReg esteja habilitado, a variável ListaVariaveis estará disponível em todos os identificadores de regras do sistema. O conteúdo desta variável lista os campos disponibilizados no identificador de regras em questão.

Não é aconselhada a ativação desse parâmetro global para o uso cotidiano. Esse recurso de listagem dos campos de identificadores auxilia a construção de regras e o Suporte para, por exemplo, depuração ou quando não houver acesso à documentação dos identificadores de regras.

Este artigo ajudou você?