otkryt_formu_esche_ne_zapisannogo_dokumenta_i_zapolnit

Открыть форму еще не записанного документа и заполнить

&НаКлиенте
Процедура ПробитьЧек(Команда)
	Форма=ПолучитьФорму("Документ.ЧекККМ.Форма.прро_ФормаДокументаРМК");
	ДанныеФормы=Форма.Объект;
	ЗаполнитьДокНаСервере(ДанныеФормы,ЭтотОбъект.Объект.Ссылка);
	КопироватьДанныеФормы(ДанныеФормы, Форма.Объект);
	Форма.Модифицированность	=	Истина;
	Форма.Открыть();
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ЗаполнитьДокНаСервере(ДанныеФормы,ДанныеЗаполнения)
	ДокОбъект=ДанныеФормыВЗначение(ДанныеФормы,Тип("ДокументОбъект.ЧекККМ") );
	ДокОбъект.Заполнить(ДанныеЗаполнения);  //Вызов встроенной обработки заполнения
        ДокОбъект.Комментариц = "Создано автоматически"; //Или заполняем значеия реквизитов вручную
	ЗначениеВДанныеФормы(ДокОбъект,ДанныеФормы);
КонецПроцедуры
  • /sites/data/pages/otkryt_formu_esche_ne_zapisannogo_dokumenta_i_zapolnit.txt
  • Последнее изменение: 2023/07/18 13:43
  • tro