Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-08-2013
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 23
José Luis Garcí Va camino a la fama
Problemas con Grupos en listview

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
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"

Última edición por José Luis Garcí fecha: 16-08-2013 a las 11:56:15.
Responder Con Cita
  #2  
Antiguo 16-08-2013
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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?
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 16-08-2013
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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...
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #4  
Antiguo 16-08-2013
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 23
José Luis Garcí Va camino a la fama
Cita:
Empezado por Neftali Ver Mensaje
...

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.
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #5  
Antiguo 16-08-2013
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 23
José Luis Garcí Va camino a la fama
Cita:
Empezado por Neftali Ver Mensaje
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
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #6  
Antiguo 16-08-2013
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
¿Me puedes poner los valores del campo OPERARIO?
¿Cómo no lo veía en el DBGrid no lo tenía creado?
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #7  
Antiguo 16-08-2013
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 23
José Luis Garcí Va camino a la fama
por cierto en el listview de este ejemplo están mal colocados los items operarios y clientes, van al reves
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #8  
Antiguo 16-08-2013
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 23
José Luis Garcí Va camino a la fama
Cita:
Empezado por Neftali Ver Mensaje
¿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

__________________
Un saludo desde Canarias, "El abuelo Cebolleta"

Última edición por José Luis Garcí fecha: 16-08-2013 a las 13:43:09.
Responder Con Cita
  #9  
Antiguo 16-08-2013
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
OK.
Corregido y añadido el campo. Cuando ejecuto tu código me queda esto:



Tal vez hay alguna propiedad diferente en el componente.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

Última edición por Neftali [Germán.Estévez] fecha: 16-08-2013 a las 14:33:22.
Responder Con Cita
  #10  
Antiguo 16-08-2013
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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í:
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #11  
Antiguo 16-08-2013
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 23
José Luis Garcí Va camino a la fama
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
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #12  
Antiguo 16-08-2013
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 23
José Luis Garcí Va camino a la fama
Cita:
Empezado por Neftali Ver Mensaje
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
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
Responder Con Cita
  #13  
Antiguo 16-08-2013
Avatar de José Luis Garcí
[José Luis Garcí] José Luis Garcí is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Las Palmas de G.C.
Posts: 1.372
Poder: 23
José Luis Garcí Va camino a la fama
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;
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"

Última edición por José Luis Garcí fecha: 16-08-2013 a las 15:24:55.
Responder Con Cita
  #14  
Antiguo 16-08-2013
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Se ocultan los grupos en el ListView Jhonjhon_123 Varios 0 17-11-2011 01:33:18
Problemas con DB + ListView mightydragonlor Varios 11 10-10-2008 17:23:30
Problemas con ListView ZayDun Varios 2 24-10-2007 23:14:56
Problemas con grupos en FastReport natalinuyo Impresión 4 05-10-2007 20:49:39
Problemas con el TreeView y el ListView quake2420 Varios 5 11-08-2005 21:57:48


La franja horaria es GMT +2. Ahora son las 01:04:04.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi