super... objetos

[goosfancito]

Hola

Code: Select all  Expand view

class t1
   method guardar()
end class

class t2 from t1
   method guardar()
   method pantalla()
end class

method pantalla() class T2
  ::guardar()
return (nil)

method guardar() class T2
    SUPER:guardar() <-------------------- aca necesito sber como llamar al metodo guardar de la clase T1 y despues seguir con las instrucciones
    ...
    ...
    return (nil)
 

cmo lo hago?

[AngelSalom]

Prueba este código

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

  Local oT2 := T2():New()

  oT2:Guardar()
  oT2:Super:Guardar()

Return ( nil )  

CLASS T1

  METHOD Guardar()

END CLASS

METHOD Guardar() CLASS T1

  ? "Guardar T1"

Return ( nil )  

CLASS T2 FROM T1

  METHOD Guardar()

END CLASS

METHOD Guardar() CLASS T2

  ? "Guardar T2"

Return ( nil )


 

[goosfancito]

pasa que desde la clase T2 necesito llamar a la claase super guardar()

[AngelSalom]

Ok, entonces ...

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

  Local oT2 := T2():New()

  oT2:Guardar()

Return ( nil )  

CLASS T1

  METHOD Guardar()

END CLASS

METHOD Guardar() CLASS T1

  ? "Guardar T1"

Return ( nil )  

CLASS T2 FROM T1

  METHOD Guardar()

END CLASS

METHOD Guardar() CLASS T2

  ::Super:Guardar()

Return ( nil )



 

[goosfancito]

Ganial. Gracias.
Me faltaban los :: delante del súper