Hola
Estoy probando algunas clases diseñadas por programa, tengo problemas con una referencia que establezco en la clase datos, ¿alguien podria decirme porque no se dispara el evento destroy para ninguna de las dos clases?
Saludos
Para probar el ejemplo, copiar el codigo en un prg y correrlo
*------------------------------------------------------------------
acti screen
clear
public goNegocios
goNegocios=createobject('negocios')
release goNegocios
*-- USO DE LA CLASE SESSION
define class Negocios as Custom
protected oDatos
procedure init
? 'negocios.init'
this.oDatos=createobject('datos',this)
endproc
procedure destroy
? 'negocios.destroy'
this.oDatos=.null.
endproc
enddefine
define class Datos as Session
protected oNegocios
procedure Init
lParameters toNegocios
? 'datos.init'
this.oNegocios=toNegocios
endproc
procedure destroy
? 'datos.destroy'
this.oNegocios=.null.
endproc
enddefine
*-----------------------------------------------------------