Identificador de Regra

CPR-440CALSB01

Módulo: CPR - Compras.

Finalidade: Alimentar o campo "Valor do Subsídio(VlrSub)" na nota fiscal de compra dados gerais(E440NFC.VlrSub) e nos itens de produto(E440IPC.VlrSub).

O valor da variável CprNVlrSub devera ser repassado para o campo desejado.

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

Características: O identificador é chamado após o cálculo/recálculo do item de produto.

Tela: F440GNE / F435CCC

Transação: Não se aplica.

Regra:

definir numero VSCodigoFornecedor;

definir numero VSCPF;

definir alfa VSCalcular;

definir numero VSDataAtual;

VSDataAtual = DatSis;

VSCalcular = "N";

VSCodigoFornecedor = E440NFC.CODFOR;

inicio

definir cursor cursor_E095FOR;

cursor_E095FOR.SQL "SELECT CGCCPF FROM E095FOR \

WHERE CODFOR = :VSCodigoFornecedor";

cursor_E095FOR.AbrirCursor();

se (cursor_E095FOR.Achou)

VSCPF = cursor_E095FOR.CGCCPF;

cursor_E095FOR.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

CprNVlrSub = (E440IPC.QtdRec / 60 * 1);

E440IPC.VlrSub = CprNVlrSub;

fim

Senao

CprNVlrSub = 0;

Variáveis Disponibilizadas: