Заполнение табличной части документы по данным выбора
По теме из базы знаний
- Заполнение табличных частей документов (управляемое и обычное приложение)
- Заполнение табличной части документов из файла Excel (для 1С 7.7 бухгалтерский учет, ред. 4.5)
- Заполнение документа "Премия" из файла Excel (Табельный номер + Сумма премии) с использованием внешней обработки заполнения табличной части и расширения. ЗУП 3.1
- Заполнение табличной части документа "Счет на оплату покупателя" на основании нескольких документов "Счет на оплату покупателя"
- Заполнение табличной части документа внешней обработкой с открытием формы, загрузкой из excel файла и переносом в документ
Найденные решения
(10)Например вот так
// код для процедуры "ВыполнитьКоманду"
ОписаниеОповещения = Новый ОписаниеОповещения("ВыборДокументаПТиУ", ЭтотОбъект);
ОткрытьФорму("Документ.ПоступлениеТоваровУслуг.ФормаВыбора",,,,,, ОписаниеОповещения);
// новая процедура
&НаКлиенте
Процедура ВыборДокументаПТиУ(РезультатВыбора, ДополнительныеПараметры) Экспорт
//РезультатВыбора - выбранный документ
КонецПроцедуры
(14)спасибо. именно так и сделала.
&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт
ОписаниеОповещения = Новый ОписаниеОповещения("ВыборПоступленияЗавершение", ЭтаФорма);
ОткрытьФорму("Документ.ПриобретениеТоваровУслуг.ФормаВыбора",,,,,,ОписаниеОповещения);
КонецПроцедуры
&НаКлиенте
Процедура ВыборПоступленияЗавершение(Результат, Параметры) Экспорт
Если Не Результат = Неопределено Тогда
СсылкаНаПТиУ = Результат;
КонецЕсли;
ОбъектДляЗаполнения = ВладелецФормы.Объект;
ОбъектДляЗаполнения = ВыполнитьЗаполнениеНаСервере(ОбъектДляЗаполнения,СсылкаНаПТиУ);
КопироватьДанныеФормы(ОбъектДляЗаполнения, ВладелецФормы.Объект);
КонецПроцедуры
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(10)Например вот так
// код для процедуры "ВыполнитьКоманду"
ОписаниеОповещения = Новый ОписаниеОповещения("ВыборДокументаПТиУ", ЭтотОбъект);
ОткрытьФорму("Документ.ПоступлениеТоваровУслуг.ФормаВыбора",,,,,, ОписаниеОповещения);
// новая процедура
&НаКлиенте
Процедура ВыборДокументаПТиУ(РезультатВыбора, ДополнительныеПараметры) Экспорт
//РезультатВыбора - выбранный документ
КонецПроцедуры
(14)спасибо. именно так и сделала.
&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт
ОписаниеОповещения = Новый ОписаниеОповещения("ВыборПоступленияЗавершение", ЭтаФорма);
ОткрытьФорму("Документ.ПриобретениеТоваровУслуг.ФормаВыбора",,,,,,ОписаниеОповещения);
КонецПроцедуры
&НаКлиенте
Процедура ВыборПоступленияЗавершение(Результат, Параметры) Экспорт
Если Не Результат = Неопределено Тогда
СсылкаНаПТиУ = Результат;
КонецЕсли;
ОбъектДляЗаполнения = ВладелецФормы.Объект;
ОбъектДляЗаполнения = ВыполнитьЗаполнениеНаСервере(ОбъектДляЗаполнения,СсылкаНаПТиУ);
КопироватьДанныеФормы(ОбъектДляЗаполнения, ВладелецФормы.Объект);
КонецПроцедуры
Показать
Вот код
&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт
ФормаПТиУ = ПолучитьФорму("Документ.ПриобретениеТоваровУслуг.ФормаВыбора");
ФормаПТиУ.Открыть();
//Тут получить сссылку на выбранный
СсылкаНаПТиУ = ФормаПТиУ.ССылка
ОбъектДляЗаполнения = ВладелецФормы.Объект;
ОбъектДляЗаполнения = ВыполнитьЗаполнениеНаСервере(ОбъектДляЗаполнения);
КопироватьДанныеФормы(ОбъектДляЗаполнения, ВладелецФормы.Объект);
КонецПроцедуры
Процедура ОбработкаВыбора(ВыбранноеЗначение)
КонецПроцедуры;
&НаСервере
Функция ВыполнитьЗаполнениеНаСервере(ОбъектЗаполнения,Док)
ЗапросДанных = Новый Запрос(
"ВЫБРАТЬ
| ПриобретениеТоваровУслугТовары.Номенклатура КАК Номенклатура,
| &СтатьяКалькуляции КАК СтатьяКалькуляции,
| &ДатаРасхода КАК ДатаРасхода,
| ПриобретениеТоваровУслугТовары.Количество КАК Количество,
| ПриобретениеТоваровУслугТовары.Количество КАК КоличествоУпаковок
|ИЗ
| Документ.ПриобретениеТоваровУслуг.Товары КАК ПриобретениеТоваровУслугТовары
|ГДЕ
| ПриобретениеТоваровУслугТовары.Ссылка = &Ссылка");
ЗапросДанных.УстановитьПараметр("Ссылка", Док);
ЗапросДанных.УстановитьПараметр("СтатьяКалькуляции",Справочники.СтатьиКалькуляции.НайтиПоНаименованию("Материалы"));
ЗапросДанных.УстановитьПараметр("ДатаРасхода", КонецМесяца(ОбъектЗаполнения.Ссылка.Дата));
ОбъектЗаполнения.РасходМатериаловИРабот.Загрузить(ЗапросДанных.Выполнить().Выгрузить());
Возврат ОбъектЗаполнения;
КонецФункции
Показать
(13) Такой пример использовался при модальном открытии окна.
Ниже пример кода для выбора в УФ без модальности.
Ниже пример кода для выбора в УФ без модальности.
&НаКлиенте
Процедура Выбрать(Команда)
ОписаниеОповещенияОЗакрытии = Новый ОписаниеОповещения("ФормаВыбораОкончание", ЭтаФорма);
ОткрытьФорму("Справочник.Контрагенты.ФормаВыбора", , ЭтаФорма, , , , ОписаниеОповещенияОЗакрытии, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
КонецПроцедуры
&НаКлиенте
Процедура ФормаВыбораОкончание(Результат, ДополнительныеПараметры) Экспорт
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
// Получаем выбранное значение.
Контрагент = Результат;
КонецПроцедуры // ФормаВыбораОкончание()
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот