Identificador de Regra

CPR-440MANIR01

Módulo: CPR - Compras.

Finalidade: Disponibilizar todos os campos das tabelas E440IPC e E440ISC afim de permitir a manipulação do cálculo do IRRF dos itens da nota fiscal de entrada.

Características: As informações ainda não estarão gravadas no banco de dados. Para acessar as variáveis das tabelas E440ISC e E440IPC deve ser utilizado o formato, por exemplo, "E440IPC.VLRBIR". Além disso, é importante ressaltar que este identificador é exclusivo da tela F440GNE, executado somente no processamento da nota, ou seja, não é executado no fechamento.

Variáveis que RETORNAM VALOR ao sistema:

• E440ISC.VlrBir / E440IPC.VlrBir
• E440ISC.PerIrf / E440IPC.PerIrf
• E440ISC.VlrIrf / E440IPC.VlrIrf

Tela: F440GNE

Transação: Não se aplica.

Regra:

Definir Alfa VCprNCodEmp;
Definir Alfa VCprNCodFil;
Definir Alfa VCprNCodFor;
Definir Alfa VCprNNumNfc;
Definir Alfa VCprNVlrLiq;
Definir Alfa VCprDDatEnt;
Definir Alfa VCprDDatEmi;
Definir Alfa CprACodSnf;
Definir Alfa CprATabela;
Definir Alfa Quebra;
Definir Alfa StrAux;

inicio

RetornaAscii(13, Quebra);

IntParaAlfa(CprNCodEmp, VCprNCodEmp);
IntParaAlfa(CprNCodFil, VCprNCodFil);
IntParaAlfa(CprNCodFor, VCprNCodFor);
IntParaAlfa(CprNNumNfc, VCprNNumNfc);
IntParaAlfa(CprNVlrLiq, VCprNVlrLiq);
ConverteMascara(3,CprDDatEnt, VCprDDatEnt, "DD/MM/YYYY");
ConverteMascara(3,CprDDatEmi, VCprDDatEmi, "DD/MM/YYYY");

StrAux =
"CprNCodEmp: " + VCprNCodEmp + Quebra +
"CprNCodFil: " + VCprNCodFil + Quebra +
"CprNCodFor: " + VCprNCodFor + Quebra +
"CprNNumNfc: " + VCprNNumNfc + Quebra +
"CprACodSnf: " + CprACodSnf + Quebra +
"CprNVlrLiq: " + VCprNVlrLiq + Quebra +
"CprDDatEnt: " + VCprDDatEnt + Quebra +
"CprDDatEmi: " + VCprDDatEmi + Quebra +
"[&OK]";
Mensagem(Retorna,StrAux);

Se (CprATabela = "E440IPC")
Inicio
E440IPC.PERIRF = 12;
E440IpC.VLRIRF = 39;
E440IpC.VLRBIR = 41;
Mensagem(Retorna, CprATabela);
Fim Senao
Se (CprATabela = "E440ISC")
Inicio
E440ISC.PERIRF = 80;
E440ISC.VLRIRF = 30;
E440ISC.VLRBIR = 50;
Mensagem(Retorna, CprATabela);
Fim;

XX = 0;
fim

Variáveis Disponibilizadas: