Identificador de Regra

VEN-140CONOR01

Módulo: VEN - Vendas.

Finalidade: Permitir ao usuário fazer consistências via regra a partir dos documentos selecionados como origem para a nota fiscal de venda (pedido, nota fiscal de compra, nota fiscal de venda) na tela F140PRE.

A variável "VenNGerNot", quando populada com valor "0" via regra, impedirá que os dados do documento de origem sejam carregados na tela F140PRE. Quando a variável "VenNGerNot" impedir a continuidade do processo, a variável "VenAMsgCon" poderá ser populada, via regra, com uma mensagem personalizada, que será concatenada com a mensagem que barrará a continuidade do processo.

Tela: F140PRE

Transação: Não se aplica.

Regra:

Exemplo:

definir numero VenNCodEmp;@ Código da empresa @
definir numero VenNCodFil;@ Código da filial @
definir alfa VenACodSnf;@ Código da série da nota fiscal @
definir numero VenNTipNfs;@ Tipo da nota fiscal @
definir numero VenNCodCli;@ Código do cliente @
definir numero VenNCodFor;@ Código do fornecedor @
definir alfa VenATnsPro;@ Transação de Produto dos Dados Gerais @
definir alfa VenATnsSer;@ Transação de Serviço dos Dados Gerais @
definir numero VenNPerFat;@ Percentual de faturamento @
definir alfa VenASnfNfs;@ Código da série da nota fiscal origem @
definir numero VenNNumNfv;@ Número da nota fiscal origem @
definir numero VenNFilPed;@ Código da filial do pedido @
definir numero VenNNumPed;@ Número do pedido @
definir alfa VenASnfNfc;@ Código da série da nota fiscal de entrada origem @
definir alfa VenADocOri;@ Documento de Origem (PED, ENP, NFC, NFV) @

definir alfa xTemp;
definir alfa xDados;

xDados = "Documento de Origem: ";
se (VenADocOri = "PED") {
xDados = xDados + "Pedido, ";
} senao
se (VenADocOri = "ENP") {
xDados = xDados + "Entrada com Pedido, ";
} senao
se (VenADocOri = "NFC") {
xDados = xDados + "Nota Fiscal de Compra, ";
} senao
se (VenADocOri = "NFV") {
xDados = xDados + "nota Fiscal de Venda, ";
};

IntParaAlfa(VenNCodEmp, xTemp);
xDados = xDados + "Empresa: " + xTemp; @ Código da empresa @

IntParaAlfa(VenNCodFil, xTemp);
xDados = xDados + ", Filial: " + xTemp; @Código da filial @

xDados = xDados + ", Série: " + VenACodSnf;@ Código da série da nota fiscal @

IntParaAlfa(VenNTipNfs, xTemp);
xDados = xDados + ", Tipo NF: " + xTemp;@ Tipo da nota fiscal @

IntParaAlfa(VenNCodCli, xTemp);
xDados = xDados + ", Cliente: " + xtemp;@ Código do cliente @

IntParaAlfa(VenNCodFor, xTemp);
xDados = xDados + ", Fornecedor: " + xTemp;@ Código do fornecedor @

xDados = xDados + ", Transação Produtos: " + VenATnsPro;@ Transação de Produto dos Dados Gerais @

xDados = xDados + ", Transação de Serviço: " + VenATnsSer;@ Transação de Serviço dos Dados Gerais @

IntParaAlfa(VenNPerFat, xTemp);
xDados = xDados + ", % Faturamento: " + xTemp;@ Percentual de faturamento @

xDados = xDados + ", Série Nota Origem: " + VenASnfNfs;@ Código da série da nota fiscal origem @

IntParaAlfa(VenNNumNfv, xTemp);
xDados = xDados + ", Número Nota Origem: " + xTemp;@ Número da nota fiscal origem @

IntParaAlfa(VenNFilPed, xTemp);
xDados = xDados + ", Filial do pedido: " + xTemp;@ Código da filial do pedido @

IntParaAlfa(VenNNumPed, xTemp);
xDados = xDados + ", Pedido nº: " + xTemp;@ Número do pedido @

xDados = xDados + ", Série da NFC Origem: " + VenASnfNfc;@ Código da série da nota fiscal de entrada origem @

xDados = xDados + ", Documento de Origem: " + VenADocOri;@ Documento de Origem (PED, ENP, NFC, NFV) @

VenNGerNot = 0; @ 1 = Deixa, 0 = Não deixa prosseguir @

definir alfa VenAMsgCon;
VenAMsgCon = xDados; @ Mensagem que será passada para a tela @

Variáveis Disponibilizadas: