reporte desde un DBGrid

[Alexandro]

Hola coso:
Yo acceso a ella por tablas con TTables y TQuerys. Les piedom que me ayuden en esto por favor. Es una de las pocas cosas que me faltan para terminar mi programa.
Gracias.

[[coso]]

Código Delphi [-]
// todos los registros
query1.Active := false;
query1.SQL.Text := 'select * from tabla';
query1.Active := true;

Código Delphi [-]
//los registros con una condicion
query2.Active := false;
query2.SQL.Text := 'select * from tabla where cliente = ''%MI%''';
query2.Active := true;

antes de llamar al preview del quickreport, pones su propiedad dataset a la query q quieras sacar

Código Delphi [-]
 
QuickRep1.DataSet := Query2; // caso filtrado
QuickRep1.Preview;
...
QuickRep1.DataSet := Query1; // caso sin filtrar
QuickRep1.Preview;
...

...
por lo que veo ahora estas hablando de registros seleccionados, supongo que con el multiselect. Entonces debes usar la propiedad SelectedRows para, con sus items, saber que registros se han marcado y construir asi tu query2

Código Delphi [-]
Query2.Active := false;
Query2.sql.text := 'select * from tablas where id = -1 and' 
for i := 0 to DBGrid1.SelectedRows.Count do
Query2.sql.text := ' id = ' + DBGrid1.SelectedRows.Items[i] + ' and';
 
Query2.Active := true;

PD: lo de arriba es pseudocodigo. deberas investigar en el foro o en la ayuda el correcto uso de Selectedrows.

[Garry]

También, aunque no lo he examinado detenidamente, veo que esto falla:
[quote=coso;298671]

Código Delphi [-]
Query2.Active := false;
Query2.sql.text := 'select * from tablas where id = -1 and' 
for i := 0 to DBGrid1.SelectedRows.Count do
Query2.sql.text := ' id = ' + DBGrid1.SelectedRows.Items[i] + ' and'; 
Query2.Active := true;

... habiendo que eliminar un AND sobrante:

Código Delphi [-]
Query2.Active := false;
Query2.sql.text := 'select * from tablas where id = -1' 
for i := 0 to DBGrid1.SelectedRows.Count do
Query2.sql.text :=  ' and id = ' + DBGrid1.SelectedRows.Items[i]; 
Query2.Active := true;

No he examinado más. Saludos...

[[coso]]

fe de erratas, faltaba colocar lo anterior

Código Delphi [-]

Query2.sql.text := Query2.sql.Text + ' and id = ' + DBGrid1.SelectedRows.Items[i];

[[Lepe]]

Un detallito: No puedes usar el operador "and" al unir los where, porque ningún registro cumple todas las condiciones.

Te aconsejo recorrer selected rows y que el sql quede así:

Código SQL [-]
select * from mi tabla 
where idCliente in (1, 22, 3, 44, 55)

La forma de obtenerlo desde el grid es muy parecido a lo dicho por coso:

Código Delphi [-]
var ids:string;
begin
ids := EmptyStr;
for i := 0 to DBGrid1.SelectedRows.Count -1 do
begin
  GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
  ids := ids + dbgrid.datasource.dataset.Fieldbyname('idCliente').AsString + ', ';
end;
 delete(ids, length(ids)-1, 1); // borrar ultima coma
 query2.sql.text := 'select * from mi tabla where idCliente in (' + ids + ')';
QuickRep1.DataSet := Query2;

Estoy suponiendo que tu campo clave se llama idCliente y está declarado en la base de datos como entero. Si es un string, debe quedar el sql así:

Código SQL [-]
select * from mi tabla 
where idfactura in ('c00001', 'c00002', 'c00007')

Tip: usa la rutina QuotedStr para entrecomillar cada número de factura.


SAludos