Jump to content

icones_brancos.png

dia-do-acbr-online.png botao

botao.pngbotao.png

botao.pngbotao.png

Ofertas Embarcadero
Descontos de até 35%

Saiba Mais

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

Problema no envio do vIPIDevol


  • Este tópico foi criado há 778 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

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

  • Like 2
Link to post
Share on other sites

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

Link to post
Share on other sites

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.

Link to post
Share on other sites
  • Este tópico foi criado há 778 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui
Guest
This topic is now closed to further replies.
×
×
  • Create New...