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: