Открытие формы (еще не записаного объекта)
&НаКлиенте
Процедура ОбработчикНаКлиенте()
ФормаНовогоДокумента = ПолучитьФорму("Документ.НашДокумент.Форма.ФормаДокумента");
ДанныеФормы = ФормаНовогоДокумента.Объект; //у формы надо проеврить обязательно чтобы существовал "Объект"
ОбработатьДанныеНаСервере(ДанныеФормы);
КопироватьДанныеФормы(ДанныеФормы, ФормаНовогоДокумента.Объект);
ФормаНовогоДокумента.Модифицированность = Истина;
ФормаНовогоДокумента.Открыть();
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ОбработатьДанныеНаСервере(ДанныеФормы)
//создание нового документа через данные формы для последующего его открытия
НовыйДокумент = ДанныеФормыВЗначение(ДанныеФормы, Тип("ДокументОбъект.НашДокумент"));
//алгоритм заполнения реквизитов
НовыйДокумент.Комментарий = "Создан автоматически: " + ТекущаяДатаСеанса();
ЗначениеВДанныеФормы(НовыйДокумент, ДанныеФормы);
КонецПроцедуры
Процедура ОбработчикНаКлиенте()
ФормаНовогоДокумента = ПолучитьФорму("Документ.НашДокумент.Форма.ФормаДокумента");
ДанныеФормы = ФормаНовогоДокумента.Объект; //у формы надо проеврить обязательно чтобы существовал "Объект"
ОбработатьДанныеНаСервере(ДанныеФормы);
КопироватьДанныеФормы(ДанныеФормы, ФормаНовогоДокумента.Объект);
ФормаНовогоДокумента.Модифицированность = Истина;
ФормаНовогоДокумента.Открыть();
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ОбработатьДанныеНаСервере(ДанныеФормы)
//создание нового документа через данные формы для последующего его открытия
НовыйДокумент = ДанныеФормыВЗначение(ДанныеФормы, Тип("ДокументОбъект.НашДокумент"));
//алгоритм заполнения реквизитов
НовыйДокумент.Комментарий = "Создан автоматически: " + ТекущаяДатаСеанса();
ЗначениеВДанныеФормы(НовыйДокумент, ДанныеФормы);
КонецПроцедуры
Комментариев нет:
Отправить комментарий