topic-25896

Board index FiveWin para Harbour/xHarbour TCalendar metodo bChange

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

TCalendar metodo bChange
Posted: Mon Mar 18, 2013 02:05 AM

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 )

    ? &quot;paso 1&quot;, 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

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: TCalendar metodo bChange
Posted: Tue Mar 19, 2013 02:13 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: TCalendar metodo bChange
Posted: Tue Mar 19, 2013 02:35 PM

Y el método Change() queda asi:

Code (fw): Select all Collapse

METHOD Change() CLASS TCalendar

   static dOldDate

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

return NIL

regards, saludos

Antonio Linares
www.fivetechsoft.com

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: TCalendar metodo bChange
Posted: Tue Mar 19, 2013 04:19 PM

Gracias,
funciona correctamente ahora.
Salu2, Ariel.

FiveTech Support Forums

Continue the discussion