English
Español
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.
English
Español
