стртраб » Поиск

Результаты по ключевому слову: стртраб

Как сформировать диаграмму с типом Круговая

В этом примере показано как сформировать диаграмму с типом Круговая, которая выглядит:

Настройки

Код

Код 1C v 8.х

 Состояние("Формирование диаграммы продаж");

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

|	ПродажиОбороты.Номенклатура.НоменклатурнаяГруппа КАК НоменклатураНоменклатурнаяГруппа,

|	КОЛИЧЕСТВО(ПродажиОбороты.КоличествоОборот) КАК КоличествоОборот,

|	СУММА(0) КАК Проц

|ИЗ

|	РегистрНакопления.Продажи.Обороты(

|			&ND,

|			&KD,

|			Запись,

|			Организация = &Org

|				И ДоговорКонтрагента.Менеджер В ИЕРАРХИИ (&Mened)) КАК ПродажиОбороты

|

|СГРУППИРОВАТЬ ПО

|	ПродажиОбороты.Номенклатура.НоменклатурнаяГруппа

|

|УПОРЯДОЧИТЬ ПО

|	НоменклатураНоменклатурнаяГруппа

|АВТОУПОРЯДОЧИВАНИЕ";





Запрос.УстановитьПараметр("KD",КонПериодаР);

Запрос.УстановитьПараметр("Mened", МенеджерОПР);

Запрос.УстановитьПараметр("ND", НачПериодаР);

Запрос.УстановитьПараметр("Org", ДляОрганизацииОР);

Результат = Запрос.Выполнить();

Выборка = Результат.Выгрузить();

итог = Выборка.Итог("КоличествоОборот");

Для каждого СтрокаТЗ Из Выборка Цикл

	СтрокаТЗ.Проц = Окр(СтрокаТЗ.КоличествоОборот*100/итог,2);

КонецЦикла;





ДиаграммаВП = ЭлементыФормы.ДиаграммаОР;

Для Каждого СтрТраб из Выборка Цикл

	Серия=ДиаграммаВП.Серии.Добавить(?(ЗначениеЗаполнено(СтрТраб.Получить(0).Наименование), СтрТраб.Получить(0).Наименование+" - "+Строка(СтрТраб.Получить(2))+"%","Без группы"));

	Попытка

		ДиаграммаВП.УстановитьЗначение(1,Серия,?(СтрТраб.Получить(2)=Неопределено,0,СтрТраб.Получить(2)));

	Исключение

		// такого не должно быть, но на всякий случай		

	КонецПопытки;	

КонецЦикла;

Категория: Диаграмма

Как сформировать диаграмму с типом График Категория: Диаграмма

Процедура формирования Диаграммы на форме и в макете Категория: Диаграмма

Построение диаграммы

Код 1C v 8.х

 Процедура ФормДиаграммы()

           Траб=Новый ТаблицаЗначений;

           Траб.Очистить();

           Траб.Колонки.Добавить("ххх");

           Траб.Колонки.Добавить("Норм");

           Траб.Колонки.Добавить("Факт");

          

           НовСтр=Траб.Добавить();

           НовСтр.ххх="а1";

           НовСтр.Норм=5;

           НовСтр.Факт=10;

           НовСтр=Траб.Добавить();

           НовСтр.ххх="а2";

           НовСтр.Норм=2;

           НовСтр.Факт=15;

           НовСтр=Траб.Добавить();

           НовСтр.ххх="а3";

           НовСтр.Норм=8;

           НовСтр.Факт=14;

                                     

           ТабДок = Новый ТабличныйДокумент;

           Макет = Отчеты.УчетнаяКарточка.ПолучитьМакет("Диагр");

          

           ОблДиаграмма = Макет.ПолучитьОбласть("Диагр1");

           Диаграмма = ОблДиаграмма.Рисунки.D1.Объект;

          

           Диаграмма.СерииВСтроках = Ложь;

           Диаграмма.Обновление=Ложь;

          

           Диаграмма.ИсточникДанных = Траб;

          

           Диаграмма.Обновление=Истина;

           ТабДок.Вывести(ОблДиаграмма);

          

           ТабДок.АвтоМасштаб=Истина;

           ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;

           ТабДок.Показать();

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

Полезная процедура формирования диаграммы в макете
Строить можно и в макете и в форме.

Код 1C v 8.х

 

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



Для Каждого Колонка из Траб.Колонки Цикл

 Если Траб.Колонки.Индекс(Колонка) <> 0 Тогда

  Диаграмма.Серии.Добавить(Колонка.Имя);

 КонецЕсли;

КонецЦикла;



Для Каждого СтрТраб из Траб Цикл

 Точка=Диаграмма.Точки.Добавить(СтрТраб.Получить(0));

 Индекс=0;

 Для Каждого Серия из Диаграмма.Серии Цикл

  Индекс=Индекс+1;

  Диаграмма.УстановитьЗначение(Точка,Серия,СтрТраб.Получить(Индекс));

 КонецЦикла;

КонецЦикла;

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

gwa. Григорьев В.

Категория: Диаграмма