1С 8.2 УП : Открытие формы не записанного документа

Нередко необходимо программно создать новый документ или элемент справочника и заполнить его данными. А затем, НЕ ЗАПИСЫВАЯ его в базу данных, открыть форму для того чтобы пользователь получил возможность его отредактировать и потом сам принял решение о его записи в БД(или отказался от записи). На платформах 8.0, 8.1 (и даже 7.7) это не представляло никакой сложности, а вот в тонком клиенте управляемого приложения 8.2 эта задача уже ни кажется столь тривиальной.

Первый способ заключается в том, что необходимо заранее подготовить некую структуру, которая будет содержать данные для заполнения документа, передать эту структуру в открываемую форму, а уже в самой форме в событии ПриСозданииНаСервере() заполнять вновь открываемую форму переданными в неё данными. Этот способ не нов, но у него есть один серьезный недостаток – необходимо изменить модуль формы самого объекта, чтобы добавить/изменить событие формы ПриСозданииНаСервере(), это очень не понравится тем кто работает с типовыми конфигурациями находящимися на поддержке. Кроме того этот подход не применим во внешних обработках, что сильно сокращает потенциал его применения.

Второй способ решения этой задачи лишен вышеупомянутых недостатков:

Код 1C v 8.2 УП

  &НаКлиенте

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

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

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

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

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

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

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



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

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

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

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

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

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

	КонецЦикла; 

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

Источник: [url=obrabotki.com]http://www.obrabotki.com/1s-openform-managedforms/[/url]

еще вариант:

Код 1C v 8.2 УП

 &НаКлиенте

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

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

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

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

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

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

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





&НаСервере

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

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

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

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

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

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

КонецЦикла;

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

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