Функции для преобразования справочников и документов в соответствие и обратно

03.11.22

Функции для преобразования справочников и документов в соответствие и обратно. Предназначены для передачи данных между одинаковыми и не очень конфигурациями или как очередной вариант сохранения (архивирования) объектов перед редактированием с последующим восстановлением.

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

+ бонусом процедура определения значений простого типа:)

Советы:

Для уменьшения размера при передаче можно предварительно поместить в сжатое хранилище значений:

Хранилище = Новый ХранилищеЗначения(СоответствиеОбмен,Новый СжатиеДанных(9));

Кроме того хранилище хорошо сериализуется в XML строку, с которой тоже можно делать много полезного.

При создании элемента справочника при загрузке используется СтрЗаменить(ПолноеИмяОбъекта,"Справочник.",""), тут можно вызвать процедуру для описания соответствий имен справочников и документов разных конфигураций

Внимание: Не отлажено на 100%, черновой вариант - больше для описания концепции.

Функция определения сложности типа и получения соответствия имени

Функция ЭтоЗначениеПростогоТипа(ТекЗначение) Экспорт
	Возврат ТипЗнч(ТекЗначение) = Тип("Число") 
	ИЛИ ТипЗнч(ТекЗначение) = Тип("Булево") 
	ИЛИ ТипЗнч(ТекЗначение) = Тип("Дата") 
	ИЛИ ТипЗнч(ТекЗначение) = Тип("Строка")
	ИЛИ ТекЗначение = Неопределено;
КонецФункции

Функция ПолучитьИмяСправочникаРасширения(ИмяСправочника) Экспорт
	//Соответствие = Новый Соответствие();
	//Можно расписать соответствия названий или для другого изменения имени справочника приемника
    //"Префикс_"+ИмяСправочника
	Возврат ИмяСправочника;
КонецФункции

Функция для помещения объекта в соответствие

Функция ПолучитьСоответствиеИзОбъекта(знач ТекОбъект,МассивЭлементов=Неопределено) Экспорт
	Если МассивЭлементов<>Неопределено И МассивЭлементов.Найти(ТекОбъект)<>Неопределено И НЕ ЭтоЗначениеПростогоТипа(ТекОбъект) Тогда
		Возврат Строка(ТекОбъект.Метаданные().ПолноеИмя()+"^"+ТекОбъект.УникальныйИдентификатор());
	ИначеЕсли МассивЭлементов = Неопределено Тогда
		МассивЭлементов = Новый Массив;
		МассивЭлементов.Добавить(ТекОбъект);
	КонецЕсли;
	МассивЭлементов.Добавить(ТекОбъект);
	Если ТипЗнч(ТекОбъект) = Тип("УникальныйИдентификатор") Тогда
		Возврат Строка(ТекОбъект);
	ИначеЕсли Перечисления.ТипВсеСсылки().СодержитТип(ТипЗнч(ТекОбъект)) Тогда
		Возврат ТекОбъект.Метаданные().ПолноеИмя()+"."+Строка(ТекОбъект);
	КонецЕсли;
	
	Соответствие = Новый Соответствие(); /// реквизиты     
    Для каждого Реквизит из ТекОбъект.Метаданные().Реквизиты Цикл
		Если ЭтоЗначениеПростогоТипа(ТекОбъект[Реквизит.Имя])Тогда
			Соответствие.Вставить(Реквизит.Имя, ТекОбъект[Реквизит.Имя]);
		ИначеЕсли ТипЗнч(ТекОбъект[Реквизит.Имя]) = Тип("ХранилищеЗначения") Тогда
			Соответствие.Вставить(Реквизит.Имя, XMLСтрока(ТекОбъект[Реквизит.Имя]));
		Иначе
			Соответствие.Вставить(Реквизит.Имя, ПолучитьСоответствиеИзОбъекта(ТекОбъект[Реквизит.Имя],МассивЭлементов));
		КонецЕсли;
    КонецЦикла; /// таблицы     
	Для Каждого ТабличнаяЧасть из ТекОбъект.Метаданные().ТабличныеЧасти Цикл
		МассивСтрок = Новый Массив; ДанныеСтрокой = "";
		Для Каждого ТекСтрока Из ТекОбъект[ТабличнаяЧасть.Имя] Цикл
			СоответствиеСтроки = Новый Соответствие;
			Для Каждого ТекКолонка Из ТекОбъект.Метаданные().ТабличныеЧасти[ТабличнаяЧасть.Имя].Реквизиты Цикл
				Если ЭтоЗначениеПростогоТипа(ТекСтрока[ТекКолонка.Имя])Тогда
					СоответствиеСтроки.Вставить(ТекКолонка.Имя, ТекСтрока[ТекКолонка.Имя]);
				ИначеЕсли ТипЗнч(ТекСтрока[ТекКолонка.Имя]) = Тип("ХранилищеЗначения") Тогда
					СоответствиеСтроки.Вставить(ТекКолонка.Имя, XMLСтрока(ТекСтрока[ТекКолонка.Имя]));
				Иначе
					СоответствиеСтроки.Вставить(ТекКолонка.Имя, ПолучитьСоответствиеИзОбъекта(ТекСтрока[ТекКолонка.Имя],МассивЭлементов));
				КонецЕсли;
				ДанныеСтрокой = ДанныеСтрокой+"~"+Строка(СоответствиеСтроки[ТекКолонка.Имя]);
			КонецЦикла;
			МассивСтрок.Добавить(СоответствиеСтроки);
			ДанныеСтрокой = ДанныеСтрокой+Символы.ПС; 
		КонецЦикла;
		Соответствие.Вставить(ТабличнаяЧасть.Имя,МассивСтрок);
		Соответствие.Вставить(ТабличнаяЧасть.Имя+"Строкой",ДанныеСтрокой);  //Содержимое таб. части для облегчения отладки
    КонецЦикла;
    Соответствие.Вставить("ИмяМетаданныеОбъекта",ТекОбъект.Метаданные().ПолноеИмя());
   	Соответствие.Вставить("УникальныйИдентификатор",Строка(ТекОбъект.УникальныйИдентификатор()));
	Для Каждого стРеквизит Из ТекОбъект.Метаданные().СтандартныеРеквизиты Цикл
		Если ЗначениеЗаполнено(ТекОбъект[стРеквизит.Имя]) И стРеквизит.Имя<>"Предопределенный" И стРеквизит.Имя<>"Ссылка" Тогда
			Соответствие.Вставить(стРеквизит.Имя,ТекОбъект[стРеквизит.Имя]);
		КонецЕсли;
    КонецЦикла;		
	
	Возврат Соответствие;
КонецФункции

Функция для получения объекта из соответствия

Функция ПолучитьОбъектИзСоостветствия(вхСоответствие) Экспорт
	
	ПолноеИмяОбъекта = вхСоответствие["ИмяМетаданныеОбъекта"];
	УникальныйИдентификатор = Новый УникальныйИдентификатор(вхСоответствие["УникальныйИдентификатор"]);
	Если СтрНайти(ПолноеИмяОбъекта,"Справочник") Тогда
		ИмяДляСоздания = ПолучитьИмяСправочникаРасширения(СтрЗаменить(ПолноеИмяОбъекта,"Справочник.",""));
		СсылкаНаОбъект = Справочники[ИмяДляСоздания].ПолучитьСсылку(УникальныйИдентификатор);
		Если ЗначениеЗаполнено(СсылкаНаОбъект) И СсылкаНаОбъект.ПолучитьОбъект()=Неопределено Тогда
			ТекОбъект = Справочники[ИмяДляСоздания].СоздатьЭлемент();
			ТекОбъект.УстановитьСсылкуНового(СсылкаНаОбъект);
		ИначеЕсли ЗначениеЗаполнено(СсылкаНаОбъект) Тогда
			ТекОбъект = СсылкаНаОбъект.ПолучитьОбъект();
		Иначе
			Возврат "";
		КонецЕсли;
	ИначеЕсли СтрНайти(ПолноеИмяОбъекта,"Документ") Тогда	
		ИмяДляСоздания = СтрЗаменить(ПолноеИмяОбъекта,"Документ.","");
		СсылкаНаОбъект = Документы[ИмяДляСоздания].ПолучитьСсылку(УникальныйИдентификатор);
		Если СсылкаНаОбъект.ПолучитьОбъект()=Неопределено Тогда
			ТекОбъект = Документы[ИмяДляСоздания].СоздатьДокумент();
			ТекОбъект.УстановитьСсылкуНового(СсылкаНаОбъект);
		Иначе
			ТекОбъект = СсылкаНаОбъект.ПолучитьОбъект();
		КонецЕсли;
	КонецЕсли;
	Для Каждого стРеквизит Из ТекОбъект.Метаданные().СтандартныеРеквизиты Цикл
		Если ЗначениеЗаполнено(вхСоответствие[стРеквизит.Имя]) И стРеквизит.Имя<>"Предопределенный" И стРеквизит.Имя<>"Ссылка" Тогда
			ТекОбъект[стРеквизит.Имя] = вхСоответствие[стРеквизит.Имя];
		КонецЕсли;
    КонецЦикла;		
		
	Для Каждого элСоответсвия Из вхСоответствие Цикл
		Если ТекОбъект.Метаданные().Реквизиты.Найти(элСоответсвия.Ключ)<>Неопределено Тогда
			Если ТипЗнч(элСоответсвия.Значение) = Тип("Соответствие") И ЗначениеЗаполнено(элСоответсвия.Значение.Получить("ИмяМетаданныеОбъекта")) Тогда
				ЗначениеЭлСоостветствия = ПолучитьОбъектИзСоостветствия(элСоответсвия.Значение);			
			ИначеЕсли ТипЗнч(элСоответсвия.Значение) = Тип("Строка") И СтрНайти(элСоответсвия.Значение,"^")<>0 Тогда
				МассивВхСтроки = СтрРазделить(элСоответсвия.Значение,"^");
				ПолноеИмяОбъекта = МассивВхСтроки[0];
				УникальныйИдентификатор = Новый УникальныйИдентификатор(МассивВхСтроки[1]);
				ИмяДляСоздания = ПолучитьИмяСправочникаРасширения(СтрЗаменить(ПолноеИмяОбъекта,"Справочник.",""));
				Если Метаданные.Справочники.Найти(ИмяДляСоздания)<>Неопределено Тогда
					ЗначениеЭлСоостветствия = Справочники[ИмяДляСоздания].ПолучитьСсылку(УникальныйИдентификатор);
				Иначе
					Продолжить;
				КонецЕсли;
			Иначе
				ЗначениеЭлСоостветствия = элСоответсвия.Значение
			КонецЕсли;
			ТекОбъект[элСоответсвия.Ключ] = ЗначениеЭлСоостветствия;	
		ИначеЕсли ТекОбъект.Метаданные().ТабличныеЧасти.Найти(элСоответсвия.Ключ)<>Неопределено Тогда
			ТекТабЧасть = элСоответсвия.Значение;
			ТекОбъект[элСоответсвия.Ключ].Очистить();
			Для Каждого СтрокаТабЧасти Из ТекТабЧасть Цикл
				НовСтрока = ТекОбъект[элСоответсвия.Ключ].Добавить();
				Для Каждого ТекКолонкаТабЧасти Из СтрокаТабЧасти Цикл
					Если ТипЗнч(ТекКолонкаТабЧасти.Значение) = Тип("Соответствие") И ЗначениеЗаполнено(ТекКолонкаТабЧасти.Значение.Получить("ИмяМетаданныеОбъекта")) Тогда
						ЗначениеЭлСоостветствия = ПолучитьОбъектИзСоостветствия(ТекКолонкаТабЧасти.Значение);	
					ИначеЕсли ТипЗнч(ТекКолонкаТабЧасти.Значение) = Тип("Строка") И СтрНайти(ТекКолонкаТабЧасти.Значение,"^")<>0 Тогда
						МассивВхСтроки = СтрРазделить(ТекКолонкаТабЧасти.Значение,"^");
						ПолноеИмяОбъекта = МассивВхСтроки[0];
						УникальныйИдентификатор = Новый УникальныйИдентификатор(МассивВхСтроки[1]);
						ИмяДляСоздания = ПолучитьИмяСправочникаРасширения(СтрЗаменить(ПолноеИмяОбъекта,"Справочник.",""));
						ЗначениеЭлСоостветствия = Справочники[ИмяДляСоздания].ПолучитьСсылку(УникальныйИдентификатор);
					Иначе
						ЗначениеЭлСоостветствия = ТекКолонкаТабЧасти.Значение
					КонецЕсли;
					НовСтрока[ТекКолонкаТабЧасти.Ключ] = ЗначениеЭлСоостветствия;
				КонецЦикла;
			КонецЦикла;
		КонецЕсли;
	КонецЦикла;
	
	ТекОбъект.Записать();
	Возврат ТекОбъект.Ссылка;
	
КонецФункции

10.11.2021: Функция помещения в соответствия модернизирована: добавлена защита от зацикливания и описание работы с некоторыми типами значений реквизитов. Перед использований обратите внимания, что возможно потребуется отладка и доработка функции возвращения обратно в объект, ее пока не правил.

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

+21 –

Вы можете заказать платную адаптацию этой статьи под ваши задачи на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

См. также

ДО+ для 1С:Документооборот

Универсальные функции 1С 8.3 1С:Документооборот Россия Платные (руб)

ДО+ — расширение конфигурации, в котором собран постоянно пополняемый набор из 33 востребованных доработок для 1С:Документооборот КОРП 3.0: согласование задач прямо из мессенджеров MAX и Telegram, отзыв согласования и исполнения, гибкие повторные круги, эскалация с точностью до минут, контроль исполнительской дисциплины, выгрузка вложений в ZIP и склейка PDF, реестр документов в Excel, проверка дублей контрагентов и регистрационных номеров. Каждая возможность активируется отдельным флажком в режиме предприятия — включается только то, что нужно конкретной организации. Список функций расширяется с каждым релизом — текущая версия 2.1.0. Режим AddOn: типовая конфигурация не модифицируется, обновления ДО ставятся штатно, дополнительные лицензии и внешние компоненты не требуются. Внедрение силами администратора — около часа.

30000 руб.

09.07.2026 1466 1 0

Заполнение формул в файлах Excel (кроссплатформенное решение)

Загрузка и выгрузка в Excel Универсальные функции Разработчик 1С:Предприятие 8 Россия Бесплатно (free)

Описанный ниже подход позволяет в три шага заполнять формулы в Excel файлы, вне зависимости от ОС сервера (MS Windows Server или Linux). Подход подразумевает отказ от работы с COM-объектом в пользу работы через "объектную модель документа" (DOM).

30.10.2025 8821 Abysswalker 11

Отключение уведомления "Расширение конфигурации неактивно"

Универсальные функции Работа с интерфейсом Разработчик 1С:Предприятие 8 Бесплатно (free)

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

14.05.2025 14599 DeerCven 16

В помощь разработчику: преобразование табличного документа в запрос

Инструментарий разработчика Универсальные функции Запросы Разработчик 1С:Предприятие 8 1C:Бухгалтерия 1С:Бухгалтерия 3.0 1С:Зарплата и Управление Персоналом 3.x Бесплатно (free)

Внешняя обработка для создания запроса на основании табличных данных.

22.07.2024 12000 278 ixijixi 10

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

Универсальные функции Разработчик 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Благодаря этим пяти строчкам можно больше не заморачиваться с загрузкой из внешних файлов. Пользуюсь везде, всегда и постоянно.

21.05.2024 68984 dimanich70 87

181

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Разработчик 1С:Предприятие 8 1C:Бухгалтерия Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024 9352 7 John_d 13

GUID в 1С 8.3

Универсальные функции Разработчик Стажер 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024 86011 atdonya 31

Переоткрытие внешних обработок

Универсальные функции Разработчик 1С:Предприятие 8 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023 13524 ke.92@mail.ru 18

Комментарии

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

Свернуть все

1. ixijixi 2178 01.11.21 10:27 Сейчас в теме

Вот это

Если СтрНайти(Объект.Метаданные().ПолноеИмя(),"Справочник")<>0 Тогда
           Соответствие.Вставить("Наименование",Объект.Наименование);
           Соответствие.Вставить("Код",Объект.Код);
    ИначеЕсли СтрНайти(Объект.Метаданные().ПолноеИмя(),"Документ")<>0 Тогда    
           Соответствие.Вставить("Номер",Объект.Номер);
           Соответствие.Вставить("Дата",Объект.Дата);
    КонецЕсли;

лучше заменить на

Для Каждого Реквизит Из Объект.Метаданные().СтандартныеРеквизиты Цикл
	Соответствие.Вставить(Реквизит.Имя, Объект[Реквизит.Имя]);
КонецЦикла;

т.к. у справочника например может не быть кода и/или наименования

2. avalakh 582 01.11.21 11:09 Сейчас в теме

(1) Соглашусь, это будет правильнее. Подправил

3. JohnyDeath 302 05.11.21 19:21 Сейчас в теме

Вот в тему отличный опенсорсный проект. Подписываемся, ставим лайки, делаем пул-реквесты )
https://github.com/arkuznetsov/SerLib1C

4. DrAku1a 1803 06.11.21 14:31 Сейчас в теме

Один вопрос только: Почему соответствие, а не структура?

5. avalakh 582 09.11.21 16:49 Сейчас в теме

(4) тут не принципиально. Но в данном случае, что бы использовать готовые процедуры преобразования из соответствия в json и обратно, найденные в интернете. Ссылку не дам - не помню где видел, но точно где то есть. Вдруг кому понадобится, а уже все готово, а переделать на структуру, если понадобится, не долго

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

Автор:

Денис Николаев (avalakh)

Рейтинг: 582

Вы можете заказать платную консультацию или разработку у автора. Будет создан приватный заказ на «Бирже заказов» для автора.

Публикация:

№ 1542460

Создание 01.11.21 09:30

Обновление 03.11.22 08:47

Статистика:

Просмотры 4047

Загрузки 0

Рейтинг 21

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

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

Код открыт Да

Рубрики Универсальные функции

Кому Разработчик

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

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

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

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

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

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

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

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

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

Функции для преобразования справочников и документов в соответствие и обратно

См. также

Журнал

База знаний

Лаборатория

Анализ & Управление

Сопровождение 1С

Корпоративные решения

Обучение

Маркетплейс

Проектный офис

Мероприятия

Видеозаписи

Биржа заказов

Форум

Мерч

О компании