Problema emissão de Carta de correção

[CarlosSolla]

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

[BigWings]

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

[CarlosSolla]

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.

[Italo Giurizzato Junior]

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?

[CarlosSolla]

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!

[Italo Giurizzato Junior]

Carlos,

Vou analisar a sua colaboração.

[Italo Giurizzato Junior]

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.

[CarlosSolla]

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!

[BigWings]

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

[CarlosSolla]

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!

[BigWings]

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.