LOCAL laObj(1), lcHierarchy, loObj = ASELOBJ(laObj) lcHierarchy = laObj(1).name loObj = laObj(1) DO WHILE TYPE('loObj.parent.name') = 'C' lcHierarchy = loObj.Parent.Name + '.' + lcHierarchy loObj = loObj.parent ENDDO ? lcHierarchy