Imprimindo dados de uma tabela em TXT.

Delphi

08/08/2003

Bom dia, preciso muito da ajuda de vocês.
Tenho uma tabela, na qual busco os dados e preciso imprimir em um arquivo TXT. Tenho que controlar a localização dos mesmos. Por exemplo:
O cod. registro começa no inicio (localização 1),seguido pelo cod do serviço que tem 2 digitos. Se o campo estiver em branco na tabela, o espaço no registro também, deve ficar vago, segue-se então todos os dados abaixo. Todos os registros devem ser inseridos em uma mesma linha, na sequência abaixo.

Cód. registro De 1 Até 1 total= 1 dig Conteúdo: ´0´
Código do serviço De 2 Até 2 total= 1 dig Conteúdo: ´2´
Literal do serviço De 3 Até 9 total=7 Conteudo : RETORNO
Código Retorno De 10 Até 11 total=2 Conteudo : ‘01’
Literal Retorno De 12 1Até 9 total=8 Conteudo ´COBRANCA´
Reservado De 20 Até 25 total=6 Conteudo ´ Brancos
Ident. Cedente De 26 Até 39 total=14 Conteudo Numérico
Reservado De 40 Até 44 total=5 Conteudo Brancos
Nome da empresa De 45 Até 74 total=30 Conteudo Alfanumérico
Reservado De 75 Até 78 total=4 Conteudo Brancos
Nome da Empresa De 79 Até 87 total=9 Conteudo branco
Reservado De 88 Até 97 total=10 Conteudo brancos
Data gravação De 98 Até 103 total=6 Conteudo (DDMMAA)
Reservado De 104 Até 388 total=285 Conteudo Brancos
Nº seq. arquivo De 389 Até 394 total=6 Conteudo Numérico
Nº seq. registro De 395Até 400 total=6 Conteudo ´000001´

Preciso muito da ajuda de vocês.
Obrigado mais uma vez...
Jander


Jander

Jander

Curtidas 0

Respostas

Edineidaniel

Edineidaniel

08/08/2003

Bom quanto q questão de ordenar os dados que vc quer no Relatório é só uma questão de programação e ordenação...

Vc usa um QuickReport, (acho que sim)... então ai vai..

Na propriedade Bands...vc colocar o HasTitle e o HasDetail = True;
No Detail vão os campos que vc quer colocar no relatórios...quando isso for montador...vc usa o seginte código...em um botão.....

GERAR RELATÓRIO COM TXT, XLS, DOC, HTML

´´Na clausula uses, acrescente a unit QRExport

Exportando para HTML: QuickReport.ExportToFilter(TQRHTMLDocumentFilter.Create(´c:\teste.html´));

Exportando para DOC ou TXT: QuickReport.ExportToFilter(TQRAsciiExportFilter.Create(´c:\teste.doc´)); ´


Espero que te ajude...mais informações... estou a disposição

Edinei
Programador Delphi/FireBird


GOSTEI 0
POSTAR