Erro na impressão do DANFE - EReadError(Stream read error)

[Leandro Vignoto]

Boa Tarde !

  Já estava utilizando o Trunk2 e após efetuar um update na data de ontem estou com o seguinte problema:

  1) Ao executar a função AcbrNfe.NotasFiscais.Imprimir, apresenta a seguinte mensagem: RLNFe: Erro durante a preparação do relatório EReadError(Stream read error)

  Detalhes:

     - Em máquina local o problema não ocorre;

     - Ocorre em uma máquina de cliente;

     - Na maquina do cliente:

        - se executar a função utilizando os componentes o problema NÃO OCORRE.

        - se utilizar o ACBR-Demo o problema NÃO OCORRE;

        - Se criar variáveis locais para a execução da impressão o problema OCORRE. Isso já era utilizado anteriormente, conforme exemplo abaixo.

          var nQtdLin: Integer;
                localAcbrNfe: TACBrNFe;
                localACBrNFeDANFeRL: TACBrNFeDANFeRL;

          Begin

             localAcbrNfe := TACBrNFe.Create(nil);
             localACBrNFeDANFeRL := TACBrNFeDANFeRL.Create(nil);   

             localAcbrNfe.NotasFiscais.LoadFromString(DMDBE.cdsDOC002HIS.FieldByName('XMLRET').AsString,False);

              localAcbrNfe.DANFE := localACBrNFeDANFeRL;

              localAcbrNfe.NotasFiscais.Imprimir; // nesse ponto que ocorre o problema;

          End;

       - Executando o mesmo processo acima, porém para MDF-e o problema NÃO OCORRE.

     

Att.

Leandro Vignoto

     

Editado 6 Janeiro, 2016 por Leandro Vignoto

[Leandro Vignoto]

Boa Tarde ! 

  Alguém ?

Att.

Leandro

[Juliomar Marchetti]

Então querer num fórum aberto menos de 24 horas respostas é pedir demais.. !

aguarde

[Leandro Vignoto]

Boa Tarde !

   Me desculpe, não estou cobrando nada do que você está pensando (tipo assim, até agora ninguém viu), não foi essa a intenção.

   Inclusive tento ao máximo não abrir posts.

   Só coloquei mesmo para não ficar no esquecimento o post que a princípio possa parecer um erro. Fica tranquilo, responda quem puder sobre o assunto.

Att.

Leandro

[Juliomar Marchetti]

veja que não está no esquecimento pois nem 24 com que escrevi agora se passou!

[Leandro Vignoto]

verdade, vamos esperar mais um pouco então

[Leandro Vignoto]

Somente complementando os testes... para o CT-e também funciona normalmente da maneira que foi escrito na abertura do post.

O problema só ocorre para NF-e

Att.

Leandro

[Italo Giurizzato Junior]

Bom dia Leandro,

Porque você não coloca os componentes em um DataModule?

Em vez de ficar criando e destruindo toda hora que vai utilizar.

[Leandro Vignoto]

Bom dia, Italo..

Obrigado pelo retorno.

Anteriormente utilizava dessa forma que você falou, porém me deparei com a seguinte situação:

- Tenho processos que são executados de forma independente. Exemplo: Envio para sefaz, impressão de documentos, envio para clientes... etc. Se eu utilizar somente um componente no DM as informações carregadas no componente poderão entrar em conflito, pois posso iniciar um processo de autorização e ao mesmo tempo disparar um processo de envio de e-mail de outro xml, por isso crio e elimino o componente dentro do processo que estou executando.

Att.

 

Leandro Vignoto

[Leandro Vignoto]

Boa Tarde !

  Continuando os testes pude identificar que o erro ocorre no seguinte ponto:

  Arquivo RLReport.pas

  function TRLCustomReport.PreviewModal: Boolean;

  if FReportState = rsAbout then
    if not Prepare then
      Exit;

Att.

Leandro Vignoto

  

[Leandro Vignoto]

Boa Noite !

  Continuando os testes, o problema final ocorre no seguinte ponto:

  procedure TfrlDANFeRLRetrato.InitDados;

  // Carrega logomarca
  if (FLogo <> '') then
  begin
    if FileExists (FLogo) then
     rliLogo.Picture.LoadFromFile(FLogo)
    else
    begin
      LogoStream := TStringStream.Create(FLogo);
      try
         rliLogo.Picture.Bitmap.LoadFromStream(LogoStream);
      finally
         LogoStream.Free;
      end;
    end;
  end;

  No meu caso a variável FLogo estava vindo com espaço em branco ' ', gerando o problema.

Att.

Leandro Vignoto