Это старая версия документа!

&НаКлиенте
Процедура ПробитьЧек(Команда)
	Форма=ПолучитьФорму("Документ.ЧекККМ.Форма.прро_ФормаДокументаРМК");
	ДанныеФормы=Форма.Объект;
	ЗаполнитьДокНаСервере(ДанныеФормы,ЭтотОбъект.Объект.Ссылка);
	КопироватьДанныеФормы(ДанныеФормы, Форма.Объект);
	Форма.Открыть();
КонецПроцедуры

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