RE:autocompletar horarios
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