TCalendar metodo bChange

[Ariel]

Hola a todos,

usando la tCalendar me encontre con la siguiente situacion, basado en el ejemplo testcal2.prg le agregué la llamada al metodo bChange :

oCal:bChange := { |o| aviso( o ) }

Static function Aviso( oCal )

? "paso 1", oCal:GetDate()

return NIL

bueno, la situacion es q pasa 2 veces x la funcion, 1 para la fecha actual y otra vez para la nueva fecha, cuando (a mi entender) lo logico seria q pase solo la 2da vez en la nueva fecha.

Salu2, Ariel.

[Antonio Linares]

En la línea 627 de TCalenda.prg hay que quitar la llamada a ::Changed()

[Antonio Linares]

Y el método Change() queda asi:

Code: Select all  Expand view

METHOD Change() CLASS TCalendar

   static dOldDate

   if ::bChange != nil .and. dOldDate != ::GetDate()
      Eval( ::bChange, Self )
      dOldDate = ::GetDate()
   endif

return NIL

[Ariel]

Gracias,
funciona correctamente ahora.
Salu2, Ariel.