FoxPro/Visual FoxPro - autocompletar horarios

 
Vista:

autocompletar horarios

Publicado por María Cristina (42 intervenciones) el 19/02/2003 06:51:44
Tengo un formulario de médicos, en el cual tengo los días de atención, los horarios y la duración,lo que quiero hacer es que al querer establecer una cita con el médico me despliegue los horarios (según la duración).Ej:
Duración de Cita 15 min.
08:00
08:15
08:30
tec.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:autocompletar horarios

Publicado por Roberto (124 intervenciones) el 19/02/2003 20:28:22
Maria Cristina:

No se si el ejemplo a continuación te sirva, pero ahi te va.

Confecciona un Form de prueba y una tabla con un solo campo llamado hora (C) de 5 y la tabla llamada Horas. luego dentro del Form creas la GRID con la tabla horas crea ademas dos TEXT:

Text1 caracter de 5 y con formato 99:99 -> representa la hora de inicio
Text2 numerico de 2 -> representa el Lapso

crea un BOTON y el evento click coloca lo siguiente:

HInicio = Val(SUBSTR(Thisform.Text1.Value,1,2))
MInicio = Val(SUBSTR(Thisform.Text1.Value,4,2))
Lapso = Thisform.Text2.Value
SigMin = Minicio
SigHor = HInicio
Select Horas
APPEND BLANK
REPLACE Hora WITH Thisform.Text1.Value
Do While .T.
SigMin = SigMin + Lapso
IF SigMin > 59
SigMin = SigMin - 60
SigHor = SigHor + 1
Endif
APPEND BLANK
REPLACE Hora WITH PADL(ALLTRIM(STR(SigHor)),2,"0")+':'+PADL(ALLTRIM(STR(SigMin)),2,"0")
IF SigHor = 24
Exit
Endif
Enddo
Go Top
Thisform.Grid1.SetFocus

*** Espero entender lo que que querias y sino es asi, escribeme y veremos.

Chauuuu

Un abrazo desde CONCEPCION - CHILE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar