imp relatorio quickrep apenas da seleção de regist do dbgrid
Tenho banco de dados de corretores com seus respectivos clientes:
tbcorretor(master) Nome código,.......
tbClientes(Detail) datainclusao, cliente, valor..........
quero selecionar clientes só de uma data no dbgrid, por exemplo, e esse dbgrid fique selecionado e quando cliecar num botao onde acesse o preview do quick que exiba o relatorio de corretores com seus respectivos clientes, só com os clientes selecionados no dbgrid.
meu banco de dados e Access e uso adotable
muito grato,
adriano.
tbcorretor(master) Nome código,.......
tbClientes(Detail) datainclusao, cliente, valor..........
quero selecionar clientes só de uma data no dbgrid, por exemplo, e esse dbgrid fique selecionado e quando cliecar num botao onde acesse o preview do quick que exiba o relatorio de corretores com seus respectivos clientes, só com os clientes selecionados no dbgrid.
meu banco de dados e Access e uso adotable
muito grato,
adriano.
Xadriano
Curtidas 0
Respostas
Cabelo
13/07/2005
Existem inúmeras opções para realizar este evento..
Uma idéia, e ao meu ver a mais fáil de desenvolver seria você criar uma tabela temporária e inserir somente os dados selecionados no grid, e imprimir a partir desta tabela..
Uma idéia, e ao meu ver a mais fáil de desenvolver seria você criar uma tabela temporária e inserir somente os dados selecionados no grid, e imprimir a partir desta tabela..
GOSTEI 0
Xadriano
13/07/2005
e como faço isso?
GOSTEI 0
Cabelo
13/07/2005
Crie um atabela na base de dados com os campos do relatório..
Insira nela os dados selecionados do grid, depois é só fazer o relatório selecionando tudo desta tabela.
Insira nela os dados selecionados do grid, depois é só fazer o relatório selecionando tudo desta tabela.
GOSTEI 0
Cabelo
13/07/2005
Acho que o que vc está querendo é isso :
v_sql := ´delete from Tabela Temporária´;
ExceSql;
if Grid.SelectedRows.Count > 1 then
begin
for v_i := 0 to Grid.SelectedRows.Count - 1 do
begin
Grid.DataSource.DataSet.GotoBookmark(Pointer(Grid.SelectedRows.Items[v_i]));
v_sql := ´insert into Tabela Temporaria (campos) values (valores);
ExecSql
end;
end
else
begin
insere todos os campos do grid;
end;
espero ter ajudado.
v_sql := ´delete from Tabela Temporária´;
ExceSql;
if Grid.SelectedRows.Count > 1 then
begin
for v_i := 0 to Grid.SelectedRows.Count - 1 do
begin
Grid.DataSource.DataSet.GotoBookmark(Pointer(Grid.SelectedRows.Items[v_i]));
v_sql := ´insert into Tabela Temporaria (campos) values (valores);
ExecSql
end;
end
else
begin
insere todos os campos do grid;
end;
espero ter ajudado.
GOSTEI 0