Calculo icms difal

[Thiago Luis]

Galera, temos uma nota fiscal de entrada de ativo imobilizado  em que o valor é de 206,69 referente a 3 notas fiscais

 

Porem ao contabilizar  no movimento 1.2.44  , contabilizou  a  soma dos 4 itens  movimentos 128.55+165,29+ 145,55 +30,12 = 469,52

Alguem poderia ajudar em entender  o porque desta contabilização da diferença do ICMS DIFAL esta errado  ou a formula vinculado no parametro? 

 

 /* Buscar valor da ALIQ. INTERESTADUAL do Estado do Fornecedor */
/* TIPONATICMS 2 = Compra Ativo Imobilizado Dif Aliquota C/ Base */
/* TIPONATICMS T = Compra Ativo Imobilizado Dif Aliquota */

SE (TABNATITEM('TIPONATICMS', 'S') = '2' OU TABNATITEM('TIPONATICMS', 'S') = 'T') E TABNATITEM('AFETABASEICMS', 'V') = 0 /* Sem despesas que afetam a base de cálculo */
ENTAO
((TABITM('VALORTOTALITEM','V') + FOR('FRETPROP')   ) * (TABNATITEM('ALIQSUBST','V') - RESULTSQL('TI.0006.0016', 'ALIQINTERESTADUAL'))/100) - LVL('ICMS')

SENAO SE (TABNATITEM('TIPONATICMS', 'S') = '2' OU TABNATITEM('TIPONATICMS', 'S') = 'T') E TABNATITEM('AFETABASEICMS', 'V') = 1 /* Frete afeta base */
ENTAO
((TABITM('VALORTOTALITEM','V') + FOR('FRETPROP')   ) * (TABNATITEM('ALIQSUBST','V') - RESULTSQL('TI.0006.0016', 'ALIQINTERESTADUAL'))/100) - LVL('ICMS')

SENAO SE (TABNATITEM('TIPONATICMS', 'S') = '2' OU TABNATITEM('TIPONATICMS', 'S') = 'T') E TABNATITEM('AFETABASEICMS', 'V') = 2 /* IPI afeta base */
ENTAO
((TABITM('VALORTOTALITEM','V') + LVL('IPI')   ) * (TABNATITEM('ALIQSUBST','V') - RESULTSQL('TI.0006.0016', 'ALIQINTERESTADUAL'))/100) - LVL('ICMS')

SENAO SE (TABNATITEM('TIPONATICMS', 'S') = '2' OU TABNATITEM('TIPONATICMS', 'S') = 'T') E TABNATITEM('AFETABASEICMS', 'V') = 3 /* FRETE e IPI afetam base */
ENTAO
((TABITM('VALORTOTALITEM','V') + FOR('FRETPROP') + LVL('IPI')   ) * (TABNATITEM('ALIQSUBST','V') - RESULTSQL('TI.0006.0016', 'ALIQINTERESTADUAL'))/100) - LVL('ICMS')

SENAO SE TABNATITEM('TIPONATICMS','S') = 'D'
ENTAO
(((TABTRBITM('ICMS','BASEICMSDIFALIQ','V') * (TABNATITEM('ALIQSUBST','V') / 100)) - ((LBC('ICMS') * TABNATITEM('ALIQICMS','V') / 100))))

SENAO 0
FIMSE

 

 

 

 

 

 

 

 

 

 

 

[Thiago Luis]

Lembrando que foi criado um campo complementar conforme o print, e adicionado a formula.

Porem no evento contabil ele não calculou  corretamente ..