Gerar relatório a partir das colunas selecionadas.

Delphi

03/04/2015

Olá amigos, estou gerando um relatório do qual contém as informações de todas as colunas do produto: código, cod_barras,descrição, preço etc.
Gostaria de fazer um método de que o usuário escolhe-se quais campos saia no relatório. Meu código esta desta forma :
....
AssignFile ( arq, 'C:\Relatório.txt' );
Rewrite ( arq );
ClientDataSet_estoque.First;
writeln(arq,'Código   Cód. Barras    Descrição');
writeln(arq,'------   -----------    ----------------------------------------');
while not ClientDataSet_estoque.Eof do
  begin
   Write( arq,AjustaStr(ClientDataSet_estoque.FieldByName('COD_PRODUTO').AsString,9)+
   AjustaStr(ClientDataSet_estoque.FieldByName ('COD_BARRAS').AsString,15)+
   AjustaStr(ClientDataSet_estoque.FieldByName ('DESCRICAO').AsString,42));
....

Ai então pensei de usar o componente CheckBox e fazer algo assim:
if CheckBox_codigo.Checked = true then
begin
writeln(arq,'Código');
writeln(arq,'------');
end
else
begin
while not ClientDataSet_estoque.Eof do
begin
Write( arq,AjustaStr(ClientDataSet_estoque.FieldByName('COD_PRODUTO').AsString,9));
...

Mas desta forma não da certo, alguém poderia me orientar alguma forma que de certo de fazer isso? Obrigado pela atenção.
Jhon

Jhon

Curtidas 0
POSTAR