Page 1 of 1

Error en la clase ssay Cambie el return y Funciona OK

Posted: Mon Apr 02, 2018 8:33 pm
by J. Ernesto
Al compilar con versiones recientes de fivewin (1709, 1711) genera un error el la clase SSAY

Error description: Error BASE/1003 Variable does not exist: SUPER


Code: Select all | Expand



 METHOD Initiate    ( hDlg )                   INLINE   Super:Initiate ( hDlg ), ::Default ()

 


Se agradece una ayuda por favor

Gracias

Re: Error en la clase ssay

Posted: Mon Apr 02, 2018 9:31 pm
by cnavarro
Cambia por

::Super:Initiate( ...

Re: Error en la clase ssay

Posted: Mon Apr 02, 2018 10:47 pm
by J. Ernesto
Mira ahora dice:

Time from start: 0 hours 0 mins 0 secs
Error occurred at: 04/02/18, 17:46:49
Error description: Error BASE/1003 Variable does not exist: SUPER

Stack Calls
===========
Called from: .\_a_say_dinamico.prg => TDSAY:HANDLEEVENT( 189 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3368 )
Called from: => SENDMESSAGE( 0 )
Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW( 590 )
Called from: .\source\classes\WINDOW.PRG => TDSAY:SENDMSG( 0 )
Called from: .\source\classes\WINDOW.PRG => TDSAY:SETFONT( 2919 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:INITIATE( 403 )
Called from: .\_a_say_dinamico.prg => (b)TDSAY( 56 )
Called from: .\_a_say_dinamico.prg => TDSAY:INITIATE( 0 )
Called from: => __OBJSENDMSG( 0 )
Called from: .\source\function\HARBOUR.PRG => OSEND( 291 )
Called from: .\source\function\HARBOUR.PRG => ASEND( 259 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 657 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 908 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
Called from: .\_a_say_dinamico.prg => MAIN( 37 )

Re: Error en la clase ssay

Posted: Mon Apr 02, 2018 10:54 pm
by J. Ernesto
ahora dice:
Time from start: 0 hours 0 mins 6 secs
Error occurred at: 04/02/18, 17:50:40
Error description: Error BASE/1003 Variable does not exist: SUPER

Stack Calls
===========
Called from: .\_a_say_dinamico.prg => TDSAY:DESTROY( 260 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1731 )
Called from: .\_a_say_dinamico.prg => TDSAY:HANDLEEVENT( 189 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3368 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
Called from: .\_a_say_dinamico.prg => MAIN( 37 )


Luego entonces cambie el return de los metodos

Return ::Super:HandleEvent ( nMsg, nWParam, nLParam )
y

Return ::Super:Destroy ()


y ya FUNCIONA

Gracias

Re: Error en la clase ssay Cambie el return y Funciona OK

Posted: Mon Apr 02, 2018 10:55 pm
by cnavarro