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

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

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

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

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