Перенос справочников между ЛЮБЫМИ базами в 1С [за SM!]

// Получаем коллекцию колонок табличной части
ТаблицаНазначения = ТекущийОбъект.КонтактнаяИнформация.Выгрузить();
КолонкиНазначения = ТаблицаНазначения.Колонки;

// Обходим каждую строку исходной таблицы
Для Каждого СтрокаИсточника Из ИсточникДанных.КонтактнаяИнформация Цикл
    НоваяСтрока = ТекущийОбъект.КонтактнаяИнформация.Добавить();
    
    // Обрабатываем специальные поля перечислений отдельно
    Попытка
        Если ЗначениеЗаполнено(СтрокаИсточника.Тип) Тогда
            // Ищем соответствие в перечислении ТипыКонтактнойИнформации
            НайденныйТип = Неопределено;
            Для Каждого ЗначениеПеречисления Из Перечисления.ТипыКонтактнойИнформации Цикл
                Если Нрег(СокрЛП(ЗначениеПеречисления)) = Нрег(СтрокаИсточника.Тип) Тогда
                    НайденныйТип = ЗначениеПеречисления;
                    Прервать;
                КонецЕсли;
            КонецЦикла;
            Если НайденныйТип <> Неопределено Тогда
                НоваяСтрока.Тип = НайденныйТип;
            КонецЕсли;
        КонецЕсли;
    Исключение
        Сообщить("Ошибка при заполнении поля Тип: " + ОписаниеОшибки());
    КонецПопытки;
    
    Попытка
        Если ЗначениеЗаполнено(СтрокаИсточника.Вид) Тогда
            // Определяем вид по нечеткой логике
            СтроковоеЗначение = СтрокаИсточника.Вид;
            НайденныйВид = Неопределено;
            
            // Если есть явное указание - используем его
            Если Нрег(СтроковоеЗначение) = Нрег("Адрес") Тогда
                НайденныйВид = Справочники.ВидыКонтактнойИнформации.АдресПартнера;
            ИначеЕсли Нрег(СтроковоеЗначение) = Нрег("Телефон") Тогда
                НайденныйВид = Справочники.ВидыКонтактнойИнформации.ТелефонПартнера;
            ИначеЕсли Нрег(СтроковоеЗначение) = Нрег("Электронная почта") ИЛИ 
                      Нрег(СтроковоеЗначение) = Нрег("Адрес электронной почты") Тогда
                НайденныйВид = Справочники.ВидыКонтактнойИнформации.EmailПартнера;
            Иначе
                // Нечеткое определение по содержимому
                // Проверяем на email - наличие @ и точки
                Если Найти(СтроковоеЗначение, "@") > 0 И Найти(СтроковоеЗначение, ".") > 0 Тогда
                    // Это email
                    НайденныйВид = Справочники.ВидыКонтактнойИнформации.EmailПартнера;
                Иначе
                    // Проверяем на телефон - считаем цифры
                    Текст = СтрЗаменить(СтроковоеЗначение, " ", "");
                    Текст = СтрЗаменить(Текст, "-", "");
                    Текст = СтрЗаменить(Текст, "(", "");
                    Текст = СтрЗаменить(Текст, ")", "");
                    
                    КоличествоЦифр = 0;
                    Для i = 1 По СтрДлина(Текст) Цикл
                        Символ = Сред(Текст, i, 1);
                        Если Найти("0123456789", Символ) > 0 Тогда
                            КоличествоЦифр = КоличествоЦифр + 1;
                        КонецЕсли;
                    КонецЦикла;
                    
                    Если КоличествоЦифр >= 7 И КоличествоЦифр <= 15 Тогда
                        НайденныйВид = Справочники.ВидыКонтактнойИнформации.ТелефонПартнера;
                    Иначе
                        НайденныйВид = Справочники.ВидыКонтактнойИнформации.АдресПартнера;
                    КонецЕсли;
                КонецЕсли;
            КонецЕсли;
            
            Если НайденныйВид <> Неопределено Тогда
                НоваяСтрока.Вид = НайденныйВид;
                Сообщить("Определен вид: " + НайденныйВид.Наименование + " для значения: " + СтроковоеЗначение);
            КонецЕсли;
        КонецЕсли;
    Исключение
        Сообщить("Ошибка при заполнении поля Вид: " + ОписаниеОшибки());
    КонецПопытки;
    
    // Автоматическое копирование всех остальных полей с одинаковыми именами
    Для Каждого Колонка Из КолонкиНазначения Цикл
        ИмяПоля = Колонка.Имя;
        
        // Пропускаем системные поля и уже обработанные поля перечислений
        Если Найти("НомерСтроки,Ссылка,Количество,Уровень,Родитель,ЭтоГруппа,Тип,Вид", ИмяПоля) > 0 Тогда
            Продолжить;
        КонецЕсли;
        
        // Проверяем, есть ли поле в источнике (встроенная проверка)
        ЕстьКолонкаВИсточнике = Ложь;
        Для Каждого КолонкаИсточника Из ИсточникДанных.КонтактнаяИнформация.Колонки Цикл
            Если КолонкаИсточника.Имя = ИмяПоля Тогда
                ЕстьКолонкаВИсточнике = Истина;
                Прервать;
            КонецЕсли;
        КонецЦикла;
        
        Если ЕстьКолонкаВИсточнике Тогда
            Попытка
                ЗначениеИсточника = СтрокаИсточника[ИмяПоля];
                // Заполняем только если значение не пустое
                Если ЗначениеЗаполнено(ЗначениеИсточника) Тогда
                    НоваяСтрока[ИмяПоля] = ЗначениеИсточника;
                    Сообщить(ИмяПоля + "=" + ЗначениеИсточника);
                КонецЕсли;
            Исключение
                // Логируем ошибку, но продолжаем обработку
                Сообщить("Ошибка при заполнении поля """ + ИмяПоля + """: " + 
                         ОписаниеОшибки() + ". Строка: " + СтрокаИсточника.НомерСтроки);
            КонецПопытки;
        КонецЕсли;
    КонецЦикла;
КонецЦикла;

ТекущийОбъект.Записать();

						Иначе
							//по наименованию
							//поиск по наименованию с учетом папка или элемент
							НайденныйЭлементСсылка=НайтиСсылкаНаОбъект(СправочникДляЗагрузки,НовыйОбъект.Наименование,Неопределено);
							НайденныйЭлемент=НайденныйЭлементСсылка.ПолучитьОбъект();
							//НайденныйЭлемент=НайтиСсылкаНаОбъект(СправочникДляЗагрузки,НовыйОбъект.Наименование,НовыйОбъект.ЭтоГруппа).ПолучитьОбъект();
							//НайденныйЭлемент=Справочники[СправочникДляЗагрузки].НайтиПоНаименованию(НовыйОбъект.Наименование).ПолучитьОбъект();
						КонецЕсли;

							// ИСПРАВЛЕНИЕ: Поиск по наименованию только в целевой папке
							Если ЗначениеЗаполнено(ЭтотОбъект.ПапкаДляЗагрузки) Тогда
								// Ищем элемент с таким наименованием только в целевой папке
								НайденныйЭлементСсылка = НайтиЭлементВПапкеПоНаименованию(
									СправочникДляЗагрузки, 
									НовыйОбъект.Наименование, 
									ЭтотОбъект.ПапкаДляЗагрузки,
									НовыйОбъект.ЭтоГруппа
								);
							Иначе
								// Если папка не указана, ищем по всему справочнику
								НайденныйЭлементСсылка=НайтиСсылкаНаОбъект(СправочникДляЗагрузки,НовыйОбъект.Наименование,Неопределено);
							КонецЕсли;
							НайденныйЭлемент=НайденныйЭлементСсылка.ПолучитьОбъект();
						КонецЕсли;

						// ИСПРАВЛЕНИЕ: Проверяем, не был ли уже создан элемент с таким кодом/наименованием
						//грузим в нужную папку
						//Попытка
						//	ТекРодПроверка=НайденныйЭлемент.Родитель;
						//	Если Не ЗначениеЗаполнено(ТекРодПроверка) 
						//		И ЗначениеЗаполнено(ЭтотОбъект.ПапкаДляЗагрузки) Тогда
						//		НайденныйЭлемент.Родитель=ЭтотОбъект.ПапкаДляЗагрузки;
						//	КонецЕсли;
						//Исключение
						//КонецПОпытки;
						
						Если НайденныйЭлемент = Неопределено 
						ИЛИ НайденныйЭлементСсылка= Неопределено
						ИЛИ (НайденныйЭлементСсылка = "" ИЛИ НайденныйЭлемент = "") Тогда						
							// Проверка на дубликат по коду (если код заполнен)
							Если ЗначениеЗаполнено(НовыйОбъект.Код) Тогда
								ЭлементПоКоду = Справочники[СправочникДляЗагрузки].НайтиПоКоду(НовыйОбъект.Код);
								Если СокрЛП(ЭлементПоКоду) <> "" Тогда
									Если УпрФормы Тогда
										Лог=Лог+"
										|Элемент с кодом """ + НовыйОбъект.Код + """ уже существует! Пропускаем.";
									Иначе
										Сообщить("Элемент с кодом """ + НовыйОбъект.Код + """ уже существует! Пропускаем.");
									КонецЕсли;
									Продолжить;
								КонецЕсли;
							КонецЕсли;
							
							// Проверка на дубликат по наименованию
							Если ЗначениеЗаполнено(НовыйОбъект.Наименование) Тогда
								ЭлементПоНаименованию = Справочники[СправочникДляЗагрузки].НайтиПоНаименованию(НовыйОбъект.Наименование, Истина);
								Если СокрЛП(ЭлементПоНаименованию) <> "" Тогда
									Если УпрФормы Тогда
										Лог=Лог+"
										|Элемент с наименованием """ + НовыйОбъект.Наименование + """ уже существует! Пропускаем.";
									Иначе
										Сообщить("Элемент с наименованием """ + НовыйОбъект.Наименование + """ уже существует! Пропускаем.");
									КонецЕсли;
									Продолжить;
								КонецЕсли;
							КонецЕсли;
							
							//грузим в нужную папку
							Если (НайденныйЭлемент = Неопределено 
							ИЛИ НайденныйЭлементСсылка = Неопределено
							ИЛИ НЕ ЗначениеЗаполнено(НовыйОбъект.Родитель))
							И ЗначениеЗаполнено(ЭтотОбъект.ПапкаДляЗагрузки) Тогда
							    НовыйОбъект.Родитель=ЭтотОбъект.ПапкаДляЗагрузки;
							КонецЕсли;							
						КонецЕсли;