create cursor tt (tt_id i, pp_id i)
insert into tt values (1, 1)
insert into tt values (1, 2)
insert into tt values (1, 3)
insert into tt values (2, 4)
insert into tt values (2, 5)
create cursor pp (pp_id i, value c(10))
insert into pp values (1, 'раз')
insert into pp values (2, 'два')
insert into pp values (3, 'три')
insert into pp values (4, 'четыре')
insert into pp values (5, 'пять')

select t1.tt_id, ff(t1.tt_id)   ;
	from tt t1 					;
	group by t1.tt_id
	
	
function ff
lparameters tnId
local lcResult, lcValue
select value ;
	from pp t1 ;
		inner join tt t2 on t1.pp_id=t2.pp_id and t2.tt_id = tnId ;
	into array laArr
lcResult = ""
for each lcValue in laArr
	lcResult = lcResult + iif(!empty(lcResult),",","") + alltrim(lcValue)
endfor
return 	lcResult