Percentual IPI

[Gildenor]

Caros,

Estou usando uma versao antiga do ACBrNFe e ainda nao havia tido a necessidade de nota com IPI, pois bem, o valor do ipi sai na impressao (no detalhe do produto) mas a aliquota nao imprime. Verifiquei o xml e la nao consta nem a aliquota (pIPI) nem a base de calculo (vBC).

Segue o treco do meu codigo:

If dProvider3.cdsCfopESTOQUE.Asstring = '-' then

CST := ipi50;

if ((CST) = ipi00) or ((CST) = ipi49) or

((CST) = ipi50) or ((CST) = ipi99) AND (dProvider1.cdsVendas_ItensIPI.AsFloat > 0.00 ) then

begin

IPI.pIPI := dProvider1.cdsVendas_ItensALIQ_IPI.AsFloat;

IPI.vIPI := dProvider1.cdsVendas_ItensIPI.AsFloat;

IPI.vBC := dProvider1.cdsVendas_ItensTOTAL.AsFloat;

Num1 := retsem(FloatToStrF(dProvider3.cdsItensnf_tmpQUANTIDADE.AsFloat,ffnumber,18,4),',');

IPI.qUnid := StrToFloat(Copy(Num1,1,Length(Num1)-1));

Num1 := retsem(FloatToStrF(dProvider3.cdsItensnf_tmpUNITARIO.AsFloat,ffnumber,18,4),',');

IPI.vUnid := StrToFloat(Copy(Num1,1,Length(Num1)-1)); //....R$ 100,00 / 20 unidades = R$ 5,00 cada unidade

end;

Grato pela ajuda!

Gildenor