Jump to content

110.png

Curso Gratuito para todos Usuários
+ Super Treinamento Assinando o SAC Anual

botao_campanha_thulio.png

sem_ttulo-620.fw_-e1583866078274.png 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

programadorfernando

Problema no envio do vIPIDevol

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

Share this post


Link to post
Share on other sites

@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.

Share this post


Link to post
Share on other sites

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.

Edited by programadorfernando
escrito errado

Share this post


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

Share this post


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.

Share this post


Link to post
Share on other sites

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%, 

  • Like 1

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...