topic-28439

Board index FiveWin para Harbour/xHarbour Valid en oCol:bOnPostEdit

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Valid en oCol:bOnPostEdit
Posted: Wed May 14, 2014 04:15 PM

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

Hago lo siguiente

  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

Saludos,

Adhemar C.

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: Valid en oCol:bOnPostEdit
Posted: Wed May 14, 2014 04:31 PM

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

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Valid en oCol:bOnPostEdit
Posted: Wed May 14, 2014 04:58 PM

Gracias Marcelo por el dato

Lo hice con

Code (fw): Select all Collapse

oCol:bEditValid:=

Saludos,

Adhemar

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion