Erro na exportação de TXT ( QuickRpt )
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
Curtidas 0
Respostas
Marcos P
26/02/2015
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+
GOSTEI 0