Попробуй разобраться:
В форме есть объект: Oleboundcontrol1
Вывод графика.

namerg_rus[1]="Питерский"
..
namerg_rus[7]="Федоровский"

aItogi(7,6) && 7 РЭСов, дальше 6 раскладывается по позициям (1 код р-на, 2 с-до начальное, 3 начислено, 4 оплачено, 5 сальдо конечное, 6 недоплата %)

#DEFINE CRLF CHR(13)+CHR(10)
#DEFINE TAB CHR(9)
#DEFINE coltype -4100

create table foo (nach_opl g,;
nedopl g)
append blank

cGData=""
cGNedopl=""
for i=1 to 7 step 1 && потому как 7 РЭСов
cGData =cGData+TAB+SUBS(namerg_rus ,1,3)
cGNedopl=cGNedopl+TAB+SUBS(namerg_rus,1,3)
endfor
cGData=cGData+CRLF
cGNedopl=cGNedopl+CRLF

local cStr[2], cNedopl[1]
cStr[1]="Начислено"
cStr[2]="Оплачено"
cNedopl[1]="%"

for j=1 to 2 step 1 && т.к. 2 поля в таблице
cGData =cGData+cStr[j]
if j=1
cGNedopl=cGNedopl+cNedopl[j]
endif
for i=1 to 7 step 1 && для каждого поля 7 РЭСов
cGData =cGData+TAB+ALLT(STR(aItogi(i,j+2)/1000))
if j=1
cGNedopl =cGNedopl+TAB+ALLT(STR(aItogi(i,6)))
endif
endfor
cGData =cGData+CRLF
if j=1
cGNedopl=cGNedopl+CRLF
endif
endfor

THIS.LockScreen = .T.
append general nach_opl class "msgraph.chart" DATA m.cGData
append general nedopl class "msgraph.chart" DATA m.cGNedopl
THIS.OleBoundControl1.ControlSource = "foo.nach_opl"
THIS.OleBoundControl1.HasLegend = .t.
THIS.OleBoundControl1.autoformat(coltype,1)
THIS.LockScreen = .F.

Для вывода в отчет.
Вставлен объект Picture/Ole.....
В его свойствах в поле Field foo.nach_opl