Fórum Gerando relatório txt #515187
30/03/2015
0
Olá, estou começando a trabalhar com arquivos de texto com o delphi, porem não estou conseguindo fazer o que realmente preciso. Veja meu código abaixo:
.. Porem, esta gerando o relatório desta forma:
Produto: Coca cola 2 litros Quantidade: 50
------------------------------------------------------------------------------
Produto: refrigerante Quantidade: 21
------------------------------------------------------------------------------
Produto: pepsi 2 Lt Quantidade: 2
------------------------------------------------------------------------------
Produto: celular Lg g2 Quantidade: 50
------------------------------------------------------------------------------
Minha duvida mesmo é como colocar o (Titulo da coluna) como no exemplo abaixo, pois tentei de algumas formas e não tive exito. Eu preciso gerar um relatório parecido com este abaixo, alguém poderia me orientar?
- CONTROLE DE ESTOQUE
Códig Descrição Preço em $
----- --------------------------------------------- ----------
00001 Coca Cola Lata 350 ml 0,05
00002 Guaraná Antarctica Lata 350 ml 2,00
00003 Fanta Uva Lata 350 ml 0,05
00004 Fanta Laranja Lata 350 ml 0,05
00005 Sprite Lata 350 ml 0,05
----- --------------------------------------------- ----------
Número de registros: 5.
30 de Março de 2015 às 08:46:22
procedure TfEstoque.RelatriotxtdosItens1Click(Sender: TObject);
var arq: TextFile;
linha: String;
begin
AssignFile ( arq, 'C:\Relatório.txt' );
Rewrite ( arq );
ClientDataSet_estoque.First;
while not ClientDataSet_estoque.Eof do
begin
write(arq,'Produto: ');
WriteLn ( arq, AjustaStr (ClientDataSet_estoque.FieldByName ( 'DESCRICAO' ).AsString,40)+
'Quantidade: '+(ClientDataSet_estoque.FieldByName('QUANTI_ESTOQUE').AsString));
write(arq,'------------------------------------------------------------------------------');
WriteLn ( arq );
ClientDataSet_estoque.Next;
end;
CloseFile ( arq );
end;.. Porem, esta gerando o relatório desta forma:
Produto: Coca cola 2 litros Quantidade: 50
------------------------------------------------------------------------------
Produto: refrigerante Quantidade: 21
------------------------------------------------------------------------------
Produto: pepsi 2 Lt Quantidade: 2
------------------------------------------------------------------------------
Produto: celular Lg g2 Quantidade: 50
------------------------------------------------------------------------------
Minha duvida mesmo é como colocar o (Titulo da coluna) como no exemplo abaixo, pois tentei de algumas formas e não tive exito. Eu preciso gerar um relatório parecido com este abaixo, alguém poderia me orientar?
- CONTROLE DE ESTOQUE
Códig Descrição Preço em $
----- --------------------------------------------- ----------
00001 Coca Cola Lata 350 ml 0,05
00002 Guaraná Antarctica Lata 350 ml 2,00
00003 Fanta Uva Lata 350 ml 0,05
00004 Fanta Laranja Lata 350 ml 0,05
00005 Sprite Lata 350 ml 0,05
----- --------------------------------------------- ----------
Número de registros: 5.
30 de Março de 2015 às 08:46:22
Jhon
Curtir tópico
+ 0
Responder
Post mais votado
30/03/2015
Nilegor, seu título deverá estar fora do While e o total você poderá gravar em uma variável e escrever no arquivo após o fim do While!
Thiago Santana
Responder
Gostei + 1
Mais Posts
30/03/2015
Jhon
Muito obrigado Thiago, consegui perfeitamente colocar o titulo e colocar a variável para contar os registros.
Responder
Gostei + 0
30/03/2015
Thiago Santana
Show! :)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)