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