/*Параметр: integer a_pid */
string ls_return
long   ll_found
DataStore ds_tmp

ds_tmp = Create DataStore
if IsValid(ds_tmp) then
	ds_tmp.DataObject = "d_tree"
	ll_found = ds_tmp.Find("id="+string(a_pid),  1 , ds_tmp.RowCount())
	if ll_found> 0  then	ls_return=string(ds_tmp.Object.Data[ll_found,  2 ])
	Destroy ds_tmp
end if

Return ls_return

/*pid=0 - у меня в таблице идут названия групп*/
string ls_DWfilter

this.SetRedraw(false)
ls_DWfilter = "pid > 0"
this.SetFilter(ls_DWfilter)
this.Filter()

this.SetRedraw(true)