Как открыть управляемую форму не записанного документа?

 &НаКлиенте

Процедура КомандаОткрытьФорму(Команда)

	Форма = ПолучитьФорму("Справочник.Пользователи.ФормаОбъекта");

	ДанныеФормы = Форма.Объект;

	ЗаполнитьНаСервере(ДанныеФормы);

	КопироватьДанныеФормы(ДанныеФормы, Форма.Объект);

	Форма.Открыть();

КонецПроцедуры



&НаСервереБезКонтекста

Процедура ЗаполнитьНаСервере(НовыйОбъект);

        НовыйОбъект.Наименование = "Новый элемент";

	Для К=1 По 100 Цикл

	 	НоваяСтрока = НовыйОбъект.ТЧ.Добавить();

		НоваяСтрока.РеквизитТЧ = К;

	КонецЦикла; 

КонецПроцедуры   

 &НаКлиенте

Процедура СоздатьДокумент(Команда)

Форма = ПолучитьФорму("Документ.Реализация.ФормаОбъекта");

ДанныеФормы = Форма.Объект;

ЗаполнитьДокументНаСервере(ДанныеФормы);

КопироватьДанныеФормы(ДанныеФормы, Форма.Объект);

Форма.Открыть();

КонецПроцедуры



&НаСервере

Функция ЗаполнитьДокументНаСервере(ДанныеФормы);

Док = ДанныеФормыВЗначение(ДанныеФормы, Тип("ДокументОбъект.Реализация"));

Для каждого Стр Из ТЗ Цикл

СтрДок = Док.Товары.Добавить();

СтрДок.Количество = Стр.Количество;

СтрДок.Номенклатура = Стр.Номенклатура;

КонецЦикла;

ЗначениеВДанныеФормы(Док,ДанныеФормы);

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