Диаграмма = ЭлементыФормы.Диаграмма; 
// Очистить диаграмму, возможно ранее в нее уже выводились данные. 
Диаграмма.КоличествоСерий = 0; 
Диаграмма.КоличествоТочек = 0; 
// Количество серий будет ограничиваться (не все значения будут показываться). 
Диаграмма.МаксимумСерий = МаксимумСерий.Ограничено; 
Диаграмма.МаксимумСерийКоличество = 7; 
Диаграмма.ВидПодписей = ВидПодписейКДиаграмме.Процент; 
Диаграмма.ОбластьЗаголовка.Текст = "Обороты номенклатуры"; 
Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ 
|   ПродажиКомпанииОбороты.Номенклатура, 
| СУММА(ПродажиКомпанииОбороты.КоличествоОборот) КАК КоличествоОборот 
|ИЗ 
|     РегистрНакопления.Продажи.Обороты(, , , ) КАК ПродажиКомпанииОбороты 
|СГРУППИРОВАТЬ ПО 
|      ПродажиКомпанииОбороты.Номенклатура"; 
Результат = Запрос.Выполнить(); 
// Запретить обновление диаграммы на время вывода данных. 
Диаграмма.Обновление = Ложь; 
// Установить единственную точку. 
Диаграмма.КоличествоТочек = 1; 
Диаграмма.Точки[0].Текст = "Количество"; 
Выборка = Результат.Выбрать(); 
Пока Выборка.Следующий() Цикл 
       // Количество серий, если бы не ограничивали зависело бы от результата запроса. 
       КоличествоСерий = Диаграмма.Серии.Количество(); 
      Диаграмма.КоличествоСерий = КоличествоСерий + 1; 
  Диаграмма.Серии[КоличествоСерий].Текст = Выборка.Номенклатура; 
  // Установить значение "на пересечении" точки и серии. 
        // Первый параметр - 0 , так как в диаграмме только одна точка. 
       Диаграмма.УстановитьЗначение(0, КоличествоСерий, Выборка.КоличествоОборот); 
КонецЦикла; 
// Обновить диаграмму. 
Диаграмма.Обновление = Истина;