Valid en oCol:bOnPostEdit

[acuellar]

Distinguidos cómo se valida e oCol:bOnPostEdit del xBrowse

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

[Marcelo Via Giglio]

Adhemar,

existe otro bloque de código bValid que es para la validación adicional al bOnPostEdit, que seguramente es el que necesitas para hacer lo que deseas

saludos

Marcelo

[acuellar]

Gracias Marcelo por el dato

Lo hice con

Code: Select all  Expand view

oCol:bEditValid:=
 

Saludos,

Adhemar