Сокращения
БП 2 – конфигурация «Бухгалтерия предприятия» релиз 2.0
БП 3 – конфигурация «Бухгалтерия предприятия» релиз 3.0
КД – конвертация данных
Является развитием моей публикации //infostart.ru/public/560562/, с другим типом источника - БП 2.
Что доработано:
-
В терминах КД, изменены и добавлены правила конвертации объектов для загрузки объектов БП 2
-
Загрузка организации, если она еще не введена в базе приемнике
-
Ограничение загрузки других организаций и их объектов
-
Ограничение загрузки документов по дате документа
-
Более гибко решена проблема зацикливания (решение основано на определении ссылки объекта до его записи)
-
Корректная загрузка предопределенных объектов.
-
Доработан механизм определения прав доступа пользователям.
-
Зачищен код от излишеств: удалено регламентное задание и удалена посылка сообщений на почту
-
Добавлена загрузка 2-х документов «перевертышей». «Реализация товаров и услуг» в источнике как «Поступление товаров и услуг» в приемнике «Возврат от покупателя» в источнике как «Возврат от поставщика» в приемнике. Это когда в источнике в документе организация выступает как контрагент, контрагент как организация. Оставил для примера кому надо.
Какие преимущества, на мой взгляд, от КД:
-
Не надо обновлять базу источника
-
Проще ограничить загрузку «мусора»
-
Гибкость
-
-
Можно как угодно настроить интерфейс отбора объектов загрузки
-
Можно как угодно выводить сообщения процесса/результата загрузки
-
Проще вносить изменения
-
Нюансы данной реализации:
При загрузки не предопределенных счетов, могут быть загружены не предопределенные планы видов характеристик. Поскольку планы видов характеристик имеют реквизит с типом «Тип» и поскольку по COM технологии 1С нет возможности сравнить типы, то в общий глобальный модуль базы источника необходимо добавить 2 обобщенные функции. Экспортную функцию COMПолучитьТип() и ПолучитьТипЗнч(). Если в источнике используются только предопределенные визы характеристик, то эти функции добавлять не надо, ошибки не будет.
Функция COMПолучитьТип(_Тип) Экспорт
Если _Тип = Тип("Число") Тогда
Возврат "Число";
ИначеЕсли _Тип = Тип("Строка") Тогда
Возврат "Строка";
ИначеЕсли _Тип = Тип("Дата") Тогда
Возврат "Дата";
ИначеЕсли _Тип = Тип("Булево") Тогда
Возврат "Булево";
Иначе
Ссылка = Новый(_Тип);
ИмяТипа = ПолучитьТипЗнч(ССылка);
Возврат ИмяТипа;
КонецЕсли;
КонецФункции
Функция ПолучитьТипЗнч(Ссылка)
Если Ссылка = Неопределено Тогда
Возврат "Неопределено";
КонецЕсли;
XMLTypeOf = XMLTypeOf(Ссылка);
Попытка
ИмяТипа = XMLTypeOf.TypeName;
Исключение
Попытка
ИмяТипа = XMLTypeOf.ИмяТипа;
Исключение
Возврат "Неопределено";
КонецПопытки;
КонецПопытки;
//тип объекта
ИмяТипа = СтрЗаменить(ИмяТипа, "Catalog", "Справочник");
ИмяТипа = СтрЗаменить(ИмяТипа, "Document", "Документ");
ИмяТипа = СтрЗаменить(ИмяТипа, "Enum", "Перечисление");
//РегистрыСведений (InformationRegisterRecordSet)
ИмяТипа = СтрЗаменить(ИмяТипа, "InformationRegister", "РегистрСведений");
ИмяТипа = СтрЗаменить(ИмяТипа, "ChartOfAccounts", "ПланСчетов");
ИмяТипа = СтрЗаменить(ИмяТипа, "ChartOfCharacteristicTypes", "ПланВидовХарактеристик");
//вид ссылки
ИмяТипа = СтрЗаменить(ИмяТипа, "Ref", "Ссылка");
ИмяТипа = СтрЗаменить(ИмяТипа, "Object", "Объект");
ИмяТипа = СтрЗаменить(ИмяТипа, "RecordSet", "Запись");
Возврат ИмяТипа;
КонецФункции
Тестировалась в конфигурациях Бухгалтерия предприятия, редакция 2.0.66.66, Бухгалтерия предприятия, редакция 3.0.70.33 на платформе 1С:Предприятие 8.3.12.1790.
В новой версии 1.1: Отлажена загрузка документа "Корректировка поступления"
Вступайте в нашу телеграмм-группу Инфостарт