Problemas com DANFE Fortes com muitos produtos

[Thomas]

Boa Tarde Pessoal,

Passei minha aplicação para Trunk 2 e mudei o report de Fast para o Fortes. Isso já faz algumas semanas e tudo ia bem, porém hoje um cliente meu esta tentando imprimir uma DANFE com 80 produtos e simplesmente o arquivo PDF não gera, até cria o PDF em 1kb, mas não gera nada dentro dele. 

Obs.: O xml está correto e validado, a nota está ok junto ao sefaz.

Alguém tem alguma sugestão do que posso fazer?

Agradeço!!

[Régys Silveira]

Pode postar o XML para podermos testar, eu fiz alguns aqui com mais de 200 itens e estavam normais.

[Thomas]

Opa, mandei para o teu e-mail.
Obrigado pela atenção

[Régys Silveira]

Recebi o arquivo, só me diz uma coisa você está imprimindo para uma impressora não fiscal, impressora normal ou gerando PDF.

[Thomas]

Opa, gerando PDF.

[Thomas]

Atualizei os pacotes ACBr, o progress até diz que serão 8 páginas, porém na hora de salvar o PDF ele fica em 1Kb.

[Thomas]

Pessoal o problema persiste se alguém poder me ajudar agradeço.

[Juliomar Marchetti]

Boa tarde!

você refez a compilação dos pacotes?

e o fortes report está com versão correta? frce? está recompilado?

[Régys Silveira]

Desculpe a demora no retorno, correria aqui.

Acabei de testar e está tudo ok gerou um DANFE com 8 páginas, você está com seu ACBr e Fortes Report atualizados?

Fiz um teste simples, adicionei um button, opendialog, acbrnfe e acbrdanfefr ao form, liguei os componentes da danfe e NFe e codifiquei o seguinte no button:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    ACBrNFeDANFeRL1.PathPDF := ExtractFilePath(ParamStr(0));

    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

    ACBrNFe1.NotasFiscais.ImprimirPDF;
  end;
end;

Simples assim, gerou normalmente as 8 páginas e salvou junto do executável.

[Thomas]

Fiz o teste isolando o processo de geração do PDF fora da minha aplicação e realmente funciona, agora quando tento fazer a mesma coisa dentro da minha aplicação retorna o erro de Project ... raised exception class Exception with message 'File is corrupted'.

O erro é gerado na linha 2566 do RLMetaFile.
 

procedure TRLGraphicSurface.LoadFromStream(AStream: TStream);
  procedure LoadHeaderFromStream(AStream: TStream);
  var
    data: AnsiString;
    ch: char;
    I: Integer;
  begin
    SetLength(data, MaxSurfaceHeader);
    I := 0;
    while (I < MaxSurfaceHeader) and (AStream.Read(ch, 1) = 1) do
    begin
      Inc(I);
      data[I] := AnsiChar(ch);
      if ch = #26 then
        Break;
    end;
    SetLength(data, I);
    if data <> SurfaceHeaderStr then
      raise Exception.Create('File is corrupted!');
  end;

....
 

[Régys Silveira]

Você deve ter alguma arquivo .pas ou .dcu antigo do Fortes em algum lugar do path do seu aplicativo e provavelmente isto está causando o problema.

Tente limpar todos os .dcu e verificar nos paths se não tem algum .pas antigos do Fortes, remova e deixe somente os corretos.

[Thomas]

Bom dia,

Resolvi formatar o meu computador e reinstalei tudo novamente e agora funcionou tudo perfeitamente.

Muito obrigado Régys pela atenção!

Abraço.

[Laudelino]

Boa noite.

Ao imprimir um DanfeC, a fonte está muito grande, não aparecendo o valor total da compra, valor unitário, e outras letras. A impressora é Epson TM-T20 Receipt. Não Fiscal. Tenho como ajustar isso no ACBrNFeMonitor?

Laudelino

[hleorj]

46 minutos atrás, Laudelino disse:

Boa noite.

Ao imprimir um DanfeC, a fonte está muito grande, não aparecendo o valor total da compra, valor unitário, e outras letras. A impressora é Epson TM-T20 Receipt. Não Fiscal. Tenho como ajustar isso no ACBrNFeMonitor?

Laudelino

Favor criar um post .Descrevendo o seu problema.

[hleorj]

39 minutos atrás, Laudelino disse:

Boa noite.

Ao imprimir um DanfeC, a fonte está muito grande, não aparecendo o valor total da compra, valor unitário, e outras letras. A impressora é Epson TM-T20 Receipt. Não Fiscal. Tenho como ajustar isso no ACBrNFeMonitor?

Inclui num outro post, específico para o problema. Obrigado.

Laudelino

@Laudelino, repetindo a mesma pergunta varias vezes ???