диаграммавп » Поиск

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

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

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

Настройки

Код

Код 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) КАК КолВо

|ИЗ

|	РегистрСведений.СостояниеДоставки КАК СостояниеДоставки

|ГДЕ

|	СостояниеДоставки.Период = &Период

|

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

|	ВЫБОР

|		КОГДА СостояниеДоставки.НетМашины

|			ТОГДА ""Нет машины""

|		ИНАЧЕ ВЫБОР

|				КОГДА СостояниеДоставки.СостояниеРазгрузки = ЗНАЧЕНИЕ(Перечисление.СостояниеРазгрузки.ПустаяССылка)

|					ТОГДА СостояниеДоставки.СостояниеЗагрузки

|				ИНАЧЕ СостояниеДоставки.СостояниеРазгрузки

|			КОНЕЦ

|	КОНЕЦ";

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

ДиаграммаВП = ЭлементыФормы.ДиаграммаТекСтатус;

ДиаграммаВП.КоличествоТочек=0;

Точка=ДиаграммаВП.Точки.Добавить(Формат(ДатаЗапроса,"ДФ=dd.MM"));   

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

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

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

	Если СокрЛП(СтрокаТЗ.статус) = "Нет машины" Тогда

		ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[5],СтрокаТЗ.КолВо);

	ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "В пути" Тогда

		ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[2],СтрокаТЗ.КолВо);

	ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "Загрузка" Тогда

		ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[3],СтрокаТЗ.КолВо);

	ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "На объекте" Тогда

		ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[1],СтрокаТЗ.КолВо);

	ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "Завершено" Тогда

		ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[0],СтрокаТЗ.КолВо);

	ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "Нет разрешения" Тогда

		ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[4],СтрокаТЗ.КолВо);

	КонецЕсли;		 

КонецЦикла;

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