8 respuestas en este tema

[Caminante21]

Hola de nuevo aqui con una pequeña duda que espero me puedan ayudar a resolver.

Tengo un listado que muestra entre otras cosas los nombre de clientes y documentos que tiene pendientes. Hasta ahi todo bien pero a surgido la necesidad de filtrar los datos para mostrar los clientes con un numero determinado de documentos pendientes que sera especificado por el usuario del sistema. Los datos provieene de una consulta algo compleja y alimentan un clientdataset.
Asi que para obtener la cantidad de documentos por cliente use un campo aggregate con la expression Count(NombreCli) ahora solo faltaba filtrar los datos.
Intente algo asi:

delphi

ClientDataSet1.Filtered:=false;
 ClientDataSet1.Filter:='CANTIDAD>=2'; //Por ejermplo 
  ClientDataSet1.Filtered:=true;

Pero me envio este error:

Field 'Cantidad' cannot be used in a filter expression.

Por lo que veo que no puedo usar un campo aggregate con la propiedad filter.

Asi que quisiera pedir me den alguna luz para lograr mi objetivo o alguna otra alternativa para hacerlo desde el clientdataset.

Gracias por la atencion

[Wilson]

El campo aggregate con la función COUNT no te sirve para lo que quieres lograr, puesto que este no te agrupa por Cliente, lo que hace es contar el número de registros que contenga la expresión que le pasas a la función.
Yo sugiero dos consultas, una maestra de estadísticas que traiga el número de documentos pendientes por cliente y otra de detalles que traiga los documentos pendientes por un cliente dado.
Si nos dices las estructuras de las tablas involucradas y el motor de la DB, con mucho gusto te ayudamos con las consultas y la mecánica.

Un cordial saludo.

[cram]

Supongo que  el campo aggregate no puede ser usado en un filtro pues se contradicen sus usos. Uno requiere la totalidad de filas y el otro intenta seleccionarlas, todo en un mismo intento.
Podrías intentar hacer una selección, tal como esa que dices en la consulta compleja que alimenta el clientdataset y usar su salida como lista para otro slect que obtiene los datos restantes, así te liberas de los filtros, ya que además suelen ser ineficientes.

Saludos.

[Caminante21]

El campo aggregate con la función COUNT no te sirve para lo que quieres lograr, puesto que este no te agrupa por Cliente, lo que hace es contar el número de registros que contenga la expresión que le pasas a la función.

Hola gracia por la observacion pero en este caso lo uso con la propiedad groupinglevel y me muestra el numero agrupado correctamente...

Eso de tocar la consulta no se. Preferiria hacerlo en local. Pero ya he tomado nota de sus sugerencias.

[Wilson]

Preferiria hacerlo en local. Pero ya he tomado nota de sus sugerencias.

Entonces lo que puedes hacer es clonar el TClientDataset y entoces recorrer el clon par obtener el ID de los registros que cumplan con el criterio de cantidad que deseas, dichos Ids los puedes almacenar en una variable de tipo string, ya en ese punto haces el filtro sobre el TClientDataset original pero con base en los Ids obtenidos.

En seguida te  pongo un ejemplo de como hacerlo.

Saludos.

[Wilson]

Prueba con esto:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  Clon: TClientDataSet;
  s: string;
begin
  s := '';
  Clon := TClientDataSet.Create(nil);
  try
    Clon.CloneCursor(OriginalDataset, false, false);
    Clon.First;
    while not Clon.Eof do
    begin
      if Clon.FieldByName('Cantidad').AsInteger >= 2 then
        s := s + IntToStr(Clon.FieldByName('ID').AsInteger) + ',';
      Clon.Next;
    end;
    if length(s) > 0 then
      Delete(s, length(s) , 1); // Borramos la última coma
 
    OriginalDataset.Filtered := false;
    OriginalDataset.Filter := 'ID IN ' + '(' + s + ')';
    OriginalDataset.Filtered := true;
  finally
    Clon.Free;
  end;
end;

Saludos.

Edito para corregir error en en la parte  Delete del código.

[Caminante21]

Entonces lo que puedes hacer es clonar el TClientDataset y entoces recorrer el clon par obtener el ID de los registros que cumplan con el criterio...

Gracias por la sugerencia. no se me habia ocurrido pero al parecer un al clonar el dataset se pierden los campos agregados porque recibo el mensaje d que el campo no existe.
Gracias seguire probando..

[Wilson]

Si, al parecer TClientDataset no trata por igual a los aggregates, lo hace mediante el índice, prueba así:

delphi

if Clon.Aggregates.Items[0].Value >= 2 then

o así:

delphi

if varToStr( Clon.Aggregates.Items[0].Value) >= '2' then

Saludos.

[Caminante21]

Gracias por el dato lo probare.
Por el momento lo resolvi aplicando el conteo en el mismo clientdataset. Vere como puedo mejorarlo.
Gracias por la idea. Cada dia se aprende algo nuevo.