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:

Nome Tipo Observações Retorna Valor
E440NFC* ALFA Todos os campos da tabela E440NFC N
E440IPC* ALFA Todos os campos da tabela E440IPC N
CprNVlrSub ALFA Valor do Subsídio S

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ê?