añadir una data a una class

[Patricio Avalos Aguirre]

Estimados

Se puede añadir una data a una clase ya creada

ejemplo

Code: Select all  Expand view

create class pApp

data X
data Y

method ..

endclass

Code: Select all  Expand view

myVar := pApp():New()

aqui crear la data Z a la clase pApp()

[andresreyes_mzt]

Patricio,

Esta es la forma sencilla:

__objAddData( oObject, cSymbol, nScope, lPersistent, lCase )

Code: Select all  Expand view

myVar := pApp():New()
__objAddData( myVar, "Z")
 

Saludos,

Andres Reyes

[Patricio Avalos Aguirre]

Gracias Andres

Funciono perfecto