Работа с графической схемой в объектной модели DOM

#Область ПрограммныйИнтерфейс

Функция ПолучитьОписаниеЭлементовГрафическойСхемы() Экспорт
	
	// значения itemType
	
	Результат = Новый Соответствие;
	
	Результат.Вставить(0, "Декорация");
	Результат.Вставить(1, "Линия");
	Результат.Вставить(2, "Старт");
	Результат.Вставить(3, "Завершение");
	Результат.Вставить(4, "Условие");
	Результат.Вставить(5, "Действие");
	Результат.Вставить(6, "Выбор варианта");
	Результат.Вставить(7, "Разделение");
	Результат.Вставить(8, "Слияние");
	Результат.Вставить(9, "Точка обработки");
	Результат.Вставить(10, "Вложенный бизнес-процесс");
	
	Возврат Результат;
	
КонецФункции


Функция ПолучитьXMLГрафическойСхемы(ГрафическаяСхема) Экспорт
	
	Результат = "";
	
	ЗаписьXML = Новый ЗаписьXML;
	ЗаписьXML.УстановитьСтроку();
	
	Сериализатор = Новый СериализаторXDTO(ФабрикаXDTO);
	Сериализатор.ЗаписатьXML(ЗаписьXML, ГрафическаяСхема, НазначениеТипаXML.Явное);
	
	Результат = ЗаписьXML.Закрыть();
	
	Возврат Результат;
	
КонецФункции

Функция ПолучитьDOMГрафическойСхемы(ГрафическаяСхема) Экспорт
	
	Результат = Неопределено;
	
	XMLГрафическойСхемы = ПолучитьXMLГрафическойСхемы(ГрафическаяСхема);
	
	ЧтениеXML = Новый ЧтениеXML;
	ЧтениеXML.УстановитьСтроку(XMLГрафическойСхемы);
	
	ПостроительDOM = Новый ПостроительDOM;
	
	Результат = ПостроительDOM.Прочитать(ЧтениеXML);
	
	Возврат Результат;
	
КонецФункции

Функция ПолучитьГрафическуюСхемуИзXML(СтрокаXML) Экспорт
	
	Результат = Неопределено;
	
	ЧтениеXML = Новый ЧтениеXML;
	ЧтениеXML.УстановитьСтроку(СтрокаXML);
	
	Сериализатор = Новый СериализаторXDTO(ФабрикаXDTO);
	
	Результат = Сериализатор.ПрочитатьXML(ЧтениеXML);
	
	Возврат Результат;
	
КонецФункции

Функция ПолучитьГрафическуюСхемуИзDOM(ДокументDOM) Экспорт
	
	Результат = Неопределено;
	
	ЗаписьXML = Новый ЗаписьXML;
	ЗаписьXML.УстановитьСтроку();
	
	ЗаписьDOM = Новый ЗаписьDOM();
	ЗаписьDOM.Записать(ДокументDOM.ДочерниеУзлы[0] , ЗаписьXML);
	
	XMLГрафическойСхемы = ЗаписьXML.Закрыть();
	
	ЧтениеXML = Новый ЧтениеXML;
	ЧтениеXML.УстановитьСтроку(XMLГрафическойСхемы);
	
	Сериализатор = Новый СериализаторXDTO(ФабрикаXDTO);
	
	Результат = Сериализатор.ПрочитатьXML(ЧтениеXML);
	
	Возврат Результат;
	
КонецФункции


Функция НайтиЭлементПоЗначениюСвойства(ДокументDOM, ИмяСвойства, Значение) Экспорт
	
	Результат = Неопределено;
	
	СписокЭлементовDOM = ДокументDOM.ПолучитьЭлементыПоИмени(ИмяСвойства);
	
	Для Каждого Элемент Из СписокЭлементовDOM Цикл
		
		Если Элемент.ТекстовоеСодержимое = Значение Тогда
			
			Результат = Элемент.РодительскийУзел;
			Прервать;
			
		КонецЕсли;
		
	КонецЦикла;
	
	Возврат Результат;
	
КонецФункции

Функция ПолучитьЗначениеСвойстваЭлемента(ЭлементDOM, ИмяСвойства) Экспорт
	
	СписокЭлементовDOM = ЭлементDOM.ПолучитьЭлементыПоИмени(ИмяСвойства);
	
	Если СписокЭлементовDOM.Количество() = 1 Тогда
		Возврат СписокЭлементовDOM[0].ТекстовоеСодержимое;
	Иначе
		Возврат Неопределено;
	КонецЕсли;
	
КонецФункции

Процедура УстановитьЗначениеСвойстваЭлемента(ЭлементDOM, ИмяСвойства, Значение) Экспорт
	
	СписокЭлементовDOM = ЭлементDOM.ПолучитьЭлементыПоИмени(ИмяСвойства);
	
	Если СписокЭлементовDOM.Количество() = 1 Тогда
		СписокЭлементовDOM[0].ТекстовоеСодержимое = Значение;
	КонецЕсли;
	
КонецПроцедуры

#КонецОбласти

#Область ОбработчикиСобытийФормы

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	
	Если ЗначениеЗаполнено(Объект.КартаМаршрутаXML) Тогда
		ГрафическаяСхема = УниверсальныеКартыМаршрутовКлиентСервер.ПолучитьГрафическуюСхемуИзXML(Объект.КартаМаршрутаXML);
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
	
	Объект.КартаМаршрутаXML = УниверсальныеКартыМаршрутовКлиентСервер.ПолучитьXMLГрафическойСхемы(ГрафическаяСхема);
	
КонецПроцедуры

#КонецОбласти

#Область ОбработчикиСобытийГрафическойСхемы

&НаКлиенте
Процедура ГрафическаяСхемаПриИзменении(Элемент)
	
	Модифицированность = Истина;
	
	ОписаниеЭлементов = УниверсальныеКартыМаршрутовКлиентСервер.ПолучитьОписаниеЭлементовГрафическойСхемы();
	
	ИдентификаторыЭлементов = Новый Массив;
	
	// пример работы с DOM графической схемы
	ДокументDOM = УниверсальныеКартыМаршрутовКлиентСервер.ПолучитьDOMГрафическойСхемы(ГрафическаяСхема);
	
	// каждый элемент схемы "item" представлен свойством "itemType"
	СписокЭлементовDOM = ДокументDOM.ПолучитьЭлементыПоИмени("itemType");
	
	Для Каждого Элемент Из СписокЭлементовDOM Цикл
		
		ТипЭлемента = Число(Элемент.ТекстовоеСодержимое);
		
		Если ТипЭлемента = 0
			ИЛИ ТипЭлемента = 1 Тогда
			
			// декорации и линии пропускаем
			Продолжить;
			
		КонецЕсли;
		
		УзелТочкиМаршрута = Элемент.РодительскийУзел;
		
		// каждый элемент схемы имеет itemId
		ИдентификаторЭлемента = Число(УниверсальныеКартыМаршрутовКлиентСервер.ПолучитьЗначениеСвойстваЭлемента(УзелТочкиМаршрута, "itemId"));
		
		// заполняеем перечень текущих идентификаторов
		ИдентификаторыЭлементов.Добавить(ИдентификаторЭлемента);
		
		// находим, есть ли данный узел в точках маршрута
		ПараметрыОтбора = Новый Структура("ИдентификаторЭлемента", ИдентификаторЭлемента);
		
		РезультатПоиска = Объект.ТочкиМаршрута.НайтиСтроки(ПараметрыОтбора);
		
		Если РезультатПоиска.Количество() = 0 Тогда
			
			НоваяСтрока = Объект.ТочкиМаршрута.Добавить();
			
			НоваяСтрока.ИдентификаторЭлемента = ИдентификаторЭлемента;
			НоваяСтрока.ТипЭлемента = ТипЭлемента;
			НоваяСтрока.ТипЭлементаПредставление = ОписаниеЭлементов[ТипЭлемента];
			НоваяСтрока.Наименование = УниверсальныеКартыМаршрутовКлиентСервер.ПолучитьЗначениеСвойстваЭлемента(УзелТочкиМаршрута, "content");
			
		КонецЕсли;
		
		// пример, код установки красной линии (текущее действие в запущенном БП)
		Если ТипЭлемента = 5 Тогда
			
			// данные свойства нашел опытным путем, может что и не так, но работает...
			УниверсальныеКартыМаршрутовКлиентСервер.УстановитьЗначениеСвойстваЭлемента(УзелТочкиМаршрута, "passageState", "2");
			УниверсальныеКартыМаршрутовКлиентСервер.УстановитьЗначениеСвойстваЭлемента(УзелТочкиМаршрута, "isAddrZoneDivideValid", "true");
			УниверсальныеКартыМаршрутовКлиентСервер.УстановитьЗначениеСвойстваЭлемента(УзелТочкиМаршрута, "addrZoneDivideYPos", "16");
			
		КонецЕсли;
		
	КонецЦикла;
	
	ГрафическаяСхема = УниверсальныеКартыМаршрутовКлиентСервер.ПолучитьГрафическуюСхемуИзDOM(ДокументDOM);
	
	// удалим из таблицы точек маршрута те элементы, которые удалили на схеме
	СтрокиКУдалению = Новый Массив;
	
	Для Каждого СтрокаТЧ Из Объект.ТочкиМаршрута Цикл
		
		Если ИдентификаторыЭлементов.Найти(СтрокаТЧ.ИдентификаторЭлемента) = Неопределено Тогда
			СтрокиКУдалению.Добавить(СтрокаТЧ);
		КонецЕсли;
		
	КонецЦикла;
	
	Для Каждого СтрокаТЧ Из СтрокиКУдалению Цикл
		Объект.ТочкиМаршрута.Удалить(СтрокаТЧ);
	КонецЦикла;
	
КонецПроцедуры

#КонецОбласти

#Область ОбработчикиСобытийЭлементовТаблицыФормыТочкиМаршрута

&НаКлиенте
Процедура ТочкиМаршрутаНаименованиеПриИзменении(Элемент)
	
	ТекущиеДанные = Элементы.ТочкиМаршрута.ТекущиеДанные;
	
	ИдентификаторЭлемента = Строка(ТекущиеДанные.ИдентификаторЭлемента);
	
	ДокументDOM = УниверсальныеКартыМаршрутовКлиентСервер.ПолучитьDOMГрафическойСхемы(ГрафическаяСхема);
	
	УзелТочкиМаршрута = УниверсальныеКартыМаршрутовКлиентСервер.НайтиЭлементПоЗначениюСвойства(ДокументDOM, "itemId", ИдентификаторЭлемента);
	УниверсальныеКартыМаршрутовКлиентСервер.УстановитьЗначениеСвойстваЭлемента(УзелТочкиМаршрута, "content", ТекущиеДанные.Наименование);
	
	ГрафическаяСхема = УниверсальныеКартыМаршрутовКлиентСервер.ПолучитьГрафическуюСхемуИзDOM(ДокументDOM);
	
КонецПроцедуры

#КонецОбласти