Meus amigos,
Estou com um problema na impressão do IPI nos itens da DANFE, mesmo alimentando a variável o mesmo ñ é impresso. Somente a aliquota do IPI q ñ é impresso, mas o valor total do IPI é impresso e adicionado ao total da nota, segue abaixo a parte do sistema onde programo o IPI, se alguem puder ajudar ou identificar o erro, ficarei muito grado.
if qry_NotaItens01ALIQUOTAIPI.asfloat > 0 then
with IPI do
begin
CST := ipi50;
clEnq := '0';
cSelo := '0';
qSelo := 1;
cEnq := '0';
vUnid := qry_NotaItens01VALOR_PRODUTO.asfloat;
CNPJProd := StringToString(edtEmitCNPJ.text);
vBC := qry_NotaItens01VVENDA.asfloat;
pIPI := qry_NotaItens01ALIQUOTAIPI.asfloat;
vIPI := (vBC * pIPI)/100;
vTotalIPI := vTotalIPI + vIPI;
end;
Isso claro de de um While nos itens e dentro do ACBrNFe1.NotasFiscais... etc...
De já agradeço qualquer colaboração.
Sem mais,
Atenciosamente
Marcos Antônio