Ver Mensaje Individual
  #1  
Antiguo 10-12-2010
gonza_619 gonza_619 is offline
Miembro
 
Registrado: feb 2010
Posts: 157
Reputación: 15
gonza_619 Va por buen camino
validar dbedit para horario

hola amigos, bueno lo que quiero hacer es algo que hice parecido con un datetimepicker, pero ahora con dbedit que muestra horas de una tabla donde quiero modificar el horario segun un turno, es decir al seleccionar un registro de tabla, tambien selecciono el turno ej:
1:turno mañana
2:turno tarde
al turno lo saco asi.
turno:=table.fieldbyname('turno').asinteger;
luego con ese turno validar dbedit, que si es 1 el turno , no pueda sobrepasar de tal hora eJ:
si es turno1 : va de 09:00 am - hasta- 12:00 am, que no sobrepase de este rango en el dbedit cunado quiera modificar el horario desde el mismo dbedit. no uso dtpicker porq no ingreso nuevo horario sino que necesito editarlo. gracias

Código Delphi [-]
var  HoraAct : Integer;
begin
if tur=1 then
begin
 HoraAct := HourOf(DateTimePicker1.Time);
 //si no esta entre las 17 y 20 horas o la hora ini es mayor que la hora fin, le ponemos la hora con la que empieza el rango
 if Not((HoraAct>=8) and (HoraAct<=12)) or (CompareTime(DateTimePicker1.Time,DateTimePicker2.Time)=1) Then
  begin
  DateTimePicker1.Time := EncodeTime(9,MinuteOf(DateTimePicker1.Time),0,0);
  end;
end;

esto hice con dtpicker con hora pero nose como hacerlo con dbedits para controlar grcias

Última edición por Casimiro Notevi fecha: 12-12-2010 a las 02:00:21. Razón: Poner etiquetas [delphi] [/delphi]
Responder Con Cita