Ir para conteúdo
  • Cadastre-se

dev botao

Problema no envio do vIPIDevol


  • Este tópico foi criado há 2054 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

  • Curtir 2
Link para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2054 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.