Сбор информации об изменении состояния и вывод в виде направленного графа с помощью vis.js

29.03.20

В публикации опишу схему данных сбора истории изменения реквизита и вывода в виде графа.

Вводные:

1. Нужно вывести историю изменения заказов клиентов в виде направленного графа с отражением среднего времени пребывания в состоянии и количество переходов через размер вершин и толщину линий.

2. Конфигурация на базе УТ 11

Решение:

Структура данных:

Добавил регистр сведений "ис_СостоянияЗаказовКлиентов", периодический, независимый

Измерения: Заказ

Ресурсы: Состояние, сделал через тип строка, т.к. планирую переделывать для состояний вынесенных в другое поле.

Запись данных в РС

Записываю при изменении РС СостоянияЗаказовКлиентов

Менеджер набора записей

&После("ПриЗаписи")
Процедура ис_ПриЗаписи(Отказ, Замещение)
	
	Для каждого СтрНЗ Из ЭтотОбъект Цикл
		РегистрыСведений.ис_СостоянияЗаказовКлиентов.ЗаписатьИзменениеСостояния(СтрНЗ.Заказ, СтрНЗ.Состояние);	
	КонецЦикла;
		
КонецПроцедуры

Проверка, запись изменений

Процедура ЗаписатьИзменениеСостояния(Знач Заказ, Знач Состояние) Экспорт
	
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
	|	ис_СостоянияЗаказовКлиентовСрезПоследних.Период КАК Период,
	|	ис_СостоянияЗаказовКлиентовСрезПоследних.Заказ КАК Заказ,
	|	ис_СостоянияЗаказовКлиентовСрезПоследних.Состояние КАК Состояние
	|ИЗ
	|	РегистрСведений.ис_СостоянияЗаказовКлиентов.СрезПоследних(,
	|			Заказ = &Заказ) КАК ис_СостоянияЗаказовКлиентовСрезПоследних";
	Запрос.УстановитьПараметр("Заказ", Заказ);
	РезультатЗапроса = Запрос.Выполнить();
	
	Если НЕ РезультатЗапроса.Пустой() Тогда
		Выборка = РезультатЗапроса.Выбрать();
		Выборка.Следующий();
		
		Если Строка(Выборка.Состояние) = Состояние Тогда
			Возврат;
		КонецЕсли;
	КонецЕсли;
	
	МЗ = РегистрыСведений.ис_СостоянияЗаказовКлиентов.СоздатьМенеджерЗаписи();
	МЗ.Заказ = Заказ;
	МЗ.Период = ТекущаяДата();
	МЗ.Состояние = Состояние;
	МЗ.Записать(Истина);
	
КонецПроцедуры

Формирование отчета

В качестве движка отрисовки графа использую vis.js, https://almende.github.io/vis/, документация по части network https://almende.github.io/vis/docs/network/, примеры по части network https://visjs.github.io/vis-network/examples/

Используем макет в котором храним заготовку HTML страницы, используется загрузка js с внешнего ресурса https://unpkg.com

Макет

<!doctype html>
<html>
<head>
  <title>Network</title>
  <script type="text/javascript" src="https://unpkg.com/vis-network/standalone/umd/vis-network.min.js"></script>
  <style type="text/css">
    #mynetwork {
      width: 100%;
      height: 100%;
    }
  </style>
</head>
<body>
<div id="mynetwork"></div>
<script type="text/javascript">
  // create an array with nodes
      
var container = document.getElementById("mynetwork");

var options = {
    nodes: {
      shape: "dot",
      scaling: {
        label: {
          min: 8,
          max: 20
        }
      }
    }
  };

var data = {};  

var network = new vis.Network(container, data, options);

  
function draw(nodes_json, edges_json) {
	var nodes = new vis.DataSet(JSON.parse(nodes_json));

	// create an array with edges
	var edges = new vis.DataSet(JSON.parse(edges_json));

	// create a network
	
	var data = {
	nodes: nodes,
	edges: edges
	};

	network.setData(data);
}
</script>
</body>
</html>

Для работы с HTML документом использую наработки из статьи //infostart.ru/public/398366/

Загрузку макета делаю при создании на сервере, при нажатии кнопки сформировать отправляю запрос на перерисовку.

Основные процедура и функция

&НаКлиенте
Процедура Сформировать(Команда)
	
	СтруктураДанные = СформироватьНаСервере();
	ОкноПервогоБраузера.draw(СтруктураДанные.СтрокаВершины, СтруктураДанные.СтрокаРебра);
	
КонецПроцедуры

&НаСервере
Функция СформироватьНаСервере()
	
	ВыборкаЗаказ = ПолучитьДанные();
		
	КоличествоЗаказов = ВыборкаЗаказ.Количество();
	
	ТЗ_СостоянияВершины = Новый ТаблицаЗначений;
	ТЗ_СостоянияВершины.Колонки.Добавить("Состояние");
	ТЗ_СостоянияВершины.Колонки.Добавить("Время");
	
	ТЗ_СостоянияРебра = Новый ТаблицаЗначений;
	ТЗ_СостоянияРебра.Колонки.Добавить("СостояниеНачальное");
	ТЗ_СостоянияРебра.Колонки.Добавить("Состояние");
	ТЗ_СостоянияРебра.Колонки.Добавить("Количество");
	
	СформироватьВершиныИРебра(ВыборкаЗаказ, ТЗ_СостоянияВершины, ТЗ_СостоянияРебра);
	
	//--
	
	ТЗ_СостоянияВершины.Свернуть("Состояние", "Время");
	Для каждого ТЗ_СВ Из ТЗ_СостоянияВершины Цикл
		 ТЗ_СВ.Время = ТЗ_СВ.Время / КоличествоЗаказов;
	КонецЦикла;
	
	ТЗ_СостоянияВершины.Индексы.Добавить("Состояние");
	
	ТЗ_СостоянияРебра.Свернуть("СостояниеНачальное, Состояние", "Количество");
	
	//--
		
	СтрокаВершины = В_JSON(СформироватьМассивВершин(ТЗ_СостоянияВершины));
	СтрокаРебра = В_JSON(СформироватьмассивРебер(ТЗ_СостоянияВершины, ТЗ_СостоянияРебра));
	
	СтруктураДанные = Новый Структура;
	СтруктураДанные.Вставить("СтрокаВершины", СтрокаВершины);
	СтруктураДанные.Вставить("СтрокаРебра", СтрокаРебра);
		
	Возврат СтруктураДанные;
	
КонецФункции

Получаю изменения за период, из них вычисляю заказы и по ним запрашиваю изменения.

В качестве ключей использую индексы строк, т.к. для vis.js нужны числовые ключи.

Получение и обработка данных

Параметр value влияет на размер ребра/вершины, параметр title отображается при наведении на элемент.

Итог:

Относительно просто можно сформировать граф с визуальными дополнениями по данным системы.

Благодарю за внимание.

Буду рад конструктивной критике.

&НаСервере
Функция ПолучитьДанные()
	
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
	               |	ис_СостоянияЗаказовКлиентов.Заказ КАК Ссылка
	               |ПОМЕСТИТЬ втЗаказы
	               |ИЗ
	               |	РегистрСведений.ис_СостоянияЗаказовКлиентов КАК ис_СостоянияЗаказовКлиентов
	               |ГДЕ
	               |	ис_СостоянияЗаказовКлиентов.Период МЕЖДУ &ДатаНачала И &ДатаОкончания
	               |;
	               |
	               |////////////////////////////////////////////////////////////////////////////////
	               |ВЫБРАТЬ
	               |	ис_СостоянияЗаказовКлиентов.Период КАК Период,
	               |	ис_СостоянияЗаказовКлиентов.Заказ КАК Заказ,
	               |	ис_СостоянияЗаказовКлиентов.Состояние КАК Состояние
	               |ИЗ
	               |	РегистрСведений.ис_СостоянияЗаказовКлиентов КАК ис_СостоянияЗаказовКлиентов
	               |ГДЕ
	               |	ис_СостоянияЗаказовКлиентов.Заказ В
	               |			(ВЫБРАТЬ
	               |				втЗаказы.Ссылка КАК Ссылка
	               |			ИЗ
	               |				втЗаказы КАК втЗаказы)
	               |
	               |УПОРЯДОЧИТЬ ПО
	               |	Период
	               |ИТОГИ ПО
	               |	Заказ";
	Запрос.УстановитьПараметр("ДатаНачала", ПериодЗапроса.ДатаНачала);
	Запрос.УстановитьПараметр("ДатаОкончания", ПериодЗапроса.ДатаОкончания);
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаЗаказ = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Заказ");

	Возврат ВыборкаЗаказ;
	
КонецФункции

&НаСервере
Процедура СформироватьВершиныИРебра(ВыборкаЗаказ, ТЗ_СостоянияВершины, ТЗ_СостоянияРебра)
	
	Пока ВыборкаЗаказ.Следующий() Цикл
		
		ТекущееСостояние = Неопределено;
		ТекущийПериод = Дата(1,1,1);
		
		ВыборкаСостояния = ВыборкаЗаказ.Выбрать();
		
		Пока ВыборкаСостояния.Следующий() Цикл
			
			Если ТекущийПериод <> Дата(1,1,1) Тогда
				РазницаПериод = (ВыборкаСостояния.Период - ТекущийПериод) / 60;
			Иначе
				РазницаПериод = 0;
			КонецЕсли;
			
			Если ЗначениеЗаполнено(ТекущееСостояние) 
				И НЕ ТекущееСостояние = ВыборкаСостояния.Состояние
				Тогда
				
				СтрР = ТЗ_СостоянияРебра.Добавить();
				СтрР.СостояниеНачальное = ТекущееСостояние;
				СтрР.Состояние = ВыборкаСостояния.Состояние;
				СтрР.Количество = 1;
				
				СтрВ = ТЗ_СостоянияВершины.Добавить();
				СтрВ.Состояние = ТекущееСостояние;
				СтрВ.Время = РазницаПериод;
				
				//-- Добавляю конечный узел
				СтрВ = ТЗ_СостоянияВершины.Добавить();
				СтрВ.Состояние = ВыборкаСостояния.Состояние;
				
			КонецЕсли;
			
			ТекущееСостояние = ВыборкаСостояния.Состояние;
			ТекущийПериод = ВыборкаСостояния.Период;
		КонецЦикла;
		
	КонецЦикла;
	
КонецПроцедуры

&НаСервере
Функция СформироватьМассивВершин(ТЗ_СостоянияВершины)
	
	МассивВершины = Новый Массив;
	
	Для каждого СтрВ Из ТЗ_СостоянияВершины Цикл
		
		СоответствиеВершины = Новый Соответствие;
		СоответствиеВершины.Вставить("id", ТЗ_СостоянияВершины.Индекс(СтрВ) + 1);  
		СоответствиеВершины.Вставить("label", Строка(СтрВ.Состояние));
		СоответствиеВершины.Вставить("value", СтрВ.Время);
		СоответствиеВершины.Вставить("title", СтрВ.Время);
		
		МассивВершины.Добавить(СоответствиеВершины);
		
	КонецЦикла;
	
	Возврат МассивВершины

	
КонецФункции

&НаСервере
Функция СформироватьмассивРебер(ТЗ_СостоянияВершины, ТЗ_СостоянияРебра)
	
	МассивРебра = Новый Массив;
	
	Для каждого СтрР Из ТЗ_СостоянияРебра Цикл
		
		СоответствиеРебра = Новый Соответствие;
		
		ПараметрыОтбора = Новый Структура;
		ПараметрыОтбора.Вставить("Состояние", СтрР.СостояниеНачальное);
		нСтроки = ТЗ_СостоянияВершины.НайтиСтроки(ПараметрыОтбора);
		
		СоответствиеРебра.Вставить("from", ТЗ_СостоянияВершины.Индекс(нСтроки[0]) + 1);  
		
		ПараметрыОтбора = Новый Структура;
		ПараметрыОтбора.Вставить("Состояние", СтрР.Состояние);
		нСтроки = ТЗ_СостоянияВершины.НайтиСтроки(ПараметрыОтбора);
		
		СоответствиеРебра.Вставить("to", ТЗ_СостоянияВершины.Индекс(нСтроки[0]) + 1);
		
		//--
		
		СоответствияСтрокиПараметры = Новый Соответствие;
		СоответствияСтрокиПараметры.Вставить("enabled", Истина);
		СоответствияСтрокиПараметры.Вставить("type", "arrow");
		
		СоответствияСтроки = Новый Соответствие;
		СоответствияСтроки.Вставить("to", СоответствияСтрокиПараметры);
		
		СоответствиеРебра.Вставить("value", СтрР.Количество); 
		СоответствиеРебра.Вставить("title", СтрР.Количество);
		
		СоответствиеРебра.Вставить("arrows", СоответствияСтроки);
		
		//--
		
		МассивРебра.Добавить(СоответствиеРебра);
		
	КонецЦикла;
	
	Возврат МассивРебра;
		
КонецФункции

Вступайте в нашу телеграмм-группу Инфостарт

+13 –

См. также

Infostart Dashboard: Монитор показателей, виджеты и дашборды в 1С 8.3

Работа с интерфейсом Анализ учета Мониторинг 1С:Предприятие 8 1С 8.3 1C:Бухгалтерия 1С:Бухгалтерия 3.0 1С:Библиотека стандартных подсистем 1С:ERP Управление предприятием 2 1С:Управление холдингом 1С:Зарплата и Управление Персоналом 3.x 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 11 Платные (руб)

Создайте свой функциональный интерфейс в любой конфигурации 1С с помощью расширения Infostart Dashboard. Настраивайте панели виджетов с метриками, индикаторами и показателями на начальном экране. Узнайте возможность внедрения подсистемы у себя в конфигурации с помощью бесплатной обработки "Анализ внедрения подсистемы 1С Infostart Dashboard"!

28800 руб.

27.03.2025 55299 30 25

Дизайнер форм 1С

Разработка Инструментарий разработчика Работа с интерфейсом Адаптация типовых решений Нейросети 1C:Бухгалтерия 1C:ERP 1С:ЗУП 1С:КА 1С:УНФ 1С:УТ 1С:Розница 1С:ДО 1С:ERP Управление предприятием 2 Платные (руб)

Разработка "Дизайнер форм 1С" реализована в виде расширения 1С и является универсальным инструментом для разработки прототипа форм с целью демонстраций, технических заданий и т.д. Без участия разработчика с возможностью экспорта в файл внешней обработки и генерации формы используя искусственный интеллект.

36000 руб.

28.08.2025 2555 1 2

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

Работа с интерфейсом Системный администратор Программист 1С:Предприятие 8 1C:Бухгалтерия Платные (руб)

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

6000 руб.

14.01.2016 58197 20 25

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

Работа с интерфейсом Программист 1С:Предприятие 8 1C:Бухгалтерия 1С:ERP Управление предприятием 2 Платные (руб)

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

5160 руб.

29.06.2020 22829 32 6

Настройки управляемых форм (списков, объектов), заполнение реквизитов по условиям, контроль заполнения, доступ [Расширение]

Работа с интерфейсом 1С:Предприятие 8 1С:Управление торговлей 11 Россия Платные (руб)

Настройки упр.форм (списков, объектов), заполнение реквизитов по условиям, контроль заполнения, условное оформление, доступ.

2000 руб.

20.02.2018 22320 24 21

Редактор графов в 1С

Работа с интерфейсом Программист 1С:Предприятие 8 1C:Бухгалтерия Россия Платные (руб)

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

5040 руб.

06.10.2020 12826 8 8

Дизайн Гайд для создания форм на 1С. Когда и как использовать различные элементы, примеры и антипримеры по использованию

Работа с интерфейсом Программист Стажер 1С:Предприятие 8 Бесплатно (free)

Это инструкция по дизайну форм в среде 1С. Гайд охватывает рекомендации и стандарты для оптимизации пользовательского интерфейса. В гайде содержатся указания по использованию элементов интерфейса, включая как основные, так и продвинутые аспекты. Предоставляются также примеры и антипримеры для наглядного понимания принципов дизайна

20.08.2024 43193 mrXoxot 44

138

Прогресс-бар в поле динамического списка

Работа с интерфейсом Программист 1С:Предприятие 8 Бесплатно (free)

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

27.05.2024 24784 smielka 38

111

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. for_sale 902 30.03.20 07:26 Сейчас в теме

ОБ изменении

2. malikov_pro 1353 30.03.20 09:11 Сейчас в теме

(1) Поправил, благодарю

Для отправки сообщения требуется регистрация/авторизация

Автор:

Александр Маликов (malikov_pro)

Рейтинг: 1353

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 1217135

Создание 29.03.20 15:00

Обновление 29.03.20 15:00

Статистика:

Просмотры 3766

Загрузки 0

Рейтинг 13

Комментарии 2

Характеристики:

Код открыт Да

Рубрики Работа с интерфейсом Языки и среды

Кому Программист

Тип файла Нет файла

Платформа 1С:Предприятие 8

Конфигурация 1C:Бухгалтерия

Операционная система Не имеет значения

Страна Не имеет значения

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Бесплатно (free)