Hago lo siguiente
- Code: Select all Expand view
lOk:.T.
oCol := oBrw:AddCol()
oCol:bStrData := { || DHORA}
oCol:cEditPicture := "99:99"
oCol:cHeader := "DHORA"
oCol:nWidth:=44
oCol:nHeadStrAlign := AL_CENTER
oCol:nEditType := EDIT_GET
oCol:bOnPostEdit := {|o, v, n| (ValHora(),If(lOk,(DBRLOCK(),DHORA:=v,.T.),.F. )) }
*.....
Static Funct ValHora()
TOMA->( DbSeek(DHORA) )
If !Eof()
MsgStop("Hora ya reservada","Lo siento")
lOk:= .F.
Endif
Return
Valida, el problema es que no se mantiene en el campo y pasa al siguiente.
Gracias por la ayuda.
Saludos,
Adhemar