Identificador de Regra

VEN-140IMPBL01

Módulo: VEN - Vendas.

Finalidade: Consistir a obrigatoriedade da impressão de bloquetos no fechamento da nota fiscal via tela F140GNF.

Este identificador de regras somente terá efeito quando o parâmetro global "EmiBloNfs" estiver com valor "S" (exige a impressão do bloqueto) ou "P" (pergunta sobre a impressão do bloqueto). Nessas condições, ao fechar uma nota fiscal o sistema abirirá a tela F140CAN para a emissão dos bloquetos. Caso o identificador de regras esteja cadastrado, ativo e vinculado a uma regra, será feita uma verificação no campo E140NFV.QtdBlo. Se este campo estiver com valor "0", ou seja, não foram emitidos bloquetos para esta nota fiscal, será emitido um aviso informando que que a emissão de bloquetos é obrigatória (opção "S" no parâmetro global), ou uma mensagem questionando se os bloquetos devem ser gerados (opção "P" do parâmetro global). A variável de retorno VenAObrImp é responsável por retornar da regra valor "S", que obrigará o cliente a gerar o bloqueto, ou valor "P", para questionar o usuário se o bloqueto deve ser gerado. Se esta variável voltar com valor "S", o bloqueto deve obrigatoriamente ser gerado.

Tela: F140GNF

Transação: Não se aplica.

Regra:

definir numero VenNCodEmp;
definir numero VenNCodFil;
definir alfa VenACodSnf;
definir numero VenNNumNfv;
definir alfa VenAObrImp;

definir cursor cur_E140nfv;

VenAObrImp = "P"; @ inicializa variável @
cur_E140nfv.sql "select codcli
from e140NFV
where codemp = :VenNCodEmp and
codfil = :VenNCodFil and
codsnf = :VenACodSnf and
numnfv = :VenNNumNfv";
cur_E140NFV.AbrirCursor();
se (cur_E140NFV.Achou){
se (cur_E140NFV.CodCli = 1)
VenAObrImp = "S"; @ Obriga a geração de bloqueto para o cliente 1 @
}
cur_E140NFV.FecharCursor();

Variáveis Disponibilizadas: