FiveTech Support Forums

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)

#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 )

#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 )