Identificador de Regra

VEN-000CREGR01

Módulo: VEN - Vendas.

Finalidade: Personalizar a forma de verificação de bloqueio do grupo de clientes.

Chamada para a Nota Fiscal de Saída, Pedidos e Pré-Faturas, após feita a análise de crédito do grupo do cliente pelo ERP através dos parâmetros aplicados para essa análise. O resultado da análise é passado para a regra através das variáveis VSBLOQUE (se está bloqueado) e VSMOTIVO (concatenação dos motivos de bloqueio resultantes da análise de crédito do grupo do cliente pelo Gestão Empresarial | ERP, de acordo com os parâmetros na filial e das definições do grupo do cliente). Esses valores podem ser manipulados através de outras consistências que podem ser executadas através deste identificador, podendo liberar ou acrescentar possibilidades de bloqueios às rotinas e entidades que chamam esta regra. Podem ser retornados valores nas variáveis VSBLOQUE e VSMOTIVO, que são levadas para o ERP e atribuídas aos campos de Bloqueio e Observação do Motivo dos Pedidos, Notas de Saída e Pré-Faturas. Assim, pode-se ampliar a gama de consistências no que se refere ao conceito de bloqueio dessas entidades.

A variável VSORIBLO informa para a regra de onde é originada a chamada da verificação de crédito do cliente, somente no caso do pedido. Os valores que essa variável pode assumir são:
- no momento da digitação do Código do Cliente: a variável assume o valor "Cliente";
No fechamento do Pedido: a variável assume o valor "Fechamento";
- na alteração do valor do Pedido após fechado (caso o parâmetro "Indicativo se o crédito do cliente deve ser verificado na alteração de um pedido ou nota fiscal de saída" possuir o valor "S" atribuído) : a variável assume o valor "Alteracao".
Caso a chamada seja feita de outras rotinas do ERP (Nota ou Pré-Faturas), a variável assume o valor "Outros".

O campo VSDESBLONOT quando definido valor "S" permite manter o motivo de bloqueio sem bloquear o pedido. Ess funcionalidade foi criada para permitir nesse caso informar um motivo de desbloqueio. Isso porque se não for definido valor para a variavel VSDESBLOMOT ou for definido o valor "N" estiver definido motivo e o campo VSBloqueio estiver com "N" o pedido vai ser bloqueado da mesma forma.

Características: A variável VSEXEWEB indica se está sendo utilizado na WEB ou no Cliente-Servidor.

Essa variável visa não gerar um erro quando o ambiente é WEB e se está digitando o cliente em um pedido, momento em que é feita a análise de crédito e houver restrições a esse grupo de cliente. Devido a impossibilidade de serem exibidas mensagens de aviso para a WEB, é gerado um erro neste momento (na aplicação cliente-servidor é apenas gerado um aviso). Caso não se deseje gerar erro na WEB devido a verificação de crédito no momento de se digitar o cliente, deixando a análise
de crédito bloquear o pedido no fechamento, deve-se proceder a programação na regra observando a seguintes seqüência lógica:

Se a variável VSORIGEM possui o valor "PED" (é pedido) e a variável VSORIBLO possui o valor "CLIENTE" e a variável VSEXEWEB possui o valor "S" e caso o cliente esteja bloqueado (seja por alguma consistência na regra ou pela consistência prévia do ERP onde a variável VSBLOQUE possui valor igual a "S"), deve-se atribuir o valor "N" para a variável VSBLOQUE e vazio ou nulo ("") para a variável VSMOTIVO, para que o ERP não gere a mensagem de erro nesse momento e situação. Desse modo, no fechamento, a mesma verificação de crédito é feita e a regra é chamada e caso existam restrições, o pedido é bloqueado. Recomenda-se utilizar essa consistência na regra logo antes de qualquer outra consistência, para evitar que a regra faça consistências que, no caso da WEB e digitação do cliente, sejam descartadas pela lógica acima.

Essa é apenas uma sugestão, a manipulação de variáveis é livre para o programador das regras efetuar as consistências possíveis e necessárias.

Observação: A rotina de análise de crédito do grupo do cliente é feita juntamente com a da análise de crédito do cliente, em seguida a esta. Então, é primeiro analisado o crédito do cliente, e em seguida o crédito do grupo. A regra 000CRECL01 é executada antes de ser analisado o crédito do grupo e, para este, foi criada a regra 000CREGR01, executada somente com os motivos de bloqueio do grupo, independente se houve ou não bloqueio pela análise de crédito do cliente. A regra 000CREGR01 permite inclusive bloquear ou desbloquear conforme a lógica definida na regra. Porém a regra só afeta o bloqueio e motivo do grupo, não age sobre o bloqueio ou motivo do cliente, que deve ser tratado pela regra 000CRECL01. Por exemplo, se o cliente tiver problema de crédito e o grupo também, mas via regra o bloqueio desse grupo foi omitido, o pedido será bloqueado pois houve bloqueio na análise do cliente.

A regra 000CREGR01 já existia para algumas rotinas de pedido antes de ser incluída a possibilidade de análise de crédito do grupo, e para essas rotinas continua sendo executada. Agora porém foram criadas mais variáveis para contemplar a análise para notas e pré-faturas, com indicativo de origem da chamada e as chaves dessas tabela, e incluído o motivo do bloqueio.

Tela: Pedidos, Pré-Faturas e NFV

Transação: Pode ser ligado à transação.

Regra:

definir Alfa VSOrigem;
definir Numero VSCodEmp;
definir Numero VSCodFil;
definir Numero VSNumero;
definir Numero VSCodGre;
definir Numero VSCodCli;
definir Numero VSCodRep;
definir Numero VSVlrLiq;
definir Alfa VSCodCpg;
definir Alfa VSCodFpg;
definir Numero VSZonFra;
definir Numero VSDatSuf;
definir Alfa VSBloque;
definir Alfa VSExeWeb;
definir Alfa VSOriBlo;
definir Alfa msg1;
definir Alfa msg2;

@ se for pedido @
se (VSOrigem = "PED")
inicio
@ se for na informação do cliente @
se (VSOriBlo = "Cliente")
inicio
@ se for o cliente 3 e estiver executando na web e bloquear então desbloqueia @
se ((VSCodCli = 3) e (VSExeWeb = "S") e (VSBloque = "S"))
VSBloque = "N";
fim;
fim;

@ apenas exibe mensagem para verificar se todas as variáveis recebem valor @
IntParaAlfa(VSCodEmp, msg2);
Msg1 = " Empresa: " + msg2;
IntParaAlfa(VSCodFil, msg2);
Msg1 = Msg1 + " Filial: " + msg2;
IntParaAlfa(VSNumero, msg2);
Msg1 = Msg1 + " Numero: " + msg2;
IntParaAlfa(VSCodGre, msg2);
Msg1 = Msg1 + " Grupo: " + msg2;
IntParaAlfa(VSCodCli, msg2);
Msg1 = Msg1 + " Cliente: " + msg2;
IntParaAlfa(VSCodRep, msg2);
Msg1 = Msg1 + " Rep.: " + msg2;
IntParaAlfa(VSVlrLiq, msg2);
Msg1 = Msg1 + " Vlr. Ped.: " + msg2;
IntParaAlfa(VSZonFra, msg2);
Msg1 = Msg1 + " Zona Franca: " + msg2;
IntParaAlfa(VSDatSuf, msg2);
Msg1 = Msg1 + " Data Suf.: " + msg2;

Msg1 = Msg1 + " Origem:" + VSOrigem;
Msg1 = Msg1 + " Cond: " + VSCodCpg;
Msg1 = Msg1 + " Forma: " + VSCodFpg;
Msg1 = Msg1 + " Web: " + VSExeWeb;
Msg1 = Msg1 + " Origem: " + VSOriBlo;
Msg1 = Msg1 + " Bloqueias: " + VSBloque;
Msg1 = Msg1 + "[OK]";

se (VSExeWeb <> "S")
Mensagem(Retorna,Msg1);

Variáveis Disponibilizadas: