Обмен УТ 10.3 — БП 3.0





Обработка для БП 3.0, для загрузки документов (и всего, что с ними связано) из УТ10 в БП 3.0 через СОМ соединение.

 Обработка для "Бухгалтерии предприятия 3.0", на 201218 отлично работает. Создана в начале 2026 года по причине перехода на БП 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;
КонецЕсли;
Исключение

Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЕсли;
Возврат Склад.Ссылка;
Иначе
Возврат Справочники.Склады.ПустаяСсылка();
КонецЕсли;

КонецФункции

Отдал бухгалтерам и забыл.
 

10 Comments

  1. TMV

    (0) в чем преимущество относительно стандартного обмена?

    Reply ↓
  2. DragonAgo

    А если нужно перенести только что созданного контрагента, без документов?

    Reply ↓
  3. evn-zorin

    (2)а зачем?

    Reply ↓
  4. arkavin@yandex.ru

    Не работает. Причину не показывает. Окно сообщения пустое. Скрины прикладываем.

    Reply ↓
  5. rid636674

    (4) Скрины скачал, попробую съэмитировать у себя ошибку.

    Reply ↓
  6. sam1c55

    интересует возможность покупки не за стартмани, доработка под клиента при необходимости

    Reply ↓
  7. rid636674

    (6) можете взять за стартмани, доработать готов под ваши нужды за отдельный прайс, до часа бесплатно.

    Reply ↓
  8. sam1c55

    клиент не хочет оплачивать подписку на стартмани, ему нужна только эта обработка

    Reply ↓
  9. Enerjaizer

    Проставляю все параметры, виды документов, нажимаю Отобрать — пустота! с чем может быть связано?

    Reply ↓
  10. rid636674

    скорее всего не установлено соединение между базами

    Reply ↓

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *