valor do icms relativo ao fundo de combate à pobreza(FCP) da uf de destino difere do da somatoria dos itens

[reij]

Boa tarde pessoal alguém teria como me da uma força com esse erro pois estou pra ficar louco pq tenho que pulverizar o valor do imposto nos itens mais ja cacei la a tag que recebe o valor do imposto é não sei como fazer ta sempre dando esse erro

valor do icms relativo ao fundo de combate à pobreza(FCP) da uf de destino difere do da somatória dos itens

 

onde coloco esses valores pois até agora não encontrei hoje estou fazendo assim

        vBCUFDest :=  CNfeTOTAL.AsCurrency;
                vFCPUFDest := CNfeTOTAL.AsCurrency * pFCPUFDest / 100;

 

                vICMSUFDest := CNfeTOTAL.AsCurrency * (pICMSUFDest- pICMSInter)/100 *
                                                                 pICMSInterPart/100;
                if emit.CRT = crtRegimeNormal then
                begin
                vICMSUFRemet := CNfeTOTAL.AsCurrency * (pICMSUFDest- pICMSInter)/100 *
                                                          (1-pICMSInterPart/100)
                end;
               //totaldo icms fcp
               Total.ICMSTot.vFCPUFDest   := vFCPUFDest;
               Total.ICMSTot.vICMSUFDest  := vICMSUFDest;
               Total.ICMSTot.vICMSUFRemet := 0.00;

 

ta faltando pulverizar nos itens e comparar astotalizações alguém poderia me ajudar

[BigWings]

NF := ACBrNFe1.NotasFiscais.Add.NFe;
[...]
Item := NF.Det.Add;
[...]
Item.Imposto.ICMSUFDest.vBCUFDest := TabelaDetalheICMS_BASECALC_UF_DEST.AsCurrency;
Item.Imposto.ICMSUFDest.pFCPUFDest := TabelaDetalheICMS_FCP_UF_DEST.AsFloat;
Item.Imposto.ICMSUFDest.pICMSUFDest := TabelaDetalheICMS_UF_DEST.AsFloat;
Item.Imposto.ICMSUFDest.pICMSInter := TabelaDetalheICMS_INTERESTADUAL.AsFloat;
Item.Imposto.ICMSUFDest.pICMSInterPart := TabelaDetalheICMS_PART_UF_DEST.AsFloat;
Item.Imposto.ICMSUFDest.vFCPUFDest := TabelaDetalheVALOR_FCP_UF_DEST.AsCurrency;
Item.Imposto.ICMSUFDest.vICMSUFDest := TabelaDetalheVALOR_ICMS_UF_DEST.AsCurrency;
Item.Imposto.ICMSUFDest.vICMSUFRemet := TabelaDetalheVALOR_ICMS_UF_REM.AsCurrency;
[...]
NF.Total.ICMSTot.vFCPUFDest := TabelaPrincipalVALOR_FCP_UF_DEST.AsCurrency;
NF.Total.ICMSTot.vICMSUFDest := TabelaPrincipalVALOR_ICMS_UF_DEST.AsCurrency;
NF.Total.ICMSTot.vICMSUFRemet := TabelaPrincipalVALOR_ICMS_UF_REM.AsCurrency;

 

[reij]

brother fiz um teste daquele jeito que ta acima e passou tem base