Problema no envio do vIPIDevol

[programadorfernando]

Estava com problema no envio de NFe de devolução em meus clientes na versão 4.0, eu preenchia o campo no componente mas não estava enviando as informações de ipi de devolução no xml, debugando o componente achei o ponto que não repassava o valor para o XML, alterei aqui no componente e gostaria de sugerir essa correção, para que em novas versões possa sair isso corrigido para o caso de mais alguém precisar. Segue abaixo parte do fonte onde alterei aqui e funcionou.

 

dentro da pasta Fontes\ACBrDFe\ACBrNFe\PCNNFe

 

no arquivo pcnNFe.pas

 

na procedure TICMSTot.Assign(Source: TPersistent);

 

estava assim: 

  if Source is TICMSTot then

  begin

    vBC := TICMSTot(Source).vBC;

    vICMS := TICMSTot(Source).vICMS;

    vICMSDeson := TICMSTot(Source).vICMSDeson;

    vFCPUFDest := TICMSTot(Source).vFCPUFDest;

    vICMSUFDest := TICMSTot(Source).vICMSUFDest;

    vICMSUFRemet := TICMSTot(Source).vICMSUFRemet;

    vBCST := TICMSTot(Source).vBCST;

    vST := TICMSTot(Source).vST;

    vProd := TICMSTot(Source).vProd;

    vFrete := TICMSTot(Source).vFrete;

    vSeg := TICMSTot(Source).vSeg;

    vDesc := TICMSTot(Source).vDesc;

    vII := TICMSTot(Source).vII;

    vIPI := TICMSTot(Source).vIPI;

    vPIS := TICMSTot(Source).vPIS;

    vCOFINS := TICMSTot(Source).vCOFINS;

    vOutro := TICMSTot(Source).vOutro;

    vNF := TICMSTot(Source).vNF;

    vTotTrib := TICMSTot(Source).vTotTrib;

    vFCP := TICMSTot(Source).vFCP;

    vFCPST := TICMSTot(Source).vFCPST;

    vFCPSTRet := TICMSTot(Source).vFCPSTRet;

  end

  else

    inherited;

 

e deixei assim:

  if Source is TICMSTot then

  begin

    vBC := TICMSTot(Source).vBC;

    vICMS := TICMSTot(Source).vICMS;

    vICMSDeson := TICMSTot(Source).vICMSDeson;

    vFCPUFDest := TICMSTot(Source).vFCPUFDest;

    vICMSUFDest := TICMSTot(Source).vICMSUFDest;

    vICMSUFRemet := TICMSTot(Source).vICMSUFRemet;

    vBCST := TICMSTot(Source).vBCST;

    vST := TICMSTot(Source).vST;

    vProd := TICMSTot(Source).vProd;

    vFrete := TICMSTot(Source).vFrete;

    vSeg := TICMSTot(Source).vSeg;

    vDesc := TICMSTot(Source).vDesc;

    vII := TICMSTot(Source).vII;

    vIPI := TICMSTot(Source).vIPI;

    vIPIDevol := TICMSTot(Source).vIPIDevol;

    vPIS := TICMSTot(Source).vPIS;

    vCOFINS := TICMSTot(Source).vCOFINS;

    vOutro := TICMSTot(Source).vOutro;

    vNF := TICMSTot(Source).vNF;

    vTotTrib := TICMSTot(Source).vTotTrib;

    vFCP := TICMSTot(Source).vFCP;

    vFCPST := TICMSTot(Source).vFCPST;

    vFCPSTRet := TICMSTot(Source).vFCPSTRet;

  end

  else

    inherited;

pcnNFe.pas

[Dercide Alvarez]

@programadorfernando

É estranho, só se alteraram os fontes, pois estava gerando a tag, eu mesmo gerei notas de devolução para testar essa situação e foram autorizadas com a geração da tag. No forum tivemos varios casos de NFe de devolução com a tag  vIpiDevol nos totais.

Dercide.

[ornei]

bom dia, o vIpiDevol nos totais esta gerando mas no item não gera, estou fazendo assim Nfe.Itens[0].vIpiDevol:=5,00 

[programadorfernando]

Na SEFAZ SP estava autorizando mesmo não indo no XML a tag, na sefaz do CE rejeitou ai que vi que não estava indo a tag e mudei isso e passou a gerar a tag.

Editado 10 Agosto, 2018 por programadorfernando
escrito errado

[André Ferreira de Moraes]

Correção enviada ao SVN - 15545. Obrigado pela colaboração.

[ornei]

Andre, removi a pasta do acbr e baixei novamente e no gerou a Tag impostoDevol segue código onde eu informei, este código e do acbrdemo, também segue o XML

  Produto := NotaF.NFe.Det.Add;
  Produto.Prod.nItem    := 1; // Número sequencial, para cada item deve ser incrementado
  Produto.Prod.cProd    := '123456';
  Produto.Prod.cEAN     := '7896523206646';
  Produto.Prod.xProd    := 'TESTE DE PRODUTO';
  Produto.Prod.NCM      := '94051010'; // Tabela NCM disponível em  http://www.receita.fazenda.gov.br/Aliquotas/DownloadArqTIPI.htm
  Produto.Prod.EXTIPI   := '';
  Produto.Prod.CFOP     := '5101';
  Produto.Prod.uCom     := 'UN';
  Produto.Prod.qCom     := 1;
  Produto.Prod.vUnCom   := 100;
  Produto.Prod.vProd    := 100;

  Produto.Prod.cEANTrib  := '7896523206646';
  Produto.Prod.uTrib     := 'UN';
  Produto.Prod.qTrib     := 1;
  Produto.Prod.vUnTrib   := 100;

  Produto.Prod.vOutro    := 0;
  Produto.Prod.vFrete    := 0;
  Produto.Prod.vSeg      := 0;
  Produto.Prod.vDesc     := 0;

  Produto.Prod.CEST := '1111111';

  Produto.infAdProd := 'Informacao Adicional do Produto';

  Produto.vIPIDevol := 5.00;

 

1180838709408000100550010000004531000045373-nfe.xml

[programadorfernando]

Boa noite, é preciso preencher também o pDevol com o percentual que está devolvendo, senão não envia a tag no item

[ornei]

Boa noite, depois do comentário do programadorfernado, resolvi informar o pDevol e vIPIDevol com os dois preenchidos gera a tag impostoDevol, só estava informando o valor, porque o cliente me passou só o valor e não mencionou nada sobre a alíquota, então não tem como informar só o valor, para gerar o xml correto e necessário informar os dois.

[programadorfernando]

Atenção a esse campo pDevol que não é alíquota de IPI e sim percentual de itens que está devolvendo da nota de entrada dessa mercadoria.

[ornei]

Bom dia, então se o item que estou devolvendo tiver quantidade 2 na nf de entrada e tiver devolvendo 1 pDevol=50% e se devolver os 2 pDevol=100%, 

[programadorfernando]

Isso mesmo

[ornei]

Ok Fernando, muito obrigado pela atenção.

[Felipe E. Resende Mesquita]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.