Metodos

[wmormar]

Saludos amigos,

Tengo el siguiente detalle.

Code: Select all  Expand view  RUN

              REDEFINE BTNBMP oBtn[1] ID 201 RESOURCE "BRW.TERMINAR" NOBORDER OF ::oDlg ;
                       ACTION [color=red]::End()[/color] ;
                       MESSAGE "Regresar a panel principal"


La cuestión es que por ejemplo ::End() es de una clase que hice y no de BTNBMP, pero cuando doy click en el boton me dice que no existe el metodo en TBTNBMP, y eso no es correcto.

Hay alguna manera de definirlo y no lo tome el TBBNTBMP?

Mil gracias de antemano

[Antonio Linares]

William,

Usa:

local this := Self

...

... ACTION this:End() ...

[wmormar]

William,

Usa:

local this := Self

...

... ACTION this:End() ...

Funciono perfecto.

Habría algo que modificar en la clase para no utilizar this := self o es la unica solucion?

Saludos y gracias por tu tiempo

[Antonio Linares]

William,

Es la única solución cuando hay varios "Self" en ámbito.

[wmormar]

William,

Es la única solución cuando hay varios "Self" en ámbito.

Gracias mil

[wmormar]

William,

Es la única solución cuando hay varios "Self" en ámbito.

Antonio,

Me olvidaba de comentar que con la clase TSButton de MMercado no hay problemas al aplicar ::end() en el action, hay algo en particular con la btnbmp?

Gracias de antemano

[Antonio Linares]

William,

Que se le pasa "Self" al evaluar el codeblock.

[wmormar]

William,

Que se le pasa "Self" al evaluar el codeblock.

Antonio,

Mil gracias por tu tiempo