comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Problema al llenar sort

  • 0 Respuestas
  • 1198 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado fabmonval

  • *
  • Underc0der
  • Mensajes: 1
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« en: Octubre 22, 2013, 12:21:00 am »
AYUDA LLENADO DE GRILLA
Hola buenos dias me pueden ayudar,
Estoy haciendo una agenda de citas con un SortGrid
Tengo un error por que  me muestra asi

7:00   1   53456765   OSCAR PALACIOS
7:45   1
7:45   2
7:45   3
8:30   1
8:30   2
8:30   3

Deberia mostrar asi

7:00   1   53456765   OSCAR PALACIOS
7:00   2   
7:00   3
7:45   1
7:45   2
7:45   3
8:30   1
8:30   2
8:30   3   




Donde el interval = intervalo del dia que en este caso son 45


Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
procedure TF_ag.llena;
var
  hora : TTime;
  fila, interval, cam : Integer;
  mensaje : String;
  i, j, k, l: Integer;
begin
  fila        := 1;
  interval    := intervalo(MC1.Date);
  if not(Pro.fieldValues['HORA_INICIAL'] = NULL) then
  begin
  hora    := Pro.fieldValues['HORA_INICIAL'];
    cam     := Pro.fieldValues['CAMILLA'];
    Spro.RowCount  := 2;
    if intervalo(MC1.Date) > 0 then
      begin
        ZQagenda.Close;
          ZQagenda.SQL.Clear;
          ZQagenda.SQL.Add('SELECT P.NOMBRE,. A* FROM PACIENTES P, AGENDA A  WHERE P.CEDULA = A.CEDULA AND
                                                                 A.COD_P ='+QuotedStr(Pro.fieldValues['COD_P'])  AND A.FECHA = '+QuotedStr(DateToStr(MC1.Date)) ORDER BY A.HORA ASC');
          ZQagenda.Open;
          If not(Pro.fieldValues['HORA_INICIAL'] = Pro.fieldValues['HORA_FINAL']) then
begin
          while (CompareTime(hora, Pro.fieldValues['HORA_INI']) >= 0) and
                                                     (CompareTime(hora, Pro.fieldValues['HORA_FIN']) < 0) do  //
          begin
          if ZQagenda.RecordCount > 0 then
            begin
ZQagenda.First;
              with SGag do
              begin
                for j:= 0 to ZQagenda.RecordCount - 1 do
begin
if ((CompareTime(ZQagenda.FieldValues['HORA'],hora) < 0) and
                                            (CompareTime(ZQagenda.FieldValues['HORA'],hora-(interval)) > 0)) or
                                            (CompareTime(ZQagenda.FieldValues['HORA'],hora) = 0)  then
                  begin
                    Cells[0, fila]  := FormatDateTime('hh:nn am/pm',ZQagenda.FieldValues['HORA_INI']);
                      if not(ZQagenda.FieldValues['CEDULA']= NULL) then
                    begin
                      if not(ZQagenda.FieldValues['CEDULA'] = '0') then
                        Cells[2, fila]  := ZQagenda.FieldValues['CEDULA']
                      else
                        Cells[2, fila]  := '';
                    end;
                    if not(ZQagenda.FieldValues['NOMBRE'] = NULL) then
                    begin
                      if not(ZQagenda.FieldValues['CEDULA'] = '0') then
                        Cells[3, fila]  := ZQagenda.FieldValues['NOMBRE']
                      else
                        Cells[3, fila]  := '';
                    end;
                    SGag .RowCount  := SGag .RowCount + 1;
                    fila := fila + 1;
                  end else
                  begin
                  for l := 1 to cam do
                    begin
                      SGag .Cells[0, fila]  := FormatDateTime('hh:nn am/pm',hora);
                      SGag .Cells[1, fila]  := IntToStr(l);
                      SGag .Cells[2, fila]  := '';
                      SGag .Cells[3, fila]  := '';
SGag .RowCount        := SGag .RowCount + 1;
                      fila := fila + 1;
                    end;
                  end;
                  ZQagenda.Next;
                end;
            end else
            begin
            for i := 1 to cam
              begin
              SGag .Cells[0, fila]  := FormatDateTime('hh:nn am/pm',hora);
              SGag .Cells[1, fila]  := IntToStr(i);
              SGag .Cells[2, fila]  := '';
              SGag .Cells[3, fila]  := '';
              SGag .RowCount        := SGag .RowCount + 1;
              fila  := fila + 1;
              end;
            end; 
            hora:= hora+(interval);
          end;
          end;
      end;
 end;
end;
« Última modificación: Mayo 31, 2015, 01:36:52 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Problema con conexión de troyano pierdo la conexion

Iniciado por Nitro_X_Net

Respuestas: 6
Vistas: 1629
Último mensaje Julio 13, 2015, 03:35:57 am
por .:UND3R:.
[SOLUCIONADO] Problema con Softice 4.05 Help, SoftICE is not active.

Iniciado por d3vilz5

Respuestas: 1
Vistas: 1755
Último mensaje Mayo 17, 2013, 11:52:31 pm
por Krapermors
Booteo en Dell Inspiron Mini "problema"

Iniciado por KnarBlack

Respuestas: 2
Vistas: 617
Último mensaje Febrero 19, 2018, 11:44:52 pm
por KnarBlack
AVs CMLS Registry workshop.. Problema.! "Otra vez yo"

Iniciado por Zobek

Respuestas: 0
Vistas: 1062
Último mensaje Julio 11, 2016, 06:19:19 pm
por Zobek
[SOLUCIONADO] Problema con el systemd en MJ (systemd-modules-load.service)

Iniciado por Thereldor

Respuestas: 1
Vistas: 939
Último mensaje Abril 05, 2016, 11:50:05 pm
por Thereldor