Jose

Thanks, but I would ideally like to avoid using a Public variable to obtain the data-object, I need to try and keep everything tightly sealed.

In an ideal world, I would like to be able to access a data-object from, say, the command window without having to first setup any references/variables to aid its use, and have it set itself up without relying on outside occurrances.

Thanks
Kev

>You can do.
>
>
>

>*-- 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
>
>
>José Luis.