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