Обработка заполнение табличных частей документа
Подскажите пожалуйста. Делаю внешнюю подключаемую обработку для заполнения табличной части Акта взаиморасчетов для Бухгалтерии Корп. При нажатии кнопки Заполнить ТЧ в документе Акт взаиморасчетов, необходимо чтобы перед выполнением обработки, выпадало окно выбора подразделения из справочника ПодразделенияОрганизации, чтобы передать подразделение параметром в запрос. Никак не могу понять как это сделать. Понимаю, что нужно использовать асинхронные методы, но как именно сделать так чтобы заработал не знаю
&НаКлиенте
Процедура Команда1(Команда)
ВыполнитьКоманду("Обработка ТЧ у Акта взаиморасчетов", Объект)
КонецПроцедуры
&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт
Подразделение = ОткрытьФорму("Справочник.ПодразделенияОрганизаций.Форма.ФормаВыбора");
Если ИдентификаторКоманды = "Обработка ТЧ у Акта взаиморасчетов" Тогда
Режим = РежимДиалогаВопрос.ДаНет;
Оповещение = Новый ОписаниеОповещения("ПослеОтветаНаВопросОЗаполненииТЧ", ЭтаФорма, Подразделение);
ПоказатьВопрос(Оповещение, "Заполнить табличную часть?", Режим, 0);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПослеОтветаНаВопросОЗаполненииТЧ(Результат, Подразделение) Экспорт
//Подразделение под отладчиком - УправляемаФорма. Как из получить выбранное подразделение?
Если Не ВладелецФормы = Неопределено Тогда
НовыйОбъект = ВладелецФормы.Объект;
Иначе
ВладелецФормы = ОткрытьФорму("Документ.АктСверкиВзаиморасчетов.Форма.ФормаДокумента", Новый Структура("Ключ", Объект.Ссылка));
НовыйОбъект = ВладелецФормы.Объект;
КонецЕсли;
ЗаполнитьПоДаннымБухгалтерскогоУчета(Ложь, НовыйОбъект, Подразделение);
КопироватьДанныеФормы(НовыйОбъект, ВладелецФормы.Объект);
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = "Табличная часть обработана!!!";
Сообщение.Сообщить();
КонецПроцедуры
ПоказатьПо теме из базы знаний
- Внешние обработки для заполнения табличных частей документов без использования модальных окон. БП 3.0
- Обработка заполнения табличной части документа "Инвентаризация товаров" по счету МЦ.04
- Обработка заполнения табличной части документа: подбор по справочнику номенклатуры + заполнение полей Количество и Цена
- Обработки заполнения табличной части для документов Перемещение товаров, Передача товаров и Требование-накладная для БП 2.0
- Внешняя обработка заполнения табличной части документа "Данные для расчета зарплаты"
Найденные решения
Вариант 1
Создать реквизит и элемент Подразделение в форме. Вводить подразделение в этот элемент.
Вариант 2
Создать реквизит и элемент Подразделение в форме. Вводить подразделение в этот элемент.
Вариант 2
&НаКлиенте
Процедура ВыбратьПодразделение(Команда)
ОткрытьФорму("Справочник.ПодразделенияОрганизаций.Форма.ФормаВыбораКФОснПодр",,ЭтаФорма,,,,
Новый ОписаниеОповещения("ДобавитьПодразделениеНаКлиенте",ЭтотОбъект),РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
КонецПроцедуры
&НаКлиенте
Процедура ВыбратьПодразделениеНаКлиенте(Результат,ДополнительныеРеквизиты) Экспорт
Если Результат=Неопределено Тогда
Возврат;
КонецЕсли;
Подразделение=Результат;
//...
КонецПроцедуры
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт
ОткрытьФорму("Справочник.ПодразделенияОрганизаций.ФормаВыбора",,ЭтаФорма); //Указываем владельца ЭтаФорма тогда у владельца при выборе будет вызываться обработка "ОбработкаВыбора"
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора)
//ВыбранноеЗначение это Подразделение а ИсточникВыбора это форма Справочник.ПодразделенияОрганизаций.ФормаВыбора
Сообщить(ВыбранноеЗначение);
КонецПроцедуры
Показать
Вариант 1
Создать реквизит и элемент Подразделение в форме. Вводить подразделение в этот элемент.
Вариант 2
Создать реквизит и элемент Подразделение в форме. Вводить подразделение в этот элемент.
Вариант 2
&НаКлиенте
Процедура ВыбратьПодразделение(Команда)
ОткрытьФорму("Справочник.ПодразделенияОрганизаций.Форма.ФормаВыбораКФОснПодр",,ЭтаФорма,,,,
Новый ОписаниеОповещения("ДобавитьПодразделениеНаКлиенте",ЭтотОбъект),РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
КонецПроцедуры
&НаКлиенте
Процедура ВыбратьПодразделениеНаКлиенте(Результат,ДополнительныеРеквизиты) Экспорт
Если Результат=Неопределено Тогда
Возврат;
КонецЕсли;
Подразделение=Результат;
//...
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот