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