helpf.pro
Регистрация
 0 
Распечатать

1С 8.2 УП : Как сформировать диаграмму с типом Гистограмма объемная

В этом примере формируется диаграмма с типом Гистограмма объемная

Данные получаем запросом:

Код 1C v 8.х
 ДатаЗапроса = НачалоДня(ТекущаяДата());
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВЫБОР
| КОГДА СостояниеДоставки.НетМашины
| ТОГДА ""Нет машины""
| ИНАЧЕ ВЫБОР
| КОГДА СостояниеДоставки.СостояниеРазгрузки = ЗНАЧЕНИЕ(Перечисление.СостояниеРазгрузки.ПустаяССылка)
| ТОГДА СостояниеДоставки.СостояниеЗагрузки
| ИНАЧЕ СостояниеДоставки.СостояниеРазгрузки
| КОНЕЦ
| КОНЕЦ КАК Статус,
| СУММА(1) КАК КолВо
|ИЗ
| РегистрСведений.СостояниеДоставки КАК СостояниеДоставки
|ГДЕ
| СостояниеДоставки.Период = &Период
|
|СГРУППИРОВАТЬ ПО
| ВЫБОР
| КОГДА СостояниеДоставки.НетМашины
| ТОГДА ""Нет машины""
| ИНАЧЕ ВЫБОР
| КОГДА СостояниеДоставки.СостояниеРазгрузки = ЗНАЧЕНИЕ(Перечисление.СостояниеРазгрузки.ПустаяССылка)
| ТОГДА СостояниеДоставки.СостояниеЗагрузки
| ИНАЧЕ СостояниеДоставки.СостояниеРазгрузки
| КОНЕЦ
| КОНЕЦ";
Запрос.УстановитьПараметр("Период", ДатаЗапроса);
ДиаграммаВП = ЭлементыФормы.ДиаграммаТекСтатус;
ДиаграммаВП.КоличествоТочек=0;
Точка=ДиаграммаВП.Точки.Добавить(Формат(ДатаЗапроса,"ДФ=dd.MM"));   
Результат = Запрос.Выполнить();
Выборка = Результат.Выгрузить();
Для каждого СтрокаТЗ Из Выборка Цикл
Если СокрЛП(СтрокаТЗ.статус) = "Нет машины" Тогда
ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[5],СтрокаТЗ.КолВо);
ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "В пути" Тогда
ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[2],СтрокаТЗ.КолВо);
ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "Загрузка" Тогда
ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[3],СтрокаТЗ.КолВо);
ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "На объекте" Тогда
ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[1],СтрокаТЗ.КолВо);
ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "Завершено" Тогда
ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[0],СтрокаТЗ.КолВо);
ИначеЕсли СокрЛП(СтрокаТЗ.статус) = "Нет разрешения" Тогда
ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[4],СтрокаТЗ.КолВо);
КонецЕсли;  
КонецЦикла;
Разместил:   Версии: | 8.x | 8.2 УП |  Дата:   Прочитано: 5698
 0 
Распечатать
Возможно, вас также заинтересует
17 правил для составления оптимального ЗАПРОСа к данным базы 1С 12
Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно...
Выгрузить результат запроса в Дерево Значений, Дерево Значений на форме 5
// Вывод результата запроса в Табличное Поле - Дерево значений Запрос=Новый Запрос; Запрос.Текст=" ВЫБРАТЬ | ВзаиморасчетыСРаботникамиОрганизацийОстатки.ПериодВзаиморасчетов КАК ЗаМесяц, ...
Дерево значений в таблицу значений или в табличную часть и обратно 1
Для одной организации надо было реализовать документы, где вместо табличной части надо использовать дерево и все это на управляемых формах. Но дерево нельзя сохранить в базе в текущем виде. Пришлось использовать...
Динамический список ~ Как на управляемой форме разместить список регистра сведений с отбором? 9
Решение рассмотрено для элемента справочника (Контрагент и регистр КонтактнаяИнформация) 1. Создание реквизита: Добавляем новый реквизит формы (!!! не путать с реквизитом справочника !!!) с типом " ДинамическийСписок"...
Загрузить данные в 1с из текстового файла с разделителями 4
В этой статье я расскажу, как загружать данные в 1с 8 из простейших текстовых файлов с разделителями. Обычно они имеют расширение csv (Comma-Separated Values). Т. е. название подразумевает, что в каждой строке такого текстового файла...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.