6
takefive
05.09.20
✎
13:52
|
&НаСервереБезКонтекста
Процедура ЗаполнитьДанныеФормы(ДанныеФормы, Источник)
Приемник = ДанныеФормыВЗначение(ДанныеФормы, Тип("СправочникОбъект.Авто"));
ЗаполнитьЗначенияСвойств(Приемник, Источник);
ЗначениеВДанныеФормы(Приемник,ДанныеФормы);
КонецПроцедуры
&НаКлиенте
Источник Структура("ИмяПоля1, ИмяПоля2",ЗначениеПоля1, ЗначениеПоля2);
ФормаНового = ПолучитьФорму("Документ.ИмяДокумента.ФормаОбъекта");
ДанныеФормы = ФормаНового.Объект;
ЗаполнитьДанныеФормы(ДанныеФормы, Источник);
КопироватьДанныеФормы(ДанныеФормы, ФормаНового.Объект);
ФормаНового.Открыть();
|
|