erro no metodo ImprimirEVENTOPDF

[Danilo Yoshio]

eu identifiquei como erro, e arrumei no meu. se alguem puder confirmar. eu agradeco.

 

no metodo TACBrNFeDANFEFR.ImprimirEVENTOPDF, na linha 431 esta imprimindo a danfe e não o evento. 

Eu troquei ImprimirDANFEPDF por ImprimirEVENTOPDF;

Errado: 

procedure TACBrNFeDANFEFR.ImprimirEVENTOPDF(NFE: TNFe);
var I : Integer;
begin
  FdmDanfe.DANFEClassOwner.FIndexImpressaoIndividual        := -1;
  if Assigned(NFE) then
  begin
    FdmDanfe.ImprimirEVENTOPDF(NFE);
    FPArquivoPDF := FdmDanfe.frxPDFExport.FileName;
  end else
  begin
    for I := 1 to TACBrNFe(FdmDanfe.DANFEClassOwner.ACBrNFe).EventoNFe.Evento.Count do
    begin
      FdmDanfe.DANFEClassOwner.FIndexImpressaoIndividual := I;
      FdmDanfe.ImprimirEVENTOPDF(NFE); // FdmDanfe.ImprimirDANFEPDF(NFE);
      FPArquivoPDF := FdmDanfe.frxPDFExport.FileName;
    end;
  end;    
end;

 

[Juliomar Marchetti]

Boa noite

tens razão. acabei de subir ao svn a correção 

At revision: 41002

[Danilo Yoshio]

Legal. obrigado. 

posso tirar mais uma duvida com vc ainda dentro da impressão dos eventos pelos FastReport?

na ultima linha da função PrepareReportEvento do ACBrNFeDANFEFRDM (2272), é definido o Indice do evento pra zero (DANFEClassOwner.FIndexImpressaoEventosIndividual := 0).

ai no procedimento ImprimirEVENTOPDF, q chamou a função PrepareReportEvento um pouco antes, na hora de definir uma parte do nome do arquivo é executado (Evento.Evento[DANFEClassOwner.FIndexImpressaoEventosIndividual-1].InfEvento.id)

e causando um index out of bound. 

eu ate comparei com as versões anteriores, mas nao entendi bem. 

para corrigir isso precisei comentar a linha 2272 que zera o indice. 

 

obrigado. 

[Juliomar Marchetti]

lembre-se um tópico , uma dúvida. uma solução ou mais

assim mantemos organizado para quem pesquisar 

vou concluir esse e tu abre um novo pois é situação nova

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.