Sugestão de alteração na função PrepareReportEvento da unit ACBrNFeDANFEFR

[Fabiano Ribeiro]

Olá pessoal,

Apenas uma sugestão, ja existe um codigo similiar na função TACBrNFeDANFEFR.PrepareReport para poder fazer o "LoadFromStream", só colocar a mesma opção para a função TACBrNFeDANFEFR.PrepareReportEvento. Segue como ficaria a sugestão:

 

function TACBrNFeDANFEFR.PrepareReportEvento: Boolean;
Var
 wProjectStream: TStringStream;
begin
  if Trim(FastFileEvento) <> '' then
  begin
    if not (uppercase(copy(FastFileEvento,length(FastFileEvento)-3,4))='.FR3') then
    begin
      wProjectStream:=TStringStream.Create(FastFileEvento);
      fdmDanfe.frxReport.FileName := '';
      fdmDanfe.frxReport.LoadFromStream(wProjectStream);
      wProjectStream.Free;
    end
    else
    begin
      if FileExists(FastFileEvento) then
        fdmDanfe.frxReport.LoadFromFile(FastFileEvento)
      else
        raise EACBrNFeDANFEFR.CreateFmt('Caminho do arquivo de impressão do EVENTO "%s" inválido.', [FastFileEvento]);
    end;
  end
  else
    raise EACBrNFeDANFEFR.Create('Caminho do arquivo de impressão do EVENTO não assinalado.');

  FdmDanfe.frxReport.PrintOptions.Copies := NumCopias;

  // preparar relatorio
  if Assigned(ACBrNFe) then
  begin
    if assigned(TACBrNFe(ACBrNFe).EventoNFe) then
    begin
      FdmDanfe.Evento := TACBrNFe(ACBrNFe).EventoNFe;
      FdmDanfe.CarregaDadosEventos;
    end
    else
      raise EACBrNFeDANFEFR.Create('Evento não foi assinalado.');

    if TACBrNFe(ACBrNFe).NotasFiscais.Count > 0 then
    begin
      FdmDanfe.frxReport.Variables['PossuiNFe'] := QuotedStr('S');
      FdmDanfe.NFe := TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFe;
      FdmDanfe.CarregaDadosNFe;
    end;

    Result := FdmDanfe.frxReport.PrepareReport;
  end
  else
    raise EACBrNFeDANFEFR.Create('Propriedade ACBrNFe não assinalada.');
end;

 

Obrigado.

 

Fabiano

Editado 7 Julho, 2015 por Fabiano Ribeiro

[Juliomar Marchetti]

Anexe o arquivo para efetuar o merge!

[Fabiano Ribeiro]

Segue anexo o arquivo com a sugestão.

ACBrNFeDANFEFR.pas