Identificador de Regra

CPR-440ALDFA01

Módulo: CPR - Compras.

Finalidade: Alterar o valor do diferencial de alíquota nas notas fiscais de entrada.

Características: O exemplo de regra consiste em calcular o diferencial de alíquotas entre estados (UF)desconsiderando a redução do ICMS dos itens de produto. A regra verifica se o item possui uma redução de ICMS. Havendo a redução, sendo um produto e valor do diferencial sendo maior que zero, é buscado o valor da redução. Então é feito o cálculo do ICMS da nota sem redução e feito o cálculo do ICMS do Estado sem redução. Logo em seguida é subtraído do valor do ICMS do estado, o valor do ICMS da nota fiscal ( VSVlrDfa = VSVlrIce - VSVlrIcm).

Tela: Notas Fiscais de Entrada

Transação: Pode estar ou não ligado à transação do item da nota fiscal de entrada.

Regra:

Definir Cursor Cur_E019Red;

Definir Numero VSCodEmp;
Definir Numero VSCodFil;
Definir Alfa VSProSer;
Definir Alfa VSSigUfs;
Definir Alfa VSCodTrd;
Definir Alfa xCodTrd;
Definir Alfa xSigUfs;

xCodEmp = VSCodEmp;
xCodFil = VSCodFil;
xCodTrd = VSCodTrd;
xSigUfs = VSSigUfs;

Se (((VSCodTrd <> "") e (VSProSer = "P") e (VSVlrDfa > 0)))
inicio
Cur_E019Red.SQL "SELECT CODEMP, CODFIL, REDENT FROM E019RED
WHERE SIGUFS = :xSigUfs AND
CODTRD = :xCodTrd AND
(CODEMP = :xCodEmp OR CODEMP = 0) AND
(CODFIL = :xCodFil OR CODFIL = 0) ORDER BY CODEMP,CODFIL DESC ";

Cur_E019Red.AbrirCursor();

Se (Cur_E019Red.Achou)
inicio
VSVlrBic = (VSVlrBic * 100)/(100 - Cur_E019Red.RedEnt);
VSVlrIcm = (VSVlrBic * (VSPerIcm/100));
VSVlrIce = (VSVlrBic * (VSPerIce/100));
VSVlrDfa = VSVlrIce - VSVlrIcm;
fim;

Cur_E019Red.FecharCursor();
fim;

Variáveis Disponibilizadas: