&НаКлиенте Процедура КомандаОткрытьФорму(Команда) Форма = ПолучитьФорму("Справочник.Пользователи.ФормаОбъекта"); ДанныеФормы = Форма.Объект; ЗаполнитьНаСервере(ДанныеФормы); КопироватьДанныеФормы(ДанныеФормы, Форма.Объект); Форма.Открыть(); КонецПроцедуры &НаСервереБезКонтекста Процедура ЗаполнитьНаСервере(НовыйОбъект); НовыйОбъект.Наименование = "Новый элемент"; Для К=1 По 100 Цикл НоваяСтрока = НовыйОбъект.ТЧ.Добавить(); НоваяСтрока.РеквизитТЧ = К; КонецЦикла; КонецПроцедуры
&НаКлиенте Процедура СоздатьДокумент(Команда) Форма = ПолучитьФорму("Документ.Реализация.ФормаОбъекта"); ДанныеФормы = Форма.Объект; ЗаполнитьДокументНаСервере(ДанныеФормы); КопироватьДанныеФормы(ДанныеФормы, Форма.Объект); Форма.Открыть(); КонецПроцедуры &НаСервере Функция ЗаполнитьДокументНаСервере(ДанныеФормы); Док = ДанныеФормыВЗначение(ДанныеФормы, Тип("ДокументОбъект.Реализация")); Для каждого Стр Из ТЗ Цикл СтрДок = Док.Товары.Добавить(); СтрДок.Количество = Стр.Количество; СтрДок.Номенклатура = Стр.Номенклатура; КонецЦикла; ЗначениеВДанныеФормы(Док,ДанныеФормы); КонецФункции