Bom dia, não utilizo o acbr plus, segue abaixo meu código. Realizei a atualização do repositório no dia 20/01/2016.
with ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest do
begin
ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.vBCUFDest := FormatarFloat(CasasDecimaisNFe,ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Prod.vProd);
ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.pFCPUFDest := FormatarFloat(2,CDS_UF_IMP.FieldByName('pFCPUFDest').AsFloat);
ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.pICMSUFDest := FormatarFloat(2,CDS_UF_IMP.FieldByName('PICMSUFDEST').AsFloat);
ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.pICMSInter := FormatarFloat(2,CDS_UF_IMP.FieldByName('PICMSINTER').AsFloat);
//Percentual provisório de partilha do ICMS Interestadual
if StrToInt(FormatDateTime('yyyy',CDSNF.FieldByName('NF_EMISSAO').AsDateTime)) = 2016 then
ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.pICMSInterPart := 40;
if StrToInt(FormatDateTime('yyyy',CDSNF.FieldByName('NF_EMISSAO').AsDateTime)) = 2017 then
ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.pICMSInterPart := 60;
if StrToInt(FormatDateTime('yyyy',CDSNF.FieldByName('NF_EMISSAO').AsDateTime)) = 2018 then
ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.pICMSInterPart := 80;
if StrToInt(FormatDateTime('yyyy',CDSNF.FieldByName('NF_EMISSAO').AsDateTime)) >= 2019 then
ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.pICMSInterPart := 100;
//Valor do ICMS relativo ao Fundo de Combate à Pobreza (FCP) da UF de destino
if ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.pFCPUFDest > 0 then
ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.vFCPUFDest := (ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.pFCPUFDest/100)*FormatarFloat(CasasDecimaisNFe,ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Prod.vProd);
//Valor do ICMS Interestadual para a UF de destino
ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.vICMSUFDest := (FormatarFloat(CasasDecimaisNFe,ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Prod.vProd)*((ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.PICMSUFDEST-ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.PICMSINTER)/100)*(ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.pICMSInterPart/100))+ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.vFCPUFDest;
//Valor do ICMS Interestadual para a UF do remetente
if StrToInt(FormatDateTime('yyyy',CDSNF.FieldByName('NF_EMISSAO').AsDateTime)) < 2019 then
ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.vICMSUFRemet := (FormatarFloat(CasasDecimaisNFe,ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Prod.vProd)*((ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.PICMSUFDEST-ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.PICMSINTER)/100)*(1-(ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.pICMSInterPart/100)))
else
ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.vICMSUFRemet := 0;
ACBrNFe1.NotasFiscais.Items[n].NFe.Total.ICMSTot.vFCPUFDest := ACBrNFe1.NotasFiscais.Items[n].NFe.Total.ICMSTot.vFCPUFDest + ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.vFCPUFDest;
ACBrNFe1.NotasFiscais.Items[n].NFe.Total.ICMSTot.vICMSUFDest := ACBrNFe1.NotasFiscais.Items[n].NFe.Total.ICMSTot.vICMSUFDest + ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.vICMSUFDest;
ACBrNFe1.NotasFiscais.Items[n].NFe.Total.ICMSTot.vICMSUFRemet := ACBrNFe1.NotasFiscais.Items[n].NFe.Total.ICMSTot.vICMSUFRemet + ACBrNFe1.NotasFiscais.Items[n].NFe.Det.Items[t].Imposto.ICMSUFDest.vICMSUFRemet;
end;