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.

[ecfisa]

Hola giulichajari

Empezado por giulichajari

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

Siendo sincero no entiendo todos los pormenores como para aconsejarte el uso de uno u otro, pero el filtrado equivalente al anterior sobre el ClientDataSet, sería algo así:

Código Delphi [-]
...
var
  s: string;
begin
  with ClientDataSet1 do
  begin
    Filtered := False;
    s := EmptyStr;
    if Edit1.Text <> EmptyStr then
      s := s + ' AND OTRO_CAMPO = ' + QuotedStr( Edit1.Text );
    Filter   := Format( 'KEY_FIELD_1 = %s AND KEY_FIELD_2 = %s %s', 
      [ QuotedStr( DBLookupComboBox1.KeyValue ), QuotedStr( DBLookupComboBox2.KeyValue ), s ] );
    Filtered := True;
  end;
end;

Eso si, en este caso, los campos KEY_FIELD_1, KEY_FIELD_2 y OTRO_CAMPO deberán estar incluidos en el SELECT de la consulta.

Saludos

[giulichajari]

Lo que estuve leyendo es que es bueno aplicar rangos. Luego de que el dataset de productos tenga el rango de subcategoria aplicar el filtro por nombre para los productos de esa subcategoria. Ejecutar la consulta de vuelta tiene una sobrecarga, por eso no modifico el query, aparte trabajo sin conexion. Ademas filtrar por varios campos supone aplicar la subcategoria y el nombre de vuelta, de la otra forma se hace solo por los registros ya filtrados

[ecfisa]

Hola giulichajari.

Empezado por giulichajari

Lo que estuve leyendo es que es bueno aplicar rangos. Luego de que el dataset de productos tenga el rango de subcategoria aplicar el filtro por nombre para los productos de esa subcategoria.

Así es, aunque los rangos tienen algunas limitantes:

• Están basados en índices, y la/las columnas a que se apliquen deberán estar indizadas y dicho índice activo.
• Solo se puede definir rangos sobre una columna (índice) en un momento dado, si bién esto se soluciona usando combinaciones rango/filtro.

Si estas interesado por profundizar el tema, recuerdo que La cara oculta de Delphi 4, dedica unas cuantas páginas a tratarlo de manera clara y con ejemplos.

Saludos

[giulichajari]

Ya se puede marcar el tema como resuelto y gracias ecfisa:

Código Delphi [-]

procedure TForm1.DBLookupComboBox1Exit(Sender: TObject);
begin
if DBLookupComboBox1.KeyValue<>null then
 begin
    with ClientModule1.cdssubcat do
    begin
          begin
            IndexFieldNames:='idcategoria';
            SetRange([DBLookupComboBox1.KeyValue],[DBLookupComboBox1.KeyValue]);

          end;

    end;
 end;

end;

procedure TForm1.DBLookupComboBox2Click(Sender: TObject);
begin
 with ClientModule1.cdsprod do
              begin
                  IndexFieldNames:='idsubcategoria';
                  SetRange([DBLookupComboBox2.KeyValue],[DBLookupComboBox2.KeyValue]);

              end;
end;

procedure TForm1.EnombreChange(Sender: TObject);
begin
   if DBLookupComboBox2.KeyValue<>null then
       begin
          with ClientModule1.cdsprod do
            begin

              Filtered:=False;
              Filter:='nombre LIKE ''' +'%'+Enombre.Text+'*''' ;

              Filtered:=True;

            end;
      end;
end;

Ademas se podria mostrar en orden alfabetico por marca por ejemplo o por precio.

Lo unico que me gustaria es en vez de un combo un edit que se despliegue... auunque se puede escribir encima del combo y se filtra.