filtrar datos desde delphi 6
 

Buenas tardes:

He hecho un reporte con crystal reports vs 8; he hecho lo siguiente:

desde el crystal sql designer agregue la siguiente sentencia sql:

Código SQL [-]
select distinct prod_comp.codigo_prod, prod_comp.item_subprod, subcomp.nomesp_comp, subcomp.nomesp_ingles, prod_comp.canti, subprod.nomesp_prod from prod_comp
inner join subcomp on subcomp.codigo_comp=prod_comp.codigo_comp and subcomp.item_subcomp=prod_comp.item_subcomp
inner join subprod on subprod.codigo_prod=prod_comp.codigo_prod and subprod.item_subprod=prod_comp.item_subprod

y desde el segate crystal reports organice el reporte tal y como deseo que salga.

Mi duda consiste en como filtrar el resultado de este reporte desde delphi vs 6 usando las componentes vcl que me provee el crystal solutions, lo he intentado hacer de esta manera pero aun asi me siguen saliendo todos los registros:

Código Delphi [-]
crpe1.ReportName := 'D:\reportes\Plantillas_Productos_ofertas.RPT';
   crpe1.Connect.Password:='masterkey';
   crpe1.SQL.Retrieve;
   crpe1.SQL.Query.Add('where codigo_prod ='+Quotedstr(dblookupcombobox1.KeyValue)+' and item_subprod =' +Quotedstr(dblookupcombobox2.KeyValue));
   crpe1.Show;

existe otra manera de filtrar los datos desde delphi ??? :confused:

mi base de datos es interbase version 6, gracias :)

Buenos dias:

Amigos he podido solucionar mi inconveniente, encontre esto en la ayuda de delphi:

Código Delphi [-]
 
Crpe1.ReportName := 'Report1.rpt';
 Crpe1.Selection.Formula.Clear;
 Crpe1.Selection.Formula.Add('{company.STATE} = "CA"');
 {or Crpe1.Selection.Formula.Text := '{company.STATE} = "CA"';}
 Crpe1.Show;

para lo cual lo adapte asi a mi problema:

Código Delphi [-]
 
   crpe1.ReportName := 'D:\reportes\Plantillas_Productos_ofertas.RPT';
   Crpe1.Selection.Formula.Clear;
   Crpe1.Selection.Formula.Add('{prod_comp.codigo_prod} = 2');
   crpe1.Show;

Y listo ;)