8.х Диаграмма

Здраствуйте важаемые посетители.
У меня просьба: помогите построить диаграмму с помощью программного кода.
Пожалуйста Пришлите пример на мыло [email protected]

Текст кода

Код:

Процедура Сформировать() 
Запрос = Новый Запрос; 
Запрос.Текст = "ВЫБРАТЬ
|    ПродажиОбороты.Клиент.Представление КАК Клиент,
|    ПродажиОбороты.ВыручкаОборот - ПродажиОбороты.СтоимостьОборот КАК Доход
|ИЗ
|    РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты
|
|УПОРЯДОЧИТЬ ПО
|    Доход УБЫВ";

ВыборкаРеэультатаЗапроса = Запрос.Выполнить().Выбрать();
Диаграмма = ЭлементыФормы.Диаграмма;
//запретить обновление и автотранспонирование диаграммы 
Диаграмма.Обновление = Ложь; 
Диаграмма.АвтоТранспонирование = Ложь;
//создать единственную точку диаграммы 
ТочкаДиаграммы = Диаграмма.УстановитьТочку("Доход");
//перебрать выборку результата запроса и создать серии // и значения
Пока ВыборкаРезультатаЗапроса.Следующний Цикл ТекущаяСерияДиаграммы = Диаграмма.УстановитьСерию(ВыборкаРеэультатаЗапроса.Клиент);
Диаграмма.УстановитьЗначение(ТочкаДиаграммы,ТекущаяСерияДиаграммы,ВыборкаРезультатаЗапроса.Доход);
КонецЦикла;
//разрешить обновление и автотранспонирование диаграммы 
Диаграмма.Обновление = Истина; 
Диаграмма.АвтоТранспонирование = Истина;

КонецПроцедуры

После проверки синтаксиса выдает:
{Отчет.РейтингКлиентов(14,20)}: Переменная не определена (ЭлементыФормы)
Диаграмма = <<?>>ЭлементыФормы.Диаграмма;
{Отчет.РейтингКлиентов(21,13)}: Переменная не определена (ВыборкаРезультатаЗапроса)
Пока <<?>>ВыборкаРезультатаЗапроса.Следующний Цикл ТекущаяСерияДиаграммы = Диаграмма.УстановитьСерию(ВыборкаРеэультатаЗапроса.Клиент);
{Отчет.РейтингКлиентов(22,75)}: Переменная не определена (ВыборкаРезультатаЗапроса)
Диаграмма.УстановитьЗначение(ТочкаДиаграммы,ТекущаяСерияДиаграммы,<<?>>ВыборкаРезультатаЗапроса.Доход);

Хотя На форме ЭУ Диаграмма присутствует.
Как быть?