Is there a built-in that does this? Something like ...
* Fullname
LPARAMETERS oObject
LOCAL cName
cName = oObject.Name
DO while TYPE("oObject.Parent") = "O"
oObject = oObject.Parent
cName = oObject.Name + "." + cName
enddo
RETURN UPPER(cName)
-Lew
©2005 Lew Schwartz |
