Gerar relatório a partir das colunas selecionadas.

[nilegor]

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 vão sair no relatório. Meu código esta desta forma :

#Código ....

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:

#Código

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.

Editado Abril 6, 2015 por nilegor

[Jhonas]

C:\Relatório.txt

esse relatório já esta pronto no arquivo .txt ? e voce quer selecionar as colunas nesse .txt para imprimir ?

[nilegor]

Olá Jhonas, não. Na verdade quero selecionar as colunas antes de gerar o arquivo de texto, para que quando o arquivo for gerado, já esteja com as colunas que foram selecionadas.

[Jhonas]

voce pode selecionar as colunas da tabela usando sql

exemplo

select cod_produto, cod_barras, descricao from tabela

ou

select descricao, preço, cod_produto from tabela

dessa forma o seu ClientDataSet_estoque vai conter apenas as colunas que voce definiu no select

abraço

[nilegor]

Vou testar, obrigado.