-1
Меняйте заголовок публикации, вашу обработку - нельзя назвать переносом!
- Вы сделали конвертацию данных архивного регистра в данные справочника - в рамках одной конфигурации.
Весь код обработки:
&НаСервере
Процедура ПеренестиНаСервере()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| УдалитьКонтактнаяИнформация.Представление КАК Представление,
| УдалитьКонтактнаяИнформация.Тип КАК Тип,
| УдалитьКонтактнаяИнформация.Вид КАК Вид,
| УдалитьКонтактнаяИнформация.Объект КАК Объект
|ИЗ
| РегистрСведений.УдалитьКонтактнаяИнформация КАК УдалитьКонтактнаяИнформация";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ТипЗнч(ВыборкаДетальныеЗаписи.Объект.Ссылка)=Тип("СправочникСсылка.Контрагенты") Тогда
Если ВыборкаДетальныеЗаписи.Тип=Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты Тогда
Кон=ВыборкаДетальныеЗаписи.Объект.Ссылка.ПолучитьОбъект();
ДобавитьЗ=Кон.КонтактнаяИнформация.Добавить();
ДобавитьЗ.АдресЭП=ВыборкаДетальныеЗаписи.Представление;
ДобавитьЗ.Тип=ВыборкаДетальныеЗаписи.Тип;
ДобавитьЗ.Вид=Справочники.ВидыКонтактнойИнформации.EmailКонтрагенты;
ДобавитьЗ.Представление=ВыборкаДетальныеЗаписи.Представление;
Кон.Записать();
Сообщить("Добавлен "+ВыборкаДетальныеЗаписи.Объект.Ссылка+" "+ СокрЛП(ДобавитьЗ.Тип)+" "+СокрЛП(ВыборкаДетальныеЗаписи.Представление));
КонецЕсли;
Если ВыборкаДетальныеЗаписи.Тип=Перечисления.ТипыКонтактнойИнформации.Телефон Тогда
Кон=ВыборкаДетальныеЗаписи.Объект.Ссылка.ПолучитьОбъект();
ДобавитьЗ=Кон.КонтактнаяИнформация.Добавить();
ДобавитьЗ.Тип=ВыборкаДетальныеЗаписи.Тип;
ДобавитьЗ.Вид=Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента;
ДобавитьЗ.Представление=ВыборкаДетальныеЗаписи.Представление;
Сообщить("Добавлен "+ВыборкаДетальныеЗаписи.Объект.Ссылка+" "+ СокрЛП(ДобавитьЗ.Тип)+" "+СокрЛП(ВыборкаДетальныеЗаписи.Представление));
Кон.Записать();
КонецЕсли;
Если НЕ СтрНайти(ВыборкаДетальныеЗаписи.Представление,"@")=0 Тогда
Кон=ВыборкаДетальныеЗаписи.Объект.Ссылка.ПолучитьОбъект();
ДобавитьЗ=Кон.КонтактнаяИнформация.Добавить();
ДобавитьЗ.Тип=ВыборкаДетальныеЗаписи.Тип;
ДобавитьЗ.Вид=Справочники.ВидыКонтактнойИнформации.EmailКонтрагенты;;
ДобавитьЗ.Представление=ВыборкаДетальныеЗаписи.Представление;
Сообщить("Добавлен "+ВыборкаДетальныеЗаписи.Объект.Ссылка+" "+ СокрЛП(ДобавитьЗ.Тип)+" "+СокрЛП(ВыборкаДетальныеЗаписи.Представление));
Кон.Записать();
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура Перенести(Команда)
ПеренестиНаСервере();
КонецПроцедуры
Показать