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: