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


http://nsae01.casimages.net/img/2013/08/16/130816101711955300.jpg (http://www.casimages.es/i/130816101711955300.jpg.html)

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"

http://nsae01.casimages.net/img/2013/08/16/130816102127863491.jpg (http://www.casimages.es/i/130816102127863491.jpg.html)

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

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:

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...:confused::confused:

¿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):

http://img835.imageshack.us/img835/7048/krme.png

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

[José Luis Garcí]

...

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...:confused::confused:

¿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

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í]

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

http://img835.imageshack.us/img835/7048/krme.png

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

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í]

¿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

http://nsae01.casimages.net/img/2013/08/16/13081612095819567.jpg (http://www.casimages.es/i/13081612095819567.jpg.html)

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

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

http://img16.imageshack.us/img16/1025/tdnw.png

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....


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í:
http://img809.imageshack.us/img809/2788/0nvg.png

[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

http://nsae01.casimages.net/img/2013/08/16/130816011918767898.jpg (http://www.casimages.es/i/130816011918767898.jpg.html)


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

http://nsae01.casimages.net/img/2013/08/16/130816013037479513.jpg (http://www.casimages.es/i/130816013037479513.jpg.html)

Espero se entienda mejor ahora

[José Luis Garcí]

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

http://nsae01.casimages.net/img/2013/08/16/130816015038372006.jpg (http://www.casimages.es/i/130816015038372006.jpg.html)

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]]

^\||/^\||/^\||/