Hola.
Tengo varios campos que son del tipo string y con formato "99:99", en la funcion bValid antes de validar
quiero que si se introdujo "7 :" aparezca como 07:00 y después verificar.
Pero cuando hago el get:setText(nuevoValor) no lo hace. que estoy haciendo mal:
Alguna ayuda?
gracias.
Tengo varios campos que son del tipo string y con formato "99:99", en la funcion bValid antes de validar
quiero que si se introdujo "7 :" aparezca como 07:00 y después verificar.
Pero cuando hago el get:setText(nuevoValor) no lo hace. que estoy haciendo mal:
...
::oGet[1]:bValid:= { | oGet | ::completaCeros(oGet) }
::oGet[2]:bValid:= { | oGet | ::completaCeros(oGet) }
::oGet[3]:bValid:= { | oGet | ::completaCeros(oGet) }
...
METHOD completaCeros(oGet) CLASS TAsistencia
LOCAL cValor1, cValor2
LOCAL cValor
cValor:=AllTrim(oGet:VALUE)
IF (Len(cValor)>1)
cValor1:= AllTrim(SubStr(AllTrim(cValor), 1, At(":", AllTrim(cValor))-1))
cValor1:= PadL(cValor1, 2, "0")
cValor2:= AllTrim(SubStr(AllTrim(cValor), At(":", AllTrim(cValor))-1))
cValor2:= Padl(cValor2, 2, "0")
oGet:settext(cValor1 + ":" + cValor2)
oGet:refresh()
ENDIF
RETURN (.T.)Alguna ayuda?
gracias.