Ver Mensaje Individual
  #3  
Antiguo 16-11-2011
Vales08 Vales08 is offline
Miembro
NULL
 
Registrado: feb 2011
Posts: 133
Reputación: 14
Vales08 Va por buen camino
Encontré una posible solución que no es acorde a lo que estaba pidiendo, pero también sirve..
Lo que realice fue agregar 3 botones:
TODOS: muestra absolutamente todos los registros que estén en ESTADO:=0; es decir que estén dados de alta.
LLENOS: muestra solo los registros que tienen el campo PACIENTE cargado.
VACÍOS: muestra solo los registros que no tienen el campo PACIENTE cargado..

Entonces si la grilla solo muestra los registros que tienen el campo PACIENTE vacío, se habilita el botón Agregar, asignándole la propiedad Enabled:=True;

Les paso el código para cada botón, para que realice el filtro.

Botón TODOS:
Código SQL [-]
DM.Q_agen_tur.SQL.Clear;
DM.Q_agen_tur.SQL.Add('select * from AGENDA_TURNOS where ESTADO=0');
DM.Q_agen_tur.Open;

Botón LLENOS:
Código SQL [-]
DM.Q_agen_tur.SQL.Clear;
DM.Q_agen_tur.SQL.Add('select * from AGENDA_TURNOS where ESTADO=0 and ID_PACIENTE is not null');
DM.Q_agen_tur.Open;

Botón VACIOS:
Código SQL [-]
DM.Q_agen_tur.SQL.Clear;
DM.Q_agen_tur.SQL.Add('select * from AGENDA_TURNOS where ESTADO=0 and ID_PACIENTE is null');
DM.Q_agen_tur.Open;
Código Delphi [-]
Boton_agregar.Enabled:=True;


Espero a alguien le sirva..
igual acepto respuestas sobre alguna otra solución o sobre lo que pedi primeramente, siempre es útil y me puede servir para otro caso o este mismo..
Muchas gracias.
Responder Con Cita