Identificador de Regra

VEN-000CRECL01

Módulo: VEN - Vendas.

Finalidade: personalizar a forma de verificação de bloqueio do cliente. É acionado para a nota fiscal de saída, pedidos e pré-faturas após a análise de crédito do cliente pelo sistema, por meio dos parâmetros aplicados para a análise. O resultado é 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 ERP, de acordo com os parâmetros e situação do cliente). Esses valores podem ser manipulados por meio de outras consistências executadas através desse identificador, podendo liberar ou acrescentar possibilidades de bloqueios às rotinas e entidades que chamam a regra, levando as informações para o ERP e as atribuindo aos campos de Bloqueio e Observação do Motivo dos Pedidos, Notas de Saída e Pré-Faturas.

Características: a variável VSORIBLO informa para a regra qual a origem da chamada da verificação de crédito do cliente (no caso de pedido):

• 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";
  
• quando o pedido for alterado após ser fechado de forma que o seu valor fique maior (caso o parâmetro Verifica Crédito ao Alterar Pedido/NF for "S - Sim"): a variável assume o valor "Alteração".

Condições de pagamento com dia fixo podem ser tratadas na própria regra do identificador. Para isso, o parâmetro Analisar Crédito Vendas em Dinheiro no cadastro da filial precisa ser igual a "S - Sim" e deve haver uma condição na regra para que, nas condições de pagamento sem dia fixo informado, o bloqueio não seja realizado no fechamento da nota fiscal. A variável VsCodCpg apresenta o código da condição de pagamento usada na nota fiscal, sendo possível fazer um cursor em Tabelas - Condição de Pagamento - Parcelas (E028ICP) para verificar se existe ou não uma data no campo DatFix, conforme exemplo de regra abaixo. É necessário, porém, avaliar a melhor forma de tratar a questão com base nas regras específicas de negócio.

Exemplo

Definir NUMERO VSCODEMP;
Definir ALFA VSORIGEM;
Definir ALFA VSBLOQUE;
Definir ALFA VSMOTIVO;
Definir ALFA VSCODCPG;
Definir Data dDatFix;
Definir Alfa DatAux;
Definir Cursor CUR_E028ICP;

Inicio

se (VSORIGEM = "NFS") @ origem da chamada via NF @
{
@Buscar na condição de pagamento se tem data fixa informada@
CUR_E028ICP.SQL "SELECT DATFIX FROM E028ICP WHERE CODEMP = :VSCODEMP and CODCPG = :VSCODCPG";
CUR_E028ICP.AbrirCursor();
se (CUR_E028ICP.Achou)
dDatFix=CUR_E028ICP.DATFIX;
CUR_E028ICP.FecharCursor();
ConverteMascara(3,dDatFix,DatAux,"DD/MM/YYYY");
Se (DatAux = "00/00/0000") @ Quando não existe data fixa o padrão gravado no banco é 31/12/1900 que no caso é 00/00/0000 @
{ VSBLOQUE = "N"; VSMOTIVO = ""; }

Fim;

Se (DatAux <> "00/00/0000") @ Faz a análise de crédito conforme a necessidade do cliente e bloqueio ou não a NF @
{ x=y; }

Fim;

A variável VSEXEWEB indica se o sistema está sendo utilizado na versão web ou nocliente-servidor. Essa variável visa não gerar um erro quando o ambiente é web e for inserido um cliente em um pedido, pois nesse momento é feita a análise de crédito. Devido a impossibilidade de serem exibidas mensagens de aviso para a web, será gerado um erro (na aplicação cliente-servidor será apenas um aviso). Caso não queira gerar o erro, deixando a análise de crédito bloquear o pedido no fechamento, altere a regra observando a seguintes sequência lógica:

Se a variável VSORIGEM possui o valor "PED" (pedido), a variável VSORIBLO possui o valor "Cliente", a variável VSEXEWEB possui o valor "S - Sim" e o cliente esteja bloqueado (seja por alguma consistência na regra ou pela consistência prévia do ERP em que a variável VSBLOQUE possui valor igual a "S - Sim"), atribua o valor "N" para a variável VSBLOQUE e vazio ou nulo ("") para a variável VSMOTIVO. Dessa forma, o ERP não apresentará a mensagem de erro. No fechamento, a mesma verificação de crédito é feita e a regra será chamada. Caso existam restrições, o pedido será bloqueado. Utilize essa consistência na regra antes de qualquer outra, para evitar que a regra faça consistências que sejam descartadas pela lógica acima.

Quando a variável VSDESBLOMOT estiver como "S - Sim", será possível manter um motivo de bloqueio, alterar este motivo ou informar um motivo de desbloqueio, sem bloquear o pedido. Já se a variável VSBLOQUE estiver como "S - Sim", o pedido será bloqueado. Mas caso esta mesma variável estiver como "N - Não":

• Se existe valor na variável VSMOTIVO e a VSDESBLOMOT for "N - Não", o pedido será bloqueado;
• Se existe valor na variável VSMOTIVO e a VSDESBLOMOT for "S - Sim", o pedido não será bloqueado e o valor da variável VSMOTIVO será mantido.

Na alteração do pedido, o identificador será acionado apenas se o pedido não estiver bloqueado. Ou seja, não será possível desbloquear um pedido pela regra.

Tela: Pedidos, NFV e Pré-Faturas.

Transação: não se aplica.

Regra:

Exemplo de código para não gerar a mensagem de erro no pedido ao inserir o código do cliente por rotinas automáticas (VSEXEWEB = S)

Verifique na regra 000CRECL01 se o limite de crédito está sendo testado ao inserir o cliente no pedido e se é via um processo automático. Com essa combinação, o que foi verificado na rotina de limite de crédito pode ser descartada no momento de atribuir o cliente, deixando para o fechamento analisar depois. Lembrando que esse procedimento afeta outras rotinas automáticas de geração de pedido (ERP SID, ERP WEB, rotinas internas etc.).

*/

Definir ALFA VSORIGEM;
Definir ALFA VSORIBLO;
Definir ALFA VSEXEWEB;
Definir ALFA VSBLOQUE;
Definir ALFA VSMOTIVO;


se (VSORIGEM = "PED") @ origem do pedido @
inicio
se (VSORIBLO = "Cliente")
inicio
se (VSEXEWEB = "S")
inicio
VSBLOQUE = "N";
VSMOTIVO = "";
fim;
fim;
fim;

Exemplo da regra para inserir observações de bloqueio para a área financeira e de vendas

*/

Definir Numero nCodEmp;
Definir Numero nCodFil;
Definir Numero nNumPed;
Definir Numero nMotCom;
Definir Numero nMotFin;
Definir Numero nBloCom;
Definir Numero nBloFin;
Definir Alfa aObsCom;
Definir Alfa aObsFin;
Definir Alfa aAreCom;
Definir Alfa aAreFin;
Definir Alfa aBloCom;
Definir Alfa aBloFin;
Definir Alfa aSitCom;
Definir Alfa aSitFin;
Definir Alfa VSOriBlo;
Definir Alfa VSOrigem;
Definir Alfa VSBloque;

@ *** BLOQUEIO COMERCIAL *** @

nBloCom = 1;
nCodEmp = VsCodEmp; @ buscando o código da empresa do pedido @
nCodFil = VsCodFil; @ buscando o código da filial do pedido @
nNumPed = VsNumero; @ buscando o número do pedido @
aObsCom = "*** BLOQUEIO COMERCIAL ***"; @ texto que irá aparecer na observação que será gerada @
nMotCom = 104; @ código do motivo que será vinculado à observação @
aAreCom = "VEN"; @ área da observação que será gerada @
aBloCom = "S"; @ "S" para bloquear a área do pedido ou "N" para liberar a área do pedido @
aSitCom = "R"; @ indica que a observação está resolvida @

@ *** BLOQUEIO FINANCEIRO *** @

nBloFin = 1;
nCodEmp = VsCodEmp; @ buscando o código da empresa do pedido @
nCodFil = VsCodFil; @ buscando o código da filial do pedido @
nNumPed = VsNumero; @ buscando o número do pedido @
aObsFin = "*** BLOQUEIO FINANCEIRO ***";
nMotFin = 107; @ código do motivo que será vinculado à observação @
aAreFin = "FIN";
aBloFin = "N"; @ "S" para bloquear a área do pedido ou "N" para liberar a área do pedido @
aSitFin = "R"; @ indica que a observação está resolvida @

@se o origem da chamada do identificador VEN-000CRECL01 for igual a "PED" (pedido) e se o momento da chamada for "Fechamento", as observações podem ser gravadas @
Se((VSOrigem = "PED") e (VsOriBlo = "Fechamento"))
{
/*Antes de gerar cada uma, porém, sugerimos consistir as regras de negócio
*/

GeraObsBloPed(nCodEmp, nCodFil, nNumPed, aObsCom, nMotCom, aAreCom, aBloCom, aSitCom);
GeraObsBloPed(nCodEmp, nCodFil, nNumPed, aObsFin, nMotFin, aAreFin, aBloFin, aSitFin);
}

@ como o bloqueio será feito por meio das observações do pedido, não é necessário alterar esse campo @
VSBloque = "N";

Variáveis disponibilizadas: