Identificador de Regra

VEN-140CALSB01

Módulo: VEN - Vendas.

Finalidade: Permitir que seja retornado o valor do subsídio da DAP para o item de produto da nota fiscal de saída.

Veja o processo completo da DAP, que utiliza este identificador para parametrizar o valor a ser atribuído ao produtor.

Características: Apenas o valor do subsídio (E140IPV.VlrSub) poderá ser retornado pela regra.

Tela: Notas fiscais de saída/devolução

Transação: Não se aplica.

Regra:

Exemplo de regra utilizada:

@Cálculo PRONAF@

definir numero VenNCodCli;

definir numero VSCPF;

definir alfa VSCalcular;

definir numero VSDataAtual;

definir numero VSCodigoCliente;

definir numero ACodigoEmpresa;

definir numero ACodigoFilial;

definir alfa ACodigoSerieNota;

definir numero ANumeroNota;

ACodigoEmpresa = E140IPV.CODEMP;

ACodigoFilial = E140IPV.CODFIL;

ACodigoSerieNota = E140IPV.CODSNF;

ANumeroNota = E140IPV.NUMNFV;

VSDataAtual = DatSis;

VSCalcular = "N";

inicio

definir cursor cursor_E140NFV;

cursor_E140NFV.SQL "SELECT CODCLI FROM E140NFV \

WHERE CODEMP = :ACodigoEmpresa AND \

CODFIL = :ACodigoFilial AND \

CODSNF = :ACodigoSerieNota AND \

NUMNFV = :ANumeroNota ";

cursor_E140NFV.AbrirCursor();

se (cursor_E140NFV.Achou)

VSCodigoCliente = cursor_E140NFV.CODCLI;

cursor_E140NFV.FecharCursor();

fim;

inicio

definir cursor cursor_E085CLI;

cursor_E085CLI.SQL "SELECT CGCCPF FROM E085CLI \

WHERE CODCLI = :VenNCodCli";

cursor_E085CLI.AbrirCursor();

se (cursor_E085CLI.Achou)

VSCPF = cursor_E085CLI.CGCCPF;

cursor_E085CLI.FecharCursor();

fim;

inicio

definir cursor cursor_E095DAP;

cursor_E095DAP.SQL "SELECT CodDap FROM E095DAP \

WHERE DATVAL >= :VSDataAtual and \

CPFTI1 = :VSCPF or \

CPFTI2 = :VSCPF ";

cursor_E095DAP.AbrirCursor();

se (cursor_E095DAP.Achou)

VSCalcular = "S";

cursor_E095DAP.FecharCursor();

fim;

 

Se (VSCalcular = "S")

inicio

E140IPV.VlrSub = (E140IPV.QtdFat / 60 * 1);

fim

Senao

E140IPV.VlrSub = 0;

Variáveis Disponibilizadas:

Nome Tipo Observações Retorna Valor
VenNTipNfs NÚMERO Tipo da nota fiscal de saída N
VenNCodCli NÚMERO Código do cliente da nota fiscal de saída N
VenNCodFor NÚMERO Código do fornecedor ligado ao cliente N
VenACodCpg ALFA Código da condição de pagamento da nota fiscal de saída N
VenNZonFra NÚMERO Código da zona franca do cliente N
VenASigUfs ALFA Sigla da unidade federativa do cliente N
VenDDatEmi DATA Data de emissão da nota fiscal de saída N
E140IPV.* ALFA Todos os campos da tabela E140IPV N

Atenção

Caso o parâmetro global LisVarReg esteja habilitado, a variável ListaVariaveis estará disponível em todos os identificadores de regras do sistema. O conteúdo desta variável lista os campos disponibilizados no identificador de regras em questão.

Não é aconselhada a ativação desse parâmetro global para o uso cotidiano. Esse recurso de listagem dos campos de identificadores auxilia a construção de regras e o Suporte para, por exemplo, depuração ou quando não houver acesso à documentação dos identificadores de regras.

Este artigo ajudou você?