Обработка для "Бухгалтерии предприятия 3.0", на 201218 отлично работает. Создана в начале 2016 года по причине перехода на БП 3.0. Позволяет загружать документы из "Управления торговлей 10.3". В настройках можно указать загружать как из серверной так и из файловой базы. Очень удобна и проста в работе.
Обработка работает/протестирована на релизах:
БП 3.0 на всех начиная с 3.0.43.124 от 27.02.16 по 3.0.67.43 от 19.12.18 (текущая дата)
"Управление торговлей", редакция 10.3 (10.3.1.12).
Принцип работы:
Сначала заполняем ТЧ теми документами которые мы выбрали, платежки, поступления, и т.д. за выбранный период.
При заполнении идет проверка был ли загружен уже такой документ.
Док_Бух = Документы.ТребованиеНакладная.НайтиПоНомеру(ДокУТ.Номер, ДокУТ.Дата);
Так же если не найден склад, контрагент или другой реквизит документа то он создается с тем же кодом
Вот пример для склада:
Функция НайтиСклад(СкладУТ) Экспорт
Если СкладУТ.наименование = "" Тогда
Возврат "";
КонецЕсли;
Склад = Справочники.Склады.НайтиПоКоду(СкладУТ.Код);
Если Не (СкладУТ.Description = "") Тогда
Если Склад.Пустая() Тогда
Склад = Справочники.Склады.СоздатьЭлемент();
Склад.Код = СкладУТ.Код;
Склад.ТипСклада = НайтиПеречисление(УТ.XMLСтрока(СкладУТ.ВидСклада), "ВидСклада");
Склад.Наименование = СкладУТ.Наименование;
Если ЗначениеЗаполнено(СкладУТ.ТипЦенРозничнойТорговли.Код) Тогда
Если ЗначениеЗаполнено(ТипЦеныДляРозничногоСклада) Тогда
Склад.ТипЦенРозничнойТорговли = ТипЦеныДляРозничногоСклада;
Иначе
Склад.ТипЦенРозничнойТорговли = Константы.ТипЦенПлановойСебестоимостиНоменклатуры.Получить();
КонецЕсли;
КонецЕсли;
Попытка
Склад.Записать();
Сообщить("Записан склад: """ + Склад.Наименование + """");
НовыйОбъект = РезультатПереноса.Найти("Склад", "Вид");
Если НовыйОбъект <> Неопределено Тогда
НовыйОбъект.СозданоНовых = НовыйОбъект.СозданоНовых + 1;
Иначе
НовыйОбъект = РезультатПереноса.Добавить();
НовыйОбъект.Вид = "Склад";
НовыйОбъект.СозданоНовых = 1;
КонецЕсли;
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЕсли;
Возврат Склад.Ссылка;
Иначе
Возврат Справочники.Склады.ПустаяСсылка();
КонецЕсли;
КонецФункции
Отдал бухгалтерам и забыл.
Вступайте в нашу телеграмм-группу Инфостарт
