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

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

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

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

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