Получение формы внешней обработки заполнения табличных частей
Разработка - Инструментарий разработчика
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Предистория: возникла необходимость без изменения конфигурации реализовать заполнение табличной части одного документа на основании другого. Для решения подобных задач хорошо подходит методика использования обработки заполнения табличных частей, встроенного в типовые конфигурации 1С.
Для 8.1 работала такая методика.
Для выбора документа, на основании котого производилось заполнение в нужном документе, добавлялась форма во внешнюю обработку и прозводилось ее открытие:
Процедура Инициализировать(ДокументОбъект, Материалы, ТабПоле) Экспорт
Если ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.АвизоМПЗИсходящее") Тогда
ТекущийДокумент =ДокументОбъект;
НужнаяФорма = ПолучитьФорму("Форма");
НужнаяФорма.Открыть();
КонецЕсли
КонецПроцедуры
Ну и далее в самой форме был код наподобии такого:
Процедура КнопкаВыполнитьНажатие(Кнопка)
// Вставить содержимое обработчика.
Для Каждого ТекСтрокаТовары Из ДокРеализация.Товары Цикл
лНоваяСтрока = ТекущийДокумент.Товары.Добавить();
лНоваяСтрока.Номенклатура = ТекСтрокаТовары.Номенклатура;
лНоваяСтрока.Количество = ТекСтрокаТовары.Количество;
ЗаполнитьЗначенияСвойств(лНоваяСтрока, ТекСтрокаТовары);
КонецЦикла;
КонецПроцедуры
На платформе 8.2.19 такой код перестал работать (неуправляемое приложение, конфигурация 1С: Бухгалтерия КОРП 2.0).
Погуглив, перепробывал некоторые решения - результат отрицательный.
На инфостарте есть такой вариант для управляемых форм. Но он в нашем случае не подходит.
В итоге взял за основу следующую методику, пришлось только внести следующие изменения в код:
Процедура Инициализировать(ОбъектДок,ИмяТабличнойЧасти,ТабличноеПолеОбъекта) Экспорт
ИмяОтчета="ЗаполнениеТЧАвизоПоРеализации";
ИмяФайла = ПолучитьИмяВременногоФайла();
Отчет = Справочники.ВнешниеОбработки.НайтиПоНаименованию(ИмяОтчета);
ДвоичныеДанные = Отчет.ХранилищеВнешнейОбработки.Получить();
ДвоичныеДанные.Записать(ИмяФайла);
ФормаСписка = ВнешниеОбработки.ПолучитьФорму(ИмяФайла);
ФормаСписка.ОбъектДокумент = ОбъектДок;
ФормаСписка.ИмяТЧ = ИмяТабличнойЧасти;
ФормаСписка.ТабПоле = ТабличноеПолеОбъекта;
ФормаСписка.Открыть();
КонецПроцедуры // ИнициироватьОбъект()
При этом нужно обязательно при добавлении во внешние обработки название обработки.
Во вложении привожу готовый работающий вариант (заполнение табличной части авизо исходящее по МПЗ на основании реализации.
P.S. Если кто знает более изящное решение - прошу сообщить.
Вступайте в нашу телеграмм-группу Инфостарт
