Problemas con Grupos en listview

[[José Luis Garcí]]

Hola compañeros, solicito vuestra ayuda, ya que trabajando en otro tema , pero basándome en la demo del programa DemoTouch, estoy intentando mejorar mi listview de citas y he empezado a trabajar con las Citas y tengo el siguiente problema con los grupos




Al pulsar en una fecha del monthCalendar (4), muestra la fecha (1) y en un querry hago la búsqueda de los datos, el problema es que las cabeceras y pies de grupos (3) no cuadran con las horas o no muestran todos los datos (2)

Aquí os pongo otra imagen para que lo veáis con los dos efectos que digo "cuadran con las horas o no muestran todos los datos"



y aquí el código del evento Onclick de mi MonthCalendar

Código Delphi [-]
procedure TForm1.MonthCalendar1Click(Sender: TObject);
var Item: TListItem;
    Contador:Integer;
    Hora:string;
begin
   Label1.Caption:=DateToStr(MonthCalendar1.Date);
   LV.Clear;
   LV.GroupView := True;
   LV.GridLines := True;
   Contador:=0;
   Hora:='';
   ActQuery(IBQcitas,'Select * From CITAS WHERE FECHA='+QuotedStr(Cambiafecha(MonthCalendar1.Date)));
  if IBQcitas.IsEmpty=false then
  begin
    IBQcitas.First;
    if not (IBQcitas.IsEmpty) then
    begin
       Hora:=FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString));
       LV.Groups.Add;
       LV.Groups.Items[Contador].GroupID:=Contador;
       LV.Groups.Items[Contador].Header := Hora;
       Contador:=contador+1;
    end;
    while not IBQcitas.Eof do
    begin
       if hora<>FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString)) then
       begin
          LV.Groups.Items[Contador-1].Footer :='Fin hora:[ '+ Hora+' ]';
          Hora:=FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString));
          LV.Groups.Add;
          LV.Groups.Items[Contador].GroupID:=Contador;
          LV.Groups.Items[Contador].Header := Hora;
          Contador:=contador+1;
       end;
      item:=LV.Items.Add;
      Item.GroupID:=Contador;
      item.SubItems.add(IBQcitasHORA.AsString);
      item.SubItems.add(IBQcitasOPERARIO.AsString);
      item.SubItems.add(IBQcitasCLIENTE.AsString);
      item.SubItems.add(IBQcitasTRABAJO.AsString);
      IBQcitas.Next;
    end;
    if not (IBQcitas.IsEmpty) then    LV.Groups.Items[Contador-1].Footer :='Fin hora:[ '+ Hora+' ]';
  end;
end;

Como siempre si podéis echarme una mano os estaré muy agradecido

[Neftali [Germán.Estévez]]

Hola Jose Luis.

Me queda una duda...
Según la tabla inferior (lo imagino viendo las columnas del DBGrid) en la tabla hay los siguientes campos:
ID
FECHA
HORA
CLIENTE
TRABAJO

El el ListView tienes las siguientes columnas:
HORA
CLIENTE
OPERARIO
TRABAJO

¿Cómo cuadran ambos campos?

Por otro lado, cuando intentas pasar los datos usas las columnas:

Código Delphi [-]
      item.SubItems.add(IBQcitasHORA.AsString);
      item.SubItems.add(IBQcitasOPERARIO.AsString);
      item.SubItems.add(IBQcitasCLIENTE.AsString);
      item.SubItems.add(IBQcitasTRABAJO.AsString);

Según esto, imagino que las columnas de la tabla son HORA, OPERARIO, CLIENTE, y TRABAJO.
Estas no me cuadran con las que se ven en el DBGrid y esto me despista...

¿Lo que se ve en el DBGrid qué es?
¿Me puedes poner de forma rápida (imagen) la estructura de la tabla?

[Neftali [Germán.Estévez]]

A mi me hace esto, que creo que está bien (no se si es lo que quieres conseguir):



Pero en el diseño de mi tabla no está el campo OPERARIO y eso me despista...

[[José Luis Garcí]]

Empezado por Neftali

...

Según esto, imagino que las columnas de la tabla son HORA, OPERARIO, CLIENTE, y TRABAJO.
Estas no me cuadran con las que se ven en el DBGrid y esto me despista...

¿Lo que se ve en el DBGrid qué es?
¿Me puedes poner de forma rápida (imagen) la estructura de la tabla?

Buenos días, neftali, te comento lo que ves en el dbgrid, es elibdataset de esa tabla, cuando paso los datos al Listview uso un TibQuerry.

La estructura de la tabla es la siguiente

Código Delphi [-]
CREATE TABLE CITAS (
    ID        INTEGER NOT NULL,
    FECHA     DATE,
    HORA      TIME,
    CLIENTE   VARCHAR(20),
    TRABAJO   VARCHAR(80),
    OPERARIO  VARCHAR(20)
);

El id no lo mostramos ya que no nos hace falta, la fecha es con lo que filtramos al pulsar en el monthCalendar, con lo que tampoco lo mostramos, nos quedan los 4 campos restantes y lo que quiero hacer es poder usar las horas, para mostrar los grupos, incluso primero pensé en poner un grupo de horas con intervalos de 10 minutos y sobre esto cargar los datos, quedaría como más completo, pero creo que es más practico, mostrando los grupos de horas ocupadas, con lo que creo es más rápido y eficaz.

Como siempre gracias por tu ayuda.

[[José Luis Garcí]]

Empezado por Neftali

A mi me hace esto, que creo que está bien (no se si es lo que quieres conseguir):



Pero en el diseño de mi tabla no está el campo OPERARIO y eso me despista...

Fijate que en la tabla tienes con fecha del día 5/8/2013 tienes 3 campos 2 para las 8:15 y 1 para 17:40, primero, te esta mostrando 2, pero además no te muestra la hora correcta ya que los dos primeros son de las 8:15 y no de las 17:40

[Neftali [Germán.Estévez]]

¿Me puedes poner los valores del campo OPERARIO?
¿Cómo no lo veía en el DBGrid no lo tenía creado?

[[José Luis Garcí]]

por cierto en el listview de este ejemplo están mal colocados los items operarios y clientes, van al reves

[[José Luis Garcí]]

Empezado por Neftali

¿Me puedes poner los valores del campo OPERARIO?
¿Cómo no lo veía en el DBGrid no lo tenía creado?

claro como no, te pongo una imagen

[Neftali [Germán.Estévez]]

OK.
Corregido y añadido el campo. Cuando ejecuto tu código me queda esto:



Tal vez hay alguna propiedad diferente en el componente.

[Neftali [Germán.Estévez]]

OK. ahora voy entendiendo.
Pueba cambiando esto a ver si es lo que necesitas....

Código Delphi [-]
    while not IBQcitas.Eof do
    begin
       if hora<>FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString)) then
       begin
          LV.Groups.Items[Contador-1].Footer :='Fin hora:[ '+ Hora+' ]';
          Hora:=FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString));
          LV.Groups.Add;
          LV.Groups.Items[Contador].GroupID:=Contador;
          LV.Groups.Items[Contador].Header := Hora;
          Contador:=contador+1;
       end;
      item:=LV.Items.Add;
==>>      Item.GroupID:=Contador-1;

==>>      // item.SubItems.add(IBQcitasHORA.AsString);
      item.SubItems.add(IBQcitasOPERARIO.AsString);
      item.SubItems.add(IBQcitasCLIENTE.AsString);
      item.SubItems.add(IBQcitasTRABAJO.AsString);
      IBQcitas.Next;
    end;
    if not (IBQcitas.IsEmpty) then    LV.Groups.Items[Contador-1].Footer :='Fin hora:[ '+ Hora+' ]';
  end;
end;

Contador (-1), porque ya lo habías incrementado y no añadir la hora, porque ya va en el grupo.

Queda tal que así:

[[José Luis Garcí]]

Perdona Neftali, pero creo que el problema sigue estando, coloco tu misma imagen con flechas de como tendrían que cuadrar con los datos




En primer lugar debería aparecer un grupo con las 08:15, a la que pertenece los dos registros Azul y verde que pertenecen a esa hora
en cambio aparece como grupo las 17:40, no aparece el registro, cuando realmente, debería aparecer como un segundo grupo (17:40) y el dato del grid con la flecha roja.

Por eso digo que no se que estoy haciendo mal (planteamiento o código), si es que estoy equivocado o si se trata de un bug

los datos deberían que dar de las siguiente manera



Espero se entienda mejor ahora

[[José Luis Garcí]]

Empezado por Neftali

OK. ahora voy entendiendo.
Pueba cambiando esto a ver si es lo que necesitas....

En lo que yo escribía a tu anterior respuesta has puesto lo que decía, como siempre un millón de gracias compañero

[[José Luis Garcí]]

Neftali, perfecto, ya solucionado, solo tuve que añadirle una linea (el primer subitem de cada item a ''), muchisimas gracias compañero

pongo una imagen del resultado

Código Delphi [-]
procedure TForm1.MonthCalendar1Click(Sender: TObject);
var Item: TListItem;
    Contador:Integer;
    Hora:string;
begin
   Label1.Caption:=DateToStr(MonthCalendar1.Date);
   LV.Clear;
   LV.GroupView := True;
   LV.GridLines := True;
   Contador:=0;
   Hora:='';
   ActQuery(IBQcitas,'Select * From CITAS WHERE FECHA='+QuotedStr(Cambiafecha(MonthCalendar1.Date)));
  if IBQcitas.IsEmpty=false then
  begin
    IBQcitas.First;
    if not (IBQcitas.IsEmpty) then
    begin
       Hora:=FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString));
       LV.Groups.Add;
       LV.Groups.Items[Contador].GroupID:=Contador;
       LV.Groups.Items[Contador].Header := Hora;
       Contador:=contador+1;
    end;
    while not IBQcitas.Eof do
    begin
       if hora<>FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString)) then
       begin
          LV.Groups.Items[Contador-1].Footer :='Fin hora:[ '+ Hora+' ]';
          Hora:=FormatDateTime('t',StrToDateTime(IBQcitasHORA.AsString));
          LV.Groups.Add;
          LV.Groups.Items[Contador].GroupID:=Contador;
          LV.Groups.Items[Contador].Header := Hora;
          Contador:=contador+1;
       end;
      item:=LV.Items.Add;
      Item.GroupID:=Contador-1;
//      item.SubItems.add(IBQcitasHORA.AsString);
      item.SubItems.add('');
      item.SubItems.add(IBQcitasOPERARIO.AsString);
      item.SubItems.add(IBQcitasCLIENTE.AsString);
      item.SubItems.add(IBQcitasTRABAJO.AsString);
      IBQcitas.Next;
    end;
    if not (IBQcitas.IsEmpty) then    LV.Groups.Items[Contador-1].Footer :='Fin hora:[ '+ Hora+' ]';
  end;
end;

[Neftali [Germán.Estévez]]