В начало

Процедура ПостроитьДиаграмму

 

Процедура ПостроитьДиаграмму (Диаграмма, Запрос)

   //На время наполнения данными, запретим перерисовку

   Диаграмма.Обновление (0);

 

   // Задаем текст заголовка

   Диаграмма.Заголовок = "Пример использования диаграммы";

 

   // Задаем текст метки точки

   Диаграмма.УстановитьИмяТочки (1, "Продано на сумму");

   СчетчикСерий = 1;

   Пока Запрос.Группировка ("Товар") = 1 Цикл

      ПродСумма = Запрос.СуммаПродано;

 

      // Задаем очередное значение

      Диаграмма.Значение (1, СчетчикСерий, ПродСумма);

 

      // Задаем метку очередной серии

      Диаграмма.УстановитьИмяСерии (СчетчикСерий, Запрос.Товар.Наименование)

      СчетчикСерий = СчетчикСерий + 1;

   КонецЦикла;

 

   // После заполнения данных, включим перерисовку

   Диаграмма.Обновление (1);

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