Filtrar 3 veces una grilla

[giulichajari]

Tengo un catalogo de productos que se muestra en forma de grilla obviamente, y deseo seleccionar en un DBLookupcombobox la categoria, entonces se filtra otro dblookupcombobox que es de subcategoria, y a la vez la grilla. Y al seleccionar una subcategoria se vuelve a filtrar la grilla, ademas tiene un edit para filtrar por nombre del producto los resgistros resultantes.

El caso es que tengo para la grilla un clientdataset con un datasetprovider y un query.
Y para cada combo un datasource con su table correspondiente.

El clientdataset tiene los campos idcategoria y idsubcategoria de tipo data

Código Delphi [-]
procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
DBLookupComboBox1.DropDown;
with ClientModule1.Tsubprod do
begin
   Filter:='idcategoria ='+IntToStr(DBLookupComboBox1.KeyValue);
   Filtered:=True;
end;
with ClientModule1.cdsprod do
begin

  Filter:='idcategoria ='+IntToStr(DBLookupComboBox1.KeyValue);
  Filtered:=True;
  DataSource.DataSet.Refresh;
end;

end;

procedure TForm1.DBLookupComboBox2Click(Sender: TObject);
begin
with ClientModule1.qproducto do
  begin
   Filter:='idsubcategoria = '+ IntToStr(DBLookupComboBox2.KeyValue);
   Filtered:=True;
  end;
end;

Pues el caso es que no funciona, no se que puede ser

[[AgustinOrtu]]

Agrega un botón y pone en su evento OnClick

Código Delphi [-]
  ShowMessage( ClientModule1.Tsubprod.Filter)

Efectúa un par de filtrados y luego clickea el botón así ves el contenido de la variable que maneja el filtro


En cada evento de filtrado no estas teniendo en cuenta los filtros anteriores, ya que estas asignando y remplazando el filtro anterior


Con el botón te das cuenta enseguida

Saludos

[giulichajari]

Empezado por AgustinOrtu

Agrega un botón y pone en su evento OnClick

Código Delphi [-]
  ShowMessage( ClientModule1.Tsubprod.Filter)

Efectúa un par de filtrados y luego clickea el botón así ves el contenido de la variable que maneja el filtro


En cada evento de filtrado no estas teniendo en cuenta los filtros anteriores, ya que estas asignando y remplazando el filtro anterior


Con el botón te das cuenta enseguida

Saludos

Gracias por responder, por empezar lo que esta mal es que uso un clientdataset, entonces debo filtrar este en todos los casos, tengo un dataset para usar el metodo loadfromfile en caso de que no haya conexiona internet y los campos idcategoria e idsubcategoria pertencen a otras tablas al igual que la marca..

Entonces debo guardar un xml por cada tabla y tener un datasource con un Tclientdataset para cada combo y la grilla, es correcto?

Porque si hago un Savetofile cuando hay conexion puedo guardar el idcategoria y el idsubcategoria por cada registro de producto, pero como lleno los combos? voy a poder llenar los nombres de las categorias y subs pero no el id asociado de dichas tablas?

como puedo resolver esto

[[AgustinOrtu]]

Ah no espera, crei que estabas usando un solo dataset, resulta que son 3, no me dí cuenta

Primero usaría otro evento y no el OnClick de los combos. Proba con el OnExit o el OnCloseUp

Yo sacaria el refresh que tenés por ahí

[ecfisa]

Hola giulichajari.

Tengo un catalogo de productos que se muestra en forma de grilla obviamente, y deseo seleccionar en un DBLookupcombobox la categoria, entonces se filtra otro dblookupcombobox que es de subcategoria, y a la vez la grilla. Y al seleccionar una subcategoria se vuelve a filtrar la grilla, ademas tiene un edit para filtrar por nombre del producto los resgistros resultantes.

A ver... Tenes dos datasets, un query, un ClientDataSet, dos DBLookupComboBox y un Edit y el problema se te presenta en el armado de la consulta vinculada al ClientDataSet.

De lo que leí y pude entender, creo que podrías hacer:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  // (1)
  DBLookupComboBox1.KeyValue := DataSet1.FieldByName( 'KEY_FIELD_1' ).Value;
  DBLookupComboBox2.KeyValue := DataSet2.FieldByName( 'KEY_FIELD_2' ).Value;
end;

procedure TForm1.btnFiltrarQueryClick(Sender: TObject);
var
  s: string;
begin
  with tu_Query do
  begin
    Close;
    SQL.Clear;
    SQL.Add( 'SELECT *'); // (2)
    SQL.Add('FROM TABLA1 T1, TABLA2 T2' );
    s := Format( 'WHERE T1.KEY_FIELD_1 = %s AND ', [QuotedStr( DBLookupComboBox1.KeyValue ) ] );
    s := s + Format( ' T2.KEY_FIELD_2 = %s ', [QuotedStr( DBLookupComboBox2.KeyValue ) ] );
    if Edit1.Text <> EmptyStr then
      s := s + 'AND T2.OTRO_CAMPO = ' + QuotedStr( Edit1.Text );
    SQL.Add( s );
    Open;
  end;
  ClientDataSet1.Refresh; // <- datasource <- dbgrid
end;

(1) KEY_FIELD_1 y KEY_FIELD_2 serán los nombres de campo que asignaste respectivamente a la propiedad KeyField de los combos y OTRO_CAMPO el campo por el que filtra el Edit.
(2) O mejor aún, la enumeración de los campos que desees seleccionar.

Como no has comentado si existe algún tipo de relación entre las tablas que pudiera acotar la consulta, el conjunto de datos que podría traer es muy grande...

Saludos

Consejo: Tomate el tiempo para publicar toda la información posible y las respuestas serán mas rápidas y precisas.

[giulichajari]

Bueno es un Terminal de Ventas, y pienso que la agilidad es importante, tenia 2 edits, uno para la categoria de producto y otro para la subcategoria de producto, pero es mejor si se ve el nombre completo de la categoria, entonces cambie por el combo. La idea es al seleccionar una categoria filtrar las subcategorias, por ejemplo de mano y de pie pertenecen a electricos, focos y lamparas a iluminacion, etc..
Pero voy a probar tu metodo.

Y con respecto a los componentes: si tengo un Clientdataset : no es mejor filtrar este y no el query asociado?

Tambien quiero usar un evento para no tener que hacer click en el boton.. la idea es usar el teclado y lo menos posible el raton. los combos los completo con el mismo tclientdataset.