Диаграмма Ганта и графическая схема сторонними средствами

17.12.18

Разработка - Работа с интерфейсом

Примеры формирования диаграммы Ганта и графической схемы в 1С сторонними средствами.

Скачать файлы

Наименование Файл Версия Размер
Диаграмма Гантта в html:
.epf 93,68Kb
7
.epf 1.0.0 93,68Kb 7 Скачать
Графическая схема в html
.epf 45,95Kb
1
.epf 1.0.0 45,95Kb 1 Скачать

Недавно возникла необходимость формировать отчеты на мобильных устройствах. Для реализации идеи решили попробовать мобильный клиент.
С обычными отчетами проблем не возникло, но были два отчета, которые "не смогли".
Один из них - Диаграмма Гантта, другой - построен при помощи Географической схемы. Эти типы не имеют отображения на мобильном клиенте.

Было решено попробовать вывести данные отчетов в поле html.


Диаграмма Гантта.

Самым простым способом показалось использовать amCharts. Спасибо публикации за примеры работы с библиотеками. 
 

В обработке подготовлен шаблон html, который всего лишь нужно дополнить выводимыми данными.
Формируем таблицу данных:
 

Функция ПолучитьДанные()
	
	Данные = Новый ТаблицаЗначений;
	
	Данные.Колонки.Добавить("category");
	Данные.Колонки.Добавить("segments");
	
	ТаблицаСегментов = Новый ТаблицаЗначений;
	ТаблицаСегментов.Колонки.Добавить("start");
	ТаблицаСегментов.Колонки.Добавить("end");
	ТаблицаСегментов.Колонки.Добавить("color");
	ТаблицаСегментов.Колонки.Добавить("task");
	
	НоваяСтрока = Данные.Добавить();
	НоваяСтрока.category = "Авиа";
	ТаблицаСегментов.Очистить();
	
	НоваяСтрокаСегментов = ТаблицаСегментов.Добавить();
	НоваяСтрокаСегментов.start = "2016-01-01";
	НоваяСтрокаСегментов.end = "2016-01-14";
	НоваяСтрокаСегментов.color = "#b9783f";
	НоваяСтрокаСегментов.task = "Gathering requirements";
	
	НоваяСтрокаСегментов = ТаблицаСегментов.Добавить();
	НоваяСтрокаСегментов.start = "2016-02-01";
	НоваяСтрокаСегментов.end = "2016-02-14";
	НоваяСтрокаСегментов.color = "#b9783f";
	НоваяСтрокаСегментов.task = "Gathering requirements";
	
	НоваяСтрока.segments = ТаблицаСегментов;
	
	НоваяСтрока = Данные.Добавить();
	НоваяСтрока.category = "Прокат";
	
	ТаблицаСегментов = Новый ТаблицаЗначений;
	ТаблицаСегментов.Колонки.Добавить("start");
	ТаблицаСегментов.Колонки.Добавить("end");
	ТаблицаСегментов.Колонки.Добавить("color");
	ТаблицаСегментов.Колонки.Добавить("task");
	ТаблицаСегментов.Очистить();
	
	НоваяСтрокаСегментов = ТаблицаСегментов.Добавить();
	НоваяСтрокаСегментов.start = "2016-01-02";
	НоваяСтрокаСегментов.end = "2016-01-18";
	НоваяСтрокаСегментов.color = "#cc4748";
	НоваяСтрокаСегментов.task = "Producing specifications";
	НоваяСтрока.segments = ТаблицаСегментов;
	
	НоваяСтрокаСегментов = ТаблицаСегментов.Добавить();
	НоваяСтрокаСегментов.start = "2016-02-02";
	НоваяСтрокаСегментов.end = "2016-02-18";
	НоваяСтрокаСегментов.color = "#cc4748";
	НоваяСтрокаСегментов.task = "Producing specifications";
	НоваяСтрока.segments = ТаблицаСегментов;
	
	НоваяСтрокаСегментов = ТаблицаСегментов.Добавить();
	НоваяСтрокаСегментов.start = "2016-03-02";
	НоваяСтрокаСегментов.end = "2016-03-18";
	НоваяСтрокаСегментов.color = "#cc4748";
	НоваяСтрокаСегментов.task = "Producing specifications";
	НоваяСтрока.segments = ТаблицаСегментов;
	
	Возврат Данные;
	
КонецФункции

Далее таблица преобразуется в строку и передается в шаблон.

В итоге получаем: 

 

Графическая схема.

В свое время возникла необходимость графически отображать цепочки продаж.

При анализе различных способов была найдена публикация, которая и помогла реализовать такой отчет.

При решении текущей задачи вспомнилась работа с графикой на js при помощи библиотеки raphael.
В итоге все свелось просто к рисованию фигур по точкам. Точки брались прямо из графической схемы:
 

Процедура ЗаполнитьПример()
	
	СписокИдентификаторов.Очистить();
	Уровень1 = ДеревоОбъектов.ПолучитьЭлементы();
	Уровень1.Очистить();
	
	ГрафСхемаXDTO=СериализаторXDTO.ЗаписатьXDTO(ГрафСхема);
	
	Для Каждого ОбъектГС Из ГрафСхемаXDTO.Item Цикл
		
		Если ОбъектГС.itemtype = 9 Тогда
			
			НовСтр = Уровень1.Добавить();
			
			ТочкиСтрокой = "";
			
			Для Каждого Точка Из ОбъектГС.point Цикл
				
				ТочкиСтрокой = ТочкиСтрокой + ?(ПустаяСтрока(ТочкиСтрокой), "", ", ") + СтрЗаменить(Строка(Точка.x), Символы.НПП, "") + ", " + СтрЗаменить(Строка(Точка.y), Символы.НПП, "");
				
			КонецЦикла;
			
			НовСтр.Шейп = ТочкиСтрокой;
			НовСтр.Цвет = "#ffa0e0";
			НовСтр.Описание = ОбъектГС.itemCode;
			НовСтр.Описание_Точка = "0, 0";
			СписокИдентификаторов.Добавить(НовСтр.ПолучитьИдентификатор());
			
		ИначеЕсли ОбъектГС.itemtype = 1 Тогда
			
			НовСтр = Уровень1.Добавить();
			
			ТочкиСтрокой = "";
			
			МассивТочек = Новый Массив;
			
			Для Каждого Точка Из ОбъектГС.point Цикл
				
				ТочкиСтрокой = ТочкиСтрокой + ?(ПустаяСтрока(ТочкиСтрокой), "", ", ") + СтрЗаменить(Строка(Точка.x), Символы.НПП, "") + ", " + СтрЗаменить(Строка(Точка.y), Символы.НПП, "");
				МассивТочек.Добавить(СтрЗаменить(Строка(Точка.x + 1), Символы.НПП, "") + ", " + СтрЗаменить(Строка(Точка.y), Символы.НПП, ""));
				
			КонецЦикла;
			
			Сч = МассивТочек.Количество() - 1;
			Пока Сч >= 0 Цикл
				
				ТочкиСтрокой = ТочкиСтрокой + ", " + МассивТочек[Сч];
				
				Сч = Сч - 1;
				
			КонецЦикла;
			
			НовСтр.Шейп = ТочкиСтрокой;
			НовСтр.Цвет = "#999999";
			НовСтр.Описание = "";
			НовСтр.Описание_Точка = "0, 0";
			НовСтр.Линия = Истина;
			СписокИдентификаторов.Добавить(НовСтр.ПолучитьИдентификатор());
			
		КонецЕсли;
		
	КонецЦикла;	
	
КонецПроцедуры

В итоге получаем:

Стрелочки рисовать уже не стал. Но, при желании, это можно сделать.

 

Обе обработки делались на платформе 8.3.11.2867

Тестировалось на конфигурации Управление нашей фирмой, редакция 1.6 (1.6.13.60), но должно работать на любой другой конфигурации под управляемыми формами. 

Обработка гантт диаграмма гантта amCharts амчартс графическая схема js raphael мобильный клиент работа с html гант ганта.

См. также

Богатый редактор картинок, хранимых в базе, с возможностью РИСОВАНИЯ. Редактор внешних файлов картинок. Объект, расширяющий возможности работы с картинками из встроенного языка (Три в одном) + Обработка «Стандартизация картинок»

Работа с интерфейсом Рабочее место Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Обработка предназначена для редактирования картинок в режиме «Предприятие», с возможностью РИСОВАТЬ на них. Поддерживается работа как в обычных формах (толстый клиент) так и на управляемых формах (тонкий клиент). Обработка позволяет редактировать как картинки, хранимые в базе, так и графические файлы с диска на файловой системе. Помимо базовых функций (изменение размеров, преобразование формата, обрезание картинки, повороты и т.п.) – редактор имеет богатый набор инструментов для рисования. Доступна функция вставки изображения из буфера обмена. Также обработка может быть использована из встроенного языка как объект для редактирования картинок. Объект может быть использован: на стороне клиента, на стороне сервера, из внешнего соединения. Данная обработка будет особенно полезна тем, кто вносит картинки в базу (изображения номенклатуры, фотографии физических лиц и т.п.). Функционал реализуется с использованием JavaScript и бесплатного ПО ImageMagick (без использования внешних компонент).

6000 руб.

16.01.2015    61793    43    59    

80

[Расширения] Динамическое управление видимостью и доступностью элементов форм (УФ) (8.3.6+)

Работа с интерфейсом Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Механизм «Динамическое управление доступом к элементам форм объектов 1С8» предназначен для обеспечения возможности оперативного управления видимостью и доступностью элементов форм документов и справочников продуктов фирмы «1С» «1С:Предприятие 8». Решение универсальное, встраивается в любую конфигурацию с минимальными доработками, что позволяет без проблем обновлять типовые решения.

5000 руб.

14.01.2016    54401    16    21    

42

Управление дашбордами

Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Обработка предназначена для создания и управления дашбордами.

2400 руб.

29.06.2020    16695    21    4    

35

Новогоднее оформление для 1С

Работа с интерфейсом Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 Бесплатно (free)

Добавьте новогоднего настроения! Расширение создает декорацию в виде гирлянды на некоторых формах объектов.

27.12.2023    10735    750    elcoan    45    

106

Конструктор HTML, CSS и javascript

Инструментарий разработчика Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Подходит для создания web-страниц для замены управляемых форм 1С, красивых отчетов, интерфейса мобильного приложения на платформе 1С и для простых страниц веб-сайтов.

2 стартмани

10.04.2023    9610    151    acces969    31    

118

Модель состояния для MVC

Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

"MVC плохо применима в 1С" - познакомьтесь с моделью состояния и, возможно, ваше мнение поменяется! Представленное решение является эволюционным развитием идеи реализации MVC для 1С. В новой версии добавлены DSL для описания модели состояния, а также параметризация свойств параметров и элементов формы.

1 стартмани

05.07.2022    3665    kalyaka    2    

27

Табло очереди заказов на экран телевизора

WEB-интеграция Работа с интерфейсом Платформа 1С v8.3 1С:Розница 2 Платные (руб)

Связка из веб-приложения и расширения для 1С: Розница 2.3.

3600 руб.

29.04.2022    12079    1    5    

10
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. 1segen1 33 02.11.18 08:05 Сейчас в теме
Не знал, что название диаграммы уже пишется по-другому (Гантт).
2. no_betrayal 27 02.11.18 11:18 Сейчас в теме
(1)Взято с Вики. Да и в амЧартс в английском варианте gantt. Хотя СП считает иначе)
3. user5300 1000 06.02.20 08:52 Сейчас в теме
Как убрать гиперссылку "Js chart by amCharts" ?
4. no_betrayal 27 06.02.20 14:29 Сейчас в теме
(3)Эта ссылка - условие бесплатного использования библиотеки.

Но если очень сильно хочется заморочиться - можно сделать следующее:

1. Заменить процедуру в форме:
Процедура СформироватьГанттаНаСервере()
	
	Данные = ПолучитьДанные();
	
	ДанныеСтрокой = AmChartsДанные(Данные);
	
	ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
	
	//Шаблон = ОбработкаОбъект.ПолучитьМакет("Шаблон").ПолучитьТекст();
	Шаблон = ОбработкаОбъект.ПолучитьМакет("Макет").ПолучитьТекст();
	amcharts = ОбработкаОбъект.ПолучитьМакет("amcharts").ПолучитьТекст();
	serial = ОбработкаОбъект.ПолучитьМакет("serial").ПолучитьТекст();
	light = ОбработкаОбъект.ПолучитьМакет("light").ПолучитьТекст();
	gantt = ОбработкаОбъект.ПолучитьМакет("gantt").ПолучитьТекст();
	
	Текст = СтрЗаменить(Шаблон, "&amcharts.js", amcharts);
	Текст = СтрЗаменить(Текст, "&serial.js", serial);
	Текст = СтрЗаменить(Текст, "&light.js", light);
	Текст = СтрЗаменить(Текст, "&gantt.js", gantt);
	
	ПолеХТМЛ = СтрЗаменить(Текст, "&DataProvider", " [ " + ДанныеСтрокой + " ] ");
	
КонецПроцедуры
Показать


Так перейдем на использование скриптом из шаблонов.
2. В шаблоне "amcharts" найти неугодную фразу и заменить, например, на пустую строку.

Но я настоятельно рекомендую в таком случае перенести ссылку хотя бы на форму, чтобы не нарушать пользовательское соглашение.
user5300; +1 Ответить
5. user5300 1000 06.02.20 15:17 Сейчас в теме
(4) можно оставить на форме но скрыть видимость ))
и еще такой вопрос, можно ли добавить текст в шкалу времени (или рядом)
и можно ли отобразить числа месяца ?
6. no_betrayal 27 06.02.20 16:36 Сейчас в теме
(5)Если текст нужен под шкалу времени, в макете шаблона можно попробовать добавить еще один div элемент с текстом.

и можно ли отобразить числа месяца ?


Дата нужна в формате 06.02, а не фев 02?

Сейчас точно не подскажу, как сделать. Нужно курить документацию:
https://docs.amcharts.com/3/javascriptcharts/AmCharts


Я обычно открывал демку диаграммы https://www.amcharts.com/demos-v3/gantt-chart-dates-v3/
Там есть возможность перейти в редактор
"Open in:"
Я использую codepen.
Там можно поэкспериментировать с параметрами и прочим.

Но на скорую руку сделать не получилось.

У меня использована версия 3, в версии 4 сильно больше настроек для шкалы времени.
user5300; +1 Ответить
Оставьте свое сообщение