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
*-----------------------------------------------------------