Универсальная выгрузка/загрузка данных для отличающихся конфигураций (JSON, Такси+ОФ)

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

Функция СоздатьСтруктуруМетаданныхРегистраСведений(ПолноеИмяМетаданных,МетаданныеРегистра = Неопределено)
	
	Если МетаданныеРегистра = Неопределено Тогда
		МетаданныеРегистра = Метаданные.РегистрыСведений[СтрЗаменить(ПолноеИмяМетаданных,"РегистрСведений.","")];
	КонецЕсли;
	
	СтруктураДанных = Новый Структура;
	Для Каждого ТекОбъектМетаданных Из МетаданныеРегистра.Измерения Цикл
		СтруктураДанных.Вставить(ТекОбъектМетаданных.Имя);
	КонецЦикла;	
	
	Для Каждого ТекОбъектМетаданных Из МетаданныеРегистра.Ресурсы Цикл
		СтруктураДанных.Вставить(ТекОбъектМетаданных.Имя);
	КонецЦикла;	
	
	Для Каждого ТекОбъектМетаданных Из МетаданныеРегистра.Реквизиты Цикл
		СтруктураДанных.Вставить(ТекОбъектМетаданных.Имя);
	КонецЦикла;	
	
	Для Каждого ТекОбъектМетаданных Из МетаданныеРегистра.СтандартныеРеквизиты  Цикл
		СтруктураДанных.Вставить(ТекОбъектМетаданных.Имя);
	КонецЦикла;
	
	ФиксированнаяСтруктураДанных = Новый ФиксированнаяСтруктура(СтруктураДанных);
	
	Возврат ФиксированнаяСтруктураДанных;
	
КонецФункции	

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