Пример:
| Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); ТекущийКонкурент = Неопределено; Пока Выборка.Следующий() Цикл Если Выборка.Конкурент <> ТекущийКонкурент Тогда Диаграмма.Серии.Добавить(); ТекущаяСерия = Диаграмма.КоличествоСерий - 1; ТекущийКонкурент = Выборка.Конкурент; Диаграмма.Серии[ТекущаяСерия].Текст = СокрП(Выборка.Организация Наименование); Диаграмма.Серии[ТекущаяСерия].Расшифровка = ТекущийКонкурент; КонецЕсли; Индекс = ИндексПоНоменклатуре(Выборка.Номенклатура, Выборка.НоменклатураНаименование, Диаграмма, ИндексыНоменклатуры); Диаграмма.УстановитьЗначение(Индекс, ТекущаяСерия, Выборка.Цена, Выборка.Номенклатура); КонецЦикла; Диаграмма.Обновление = Истина; |