Identificador de Regra

SGQ-107AGIBD01

Módulo: SGQ - Sistema de Gestão da Qualidade.

Finalidade: A regra associada a este identificador será executada Após a Gravação das Informações no Banco de Dados e, dessa forma, o usuário pode personalizar a avaliação dos fornecedores, alimentando ou atualizando tabelas ou campos de usuários ou até mesmo campos de tabelas do Gestão Empresarial | ERP, como a de cadastro de fornecedores, por exemplo.

Características: A regra será executada em diversos momentos durante o cálculo, sendo eles:
1º) Após inserir os dados de cada fornecedor na tabela E107FOR (Fornecedores avaliados)
2º) Após inserir os dados de cada produto na tabela E107PDF (Produtos avaliados por fornecedor)
3º) Após inserir os dados de cada serviço na tabela E107SEF (Serviços avaliados por fornecedor)
4º) Após terminar de calcular os dados de cada filial
5º) Após terminar o cálculo de todas as filiais

Tela: Avaliação Fornecedores (F107CAL)

Transação: Não se aplica.

Regra:

Deve estar ligado a uma regra.

Como exemplo, temos uma regra abaixo, na qual um campo de usuário chamado USU_NotAfo é utilizado na tabela E107FOR (Fornecedores avaliados) para armazenar uma pontuação para cada fornecedor dentro da avaliação, sendo que a pontuação máxima é de 100 pontos e a cada produto ou serviço calculado, esta pontuação pode ser decrementada, possibilitando, por exemplo, que após o cálculo seja emitido um relatório que mostre a pontuação de cada fornecedor de forma ordenada, ou seja, é possível fazer um ranking dos fornecedores dessa forma.



Definir Numero VSCodEmp;
Definir Numero VSNumAfo;
Definir Numero VSCodFil;
Definir Numero VSCodFor;
Definir Numero VSNotSis;
Definir Numero VSPrzPgt;
Definir Numero VSTmpAte;
Definir Numero VSAtrEnt;
Definir Numero VSPrzEnt;
Definir Numero VSVarPrc;
Definir Numero VSDftCri;
Definir Numero VSDftGrv;
Definir Numero VSDftTol;
Definir Alfa VSMomExe;
Definir Alfa VSCodPro;
Definir Alfa VSCodDer;
Definir Alfa VSCodSer;

Definir Numero VSDesconto;


Se (VSMomExe = 'F') @ se o momento for a gravação de um fornecedor @
inicio
@ inicializa o campo da nota do fornecedor com o valor 100 @
ExecSql "UPDATE E107FOR SET USU_NOTAFO = 100 WHERE CODEMP = :VSCodEmp AND NUMAFO = :VSNumAfo AND \
CODFIL = :VSCodFil AND CODFOR = :VSCodFor";
fim;
Senao
Se ((VSMomExe = 'P') ou (VSMomExe = 'S')) @ se for um produto ou um serviço @
inicio
VSDesconto = 0;

@ para cada item onde o atraso na entrega for maior do que 5 dias, desconta-se 1 ponto @
Se (VSAtrEnt > 5)
VSDesconto = VSDesconto + 1;

@ para cada item onde o % de defeitos críticos for maior do que zero, desconta-se 2 pontos @
Se (VSDftCri > 0)
VSDesconto = VSDesconto + 2;

@ se tiver algum valor a descontar, atualiza a nota @
Se (VSDesconto > 0)
ExecSql "UPDATE E107FOR SET USU_NOTAFO = (USU_NOTAFO - :VSDesconto) WHERE CODEMP = :VSCodEmp AND NUMAFO = :VSNumAfo AND \
CODFIL = :VSCodFil AND CODFOR = :VSCodFor";
fim;

Variáveis Disponibilizadas:

Nome Tipo Observações Retorna Valor
VSCodEmp NÚMERO Empresa da avaliação N
VSNumAfo NÚMERO Número da avaliação N
VSMomExe ALFA Momento da execução (F - Fornecedor / P - Produto / S - Serviço / L - Filial / C - Finalização do cálculo) N
VSCodFil NÚMERO Filial que está sendo avaliada no momento (recebe zero quando VSMomExe igual a C) N
VSCodFor NÚMERO Fornecedor que está sendo avaliado no momento (quando VSMomExe igual a F, P ou S) N
VSNotSis NÚMERO Nota do sistema da qualidade do fornecedor avaliado (quando VSMomExe igual a F) N
VSPrzPgt NÚMERO Prazo de pagamento do fornecedor avaliado (quando VSMomExe igual a F) N
VSTmpAte NÚMERO Tempo de atendimento do fornecedor avaliado (quando VSMomExe igual a F) N
VSCodPro ALFA Produto que está sendo avaliado (quando VSMomExe igual a P) N
VSCodDer ALFA Derivação do Produto que está sendo avaliado (quando VSMomExe igual a P) N
VSCodSer ALFA Serviço que está sendo avaliado (quando VSMomExe igual a S) N
VSAtrEnt NÚMERO Atraso na entrega do produto ou serviço (quando VSMomExe igual a P ou S) N
VSPrzEnt NÚMERO Prazo de entrega do produto ou serviço (quando VSMomExe igual a P ou S) N
VSVarPrc NÚMERO Variação do preço do produto ou serviço (quando VSMomExe igual a P ou S) N
VSDftCri NÚMERO Percentual de defeitos críticos do produto ou serviço (quando VSMomExe igual a P ou S) N
VSDftGrv NÚMERO Percentual de defeitos graves do produto ou serviço (quando VSMomExe igual a P ou S) N
VSDftTol NÚMERO Percentual de defeitos toleráveis do produto ou serviço (quando VSMomExe igual a P ou S) N

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ê?