Error en tdtpicker de fw1202

[mastintin]

con los últimos cambios en Tdpicker me genera un error .

REDEFINE DTPICKER aObj[vFECHA] VAR aVAr[vFECHA] ID IDFECHA OF oDlg UPDATE FONT ofont2

el problema es que no tiene valor de bValid
la nueva Data se inicializa a .t.

DATA lClosed INIT .T.

por ello a llegar a la linea 140 :

::bValid = { || If( ::lClosed, Eval( bValid, Self ), .F. ) }

se realiza el eval y al ser bValid nil lanza el error :

Error description: Error BASE/1004 No existe el m‚todo: EVAL
Args:
[ 1] = U
[ 2] = O TDATEPICK

Stack Calls
===========
Called from: => (b)EVAL( 0 )
Called from: .\source\classes\TDTPICKE.PRG => (b)TDATEPICK_REDEFINE( 140 )
Called from: window.prg => (b)TWINDOW( 648 )
Called from: window.prg => TDATEPICK:LVALID( 0 )
Called from: .\source\classes\CONTROL.PRG => TDATEPICK:FWLOSTFOCUS( 1110 )
Called from: .\source\classes\CONTROL.PRG => TDATEPICK:HANDLEEVENT( 1675 )

Un ejemplo para ver el error ... el propio sample/testtdp.prg vale.

[Antonio Linares]

Manuel,

Solucionado, gracias!

Code: Select all  Expand view

  if bValid != nil
      ::bValid    = { || If( ::lClosed, Eval( bValid, Self ), .F. ) }
   endif