Перенос справочников и регистров сведений между похожими конфигурациями 8-8 через COM/OLE
Обработки - Обработка справочников
Пользователь должен обладать правами внешнего соединения!
Будете "плюсовать" - отметьте исходную обработку //infostart.ru/profile/6369/projects/706/
См. также
Специальные предложения
тока надо еще для типовух закомментить такую строчку:
| Код |
|---|
Выборка = глБаза.РегистрыСведений[ИмяРегистраСведений].Выбрать();
ЭлементыФормы.Индикатор.Значение = 0;
ЭлементыФормы.Индикатор.МаксимальноеЗначение = 99999;
НаборЗаписей = РегистрыСведений[ИмяРегистраСведений].СоздатьНаборЗаписей();
Пока Выборка.Следующий() Цикл
ОбработкаПрерыванияПользователя();
Попытка
НачатьТранзакцию();
НоваяЗапись = НаборЗаписей.Добавить();
//ЗаполнитьЗначенияСвойств(НоваяЗапись, Выборка, "СтруктурнаяЕдиница,ОтветственноеЛицо,ФизическоеЛицо,Должность");
Для каждого ИмяРеквизита Из КопируемыеРеквизиты ЦиклПоказать полностью |
НаборЗаписей.Записать();
по причине:
Запись с такими ключевыми полями существует! : (Регистр сведений: Соответствие объектов для обмена; Номер строки: 2)
добавить в попытку код
ИначеЕсли Строка(ТипЗначения) ="ПланВидовХарактеристик.СвойстваОбъектов" Тогда
РеквизитПолучатель = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоКоду(РеквизитИсточник.Ссылка.Code);
а в процедуру ЗагрузитьПростойСправочник
в блок Если ЕстьВладелец
добавить код
Если Строка(ТипЗначения_) ="ПланВидовХарактеристик.СвойстваОбъектов" Тогда
ТекущийЭлементСправочника.Владелец = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоКоду(Элемент.Ссылка.Владелец.Code);
КонецЕсли;
то можно будет перебросать Значения свойств объектов (как справочник, так и затем регистр)
(конечно, если предварительно эти самые свойства в Плане видов характеристик с правильными кодами создать)
если перекинуть справочник "Категории объектов", то надо предварительно зайти в него и выставить правильное "Назначение", иначе не перебросится регистр сведений "Категории объектов".
+ не отрабатывает отжать все флаги - приходится их отжимать руцями
+ не сохраняет историю полей подключения
+ доработать под использование реквизитов План счетов
а так большой респект! при начале внедрения пришлось менять экстремально валюту учета в УТП как раз после сверки справочников контрагентов и договоров + заполнения базовых регистров. Сэкономила кучу времени! и не пришлось ваять правила обмена для универсальной xml обменялки.
С регистрами было все не так-то просто.
То что здесь дано для скачивания - обломки старой обработки, которая переносила ВСЕ.
Так вот, с регистрами есть особенности, типа наличия обязательных измерений, уникальности записей и т.п.
1. При подключении к платформе 8.3 надо исправлять на
Com = Новый COMОбъект("V83.COMConnector");2. Пометка регистров сведений НЕ РАБОТАЕТ.
Прикладываю немного поправленный вариант с исправленными ошибками, которые указал выше. Надеюсь автор не будет против
Просмотры 19034
Загрузки 55
Комментарии 37
Создание 05.01.08 22:16
Обновление 22.12.08 15:12
№ Публикации 15433
Рубрики
Обработка справочников,
Перенос данных из 1C8 в 1C8
Кому
Системный администратор ,
Программист
Тип файла Внешняя обработка (ert,epf)
Платформа Платформа 1С v8.x (все механизмы)
Конфигурация Конфигурации 1cv8
Операционная система Windows
Страна Не имеет значения
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Раздел учета Не имеет значения
Доступ к файлу Абонемент ($m)
Код открыт Не указано
