*-- Main.Prg PUBLIC oApp oApp = CREATEOBJECT("cAppMain") oApp.ADDOBJECT("oMainAppDataObject", "MainAppDataObject") *-- Init your Bussines Object base class IF TYPE('oApp.oMainAppDataObject') = 'O' AND NOT ISNULL(oApp.oMainAppDataObject) THIS.ADDPROPERTY("oLocalAppDataObject",oApp.oMainAppDataObject) ELSE THIS.ADDPROPERTY("oLocalAppDataObject") THIS.oLocalAppDataObject = CREATEOBJECT("MainAppDataObject") ENDIF *-- Destroy your Bussines Object base class THIS.oLocalAppDataObject = .NULL.HTH
Quidquid latine dictum sit, altum sonatur