Fórum Erro na exportação de TXT ( QuickRpt ) #512068
26/02/2015
0
Pessoal,
> Delphi 2010
> Quick Report 5.04.02
Mais um enrosco na migração do sistema de D5 >> Delphi 2010... problemas na exportação de relatórios do QuickReport para arquivos TXT !
Na exportação de arquivos TXT do sistema, a versão em D5 gera corretamente o arquivo de saída.
Quando exporto o mesmo TXT no Delphi 2010, parte do relatório não é gerado... na verdade partes aleatórias !
Por exemplo : um TXT original de 1567 linhas na versão D5, é gerado com 1146 linhas na versão D2010.
O código fonte é o mesmo, assim como o componente de exportação : FQuickRpt.ExportToFilter().
Alguém já viu algo parecido ?
Alguma ideia de como contornar ?
Obrigado.
> Delphi 2010
> Quick Report 5.04.02
Mais um enrosco na migração do sistema de D5 >> Delphi 2010... problemas na exportação de relatórios do QuickReport para arquivos TXT !
Na exportação de arquivos TXT do sistema, a versão em D5 gera corretamente o arquivo de saída.
Quando exporto o mesmo TXT no Delphi 2010, parte do relatório não é gerado... na verdade partes aleatórias !
Por exemplo : um TXT original de 1567 linhas na versão D5, é gerado com 1146 linhas na versão D2010.
O código fonte é o mesmo, assim como o componente de exportação : FQuickRpt.ExportToFilter().
Alguém já viu algo parecido ?
Alguma ideia de como contornar ?
Obrigado.
Marcos P
Curtir tópico
+ 0
Responder
Posts
26/02/2015
Marcos P
Resolvido !
O problema tem a ver com o cálculo da quebra de páginas durante a rotina de geração / exportação do TXT no QuickReport, mais especificamente em : QRExport.TQRAsciiExportFilter.EndPage.
Ajustei o tamanho da página antes de gerar o filtro no QuickReport ( FQuickRpt.Page.Length := 300 ) e funcionou...
Espero que isso seja útil a alguém.
T+
O problema tem a ver com o cálculo da quebra de páginas durante a rotina de geração / exportação do TXT no QuickReport, mais especificamente em : QRExport.TQRAsciiExportFilter.EndPage.
Ajustei o tamanho da página antes de gerar o filtro no QuickReport ( FQuickRpt.Page.Length := 300 ) e funcionou...
FQuickRpt.Page.Length := 300;
FFilter := TQRASCIIExportFilter.Create(FFileName);
FQuickRpt.ExportToFilter(FFilter);
Espero que isso seja útil a alguém.
T+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)