set talk off
set safety off
*SET DELETED ON
close tables

select a.name, s.name, SUM(e.summ) ;
 from SumExp e ;
  INNER JOIN Accounts as a ON e.id_account=a.id ;
  INNER JOIN Sources as s ON e.id_source=s.id ;
 group by  1 ,  2  ;
 into array laSumm

IF _TALLY> 0  then
	j=ALEN(laSumm, 1 )
	k=ALEN(laSumm, 2 )
	i= 2 
	DO WHILE i<=j
		IF laSumm(i- 1 , 1 )==laSumm(i, 1 ) then
			laSumm(i- 1 , 2 )=TRIM(laSumm(i- 1 , 2 ))+', '+TRIM(laSumm(i, 2 ))
			laSumm(i- 1 , 3 )=laSumm(i- 1 , 3 )+laSumm(i, 3 )
			=ADEL(laSumm,i)
			j=j- 1 
		ELSE
			i=i+ 1 
		endif
	ENDDO
	dimension laSumm(j,k)
ELSE
	*
ENDIF

CREATE TABLE SumExp#Tmp (ls C( 50 ), exp C( 200 ), sum N( 12 , 2 ))
APPEND FROM ARRAY laSumm