Ir para conteúdo
  • Cadastre-se

dev botao

Problema emissão de Carta de correção


CarlosSolla
Ver Solução Respondido por BigWings,
  • Este tópico foi criado há 1617 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Boa tarde a todos, 

Existe um problema na emissão da carta de correção da nota fiscal eletrônica quando são carregadas para a lista do componente ACBrNFe mais de uma nota, a carta de correção sempre sai com os dados da primeira nota.

Detectei que o problema estava na procedure PrepareReportEvento, na linha 2122, que sempre estava carregando o item zero:

      NFe := TACBrNFe(DANFEClassOwner.ACBrNFe).NotasFiscais.Items[0].NFe;

Fiz a correção na revisão17570 , e anexei a unit caso seja útil para mais alguém, aqui para mim resolveu o problema.

Abraço!

ACBrNFeDANFEFRDM.pas

  • Curtir 2
Link para o comentário
Compartilhar em outros sites

  • Moderadores
20 horas atrás, CarlosSolla disse:

Existe um problema na emissão da carta de correção da nota fiscal eletrônica quando são carregadas para a lista do componente ACBrNFe mais de uma nota, a carta de correção sempre sai com os dados da primeira nota.

Existe algum cenário onde você vai ter duas NFe carregadas no componente e precisar imprimir o evento?

Talvez fosse melhor bloquear essa situação...

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
47 minutos atrás, BigWings disse:

Existe algum cenário onde você vai ter duas NFe carregadas no componente e precisar imprimir o evento?

Talvez fosse melhor bloquear essa situação...

Boa tarde!

No cenário que utilizo aqui tenho uma tela de seleção na qual demonstro ao usuário as notas que têm carta de correção; o usuário pode selecionar várias notas para emissão da carta. Carrego todas as notas selecionadas para a lista do componente ACBrNFe,  e faço um FOR , chamando a procedure TACBrNFeDANFEFR.ImprimirEVENTO, passando como parâmetro cada item (NFe) carregado no componente ACBrNFe.

Caso o componente ACBrNFe sempre tiver somente um item carregado, não vai acontecer este problema. Nesse caso o parametro ANFE existente na procedure TACBrNFeDANFEFR.ImprimirEVENTO, fica sem utilidade.

Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...
  • Consultores

Boa tarde Carlos,

Pelo que eu entendi você carrega no componente vários XML de NF-e e os seus respectivos XML de Carta de Correção e manda imprimir, correto?

A impressão da primeira carta sai correto, a segunda em diante saem sempre com os dados da nota da primeira carta, correto?

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
2 minutos atrás, Italo Jurisato Junior disse:

Boa tarde Carlos,

Pelo que eu entendi você carrega no componente vários XML de NF-e e os seus respectivos XML de Carta de Correção e manda imprimir, correto?

A impressão da primeira carta sai correto, a segunda em diante saem sempre com os dados da nota da primeira carta, correto?

Boa tarde Italo,

É isso mesmo,  só sai correto a primeira, as demais cartas saiam errado, com dados da primeira NFe, então fiz esta correção na TACBrNFeDANFEFR.ImprimirEVENTO, para resolver o problema aqui, mas toda vez que atualizo os componentes ACBR tenho que ficar revisando.

Abraço!

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Carlos,

Fiz um merge com o fonte atual e passei para o pessoal que manja de Fast Report, acredito que ainda essa semana terei uma resposta.

Estando tudo OK, vamos enviar para o repositório.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
1 hora atrás, Italo Jurisato Junior disse:

Bom dia Carlos,

Fiz um merge com o fonte atual e passei para o pessoal que manja de Fast Report, acredito que ainda essa semana terei uma resposta.

Estando tudo OK, vamos enviar para o repositório.

Boa tarde Italo,

Agradeço muito!

Link para o comentário
Compartilhar em outros sites

  • Moderadores
Em 03/09/2019 at 15:08, CarlosSolla disse:

Boa tarde a todos, 

Existe um problema na emissão da carta de correção da nota fiscal eletrônica quando são carregadas para a lista do componente ACBrNFe mais de uma nota, a carta de correção sempre sai com os dados da primeira nota.

Detectei que o problema estava na procedure PrepareReportEvento, na linha 2122, que sempre estava carregando o item zero:

      NFe := TACBrNFe(DANFEClassOwner.ACBrNFe).NotasFiscais.Items[0].NFe;

Fiz a correção na revisão17570 , e anexei a unit caso seja útil para mais alguém, aqui para mim resolveu o problema.

Abraço!

ACBrNFeDANFEFRDM.pas 92 kB · 7 downloads

Fiz algumas mudanças no seu código, por favor, atualize os fontes de todas as pastas, depois substitua a unit ACBrNFeDANFEFRDM.pas pelo arquivo anexo e faça testes.

 

ACBrNFeDANFEFRDM.pas

  • Curtir 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
5 horas atrás, BigWings disse:

Fiz algumas mudanças no seu código, por favor, atualize os fontes de todas as pastas, depois substitua a unit ACBrNFeDANFEFRDM.pas pelo arquivo anexo e faça testes.

 

ACBrNFeDANFEFRDM.pas 93 kB · 2 downloads

Ola BigWings,

Boa tarde!

Atualizei e colei a sua unit aqui, fiz vários testes e deu certo.

Mais uma vez agradeço a todos.

Abraço!

  • Curtir 2
Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Solution
11 minutos atrás, CarlosSolla disse:

Atualizei e colei a sua unit aqui, fiz vários testes e deu certo.

Obrigado pelo retorno.

Enviei atualização para o repositório, rev. 18054.

Obrigado pela contribuição.

  • Curtir 2
  • Obrigado 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.