Подключение защиты на печатную форму

&НаКлиенте
Процедура Печать(Команда)
    СформироватьМакет(Объект.Ссылка).Показать();
 
 
 
КонецПроцедуры
 
&НаСервереБезКонтекста
Функция СформироватьМакет(Ссылка)
    
Макет = Документы.ПлатежноеПоручение.ПолучитьМакет("ПечатнаяФорма");
ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
ОбластьДанные = Макет.ПолучитьОбласть("ОбластьДанных");
ОбластьПодпись = Макет.ПолучитьОбласть("Подпись"); 
ТабДок = Новый ТабличныйДокумент;
 
ОбластьШапка.Параметры.Дата = Ссылка.Дата;
ОбластьШапка.Параметры.Номер = Ссылка.Номер;
ОбластьДанные.Параметры.Плательщик = Ссылка.Плательщик;
ОбластьДанные.Параметры.ПлательщикКод = Ссылка.Плательщик.Код;
ОбластьДанные.Параметры.БанкСсылкаКод = Ссылка.Банк.Код;
ОбластьДанные.Параметры.БанкСсылкаДебитСчет = Ссылка.Банк.ДебитСчет;
ОбластьДанные.Параметры.БанкСсылкаКредитСчет = Ссылка.Банк.КредитСчет;
ОбластьДанные.Параметры.НазначениеПлатежаСчетКод = Ссылка.НазначениеПлатежа.СчетКод;
ОбластьДанные.Параметры.Текст = Ссылка.Текст;
ОбластьДанные.Параметры.Сумма = Ссылка.Сумма;
ОбластьДанные.Параметры.СуммаСловами = Ссылка.СуммаСловами;
 
ТабДок.Вывести(ОбластьШапка);
ТабДок.Вывести(ОбластьДанные);
ТабДок.Вывести(ОбластьПодпись);
 
Возврат ТабДок;
КонецФункции

&НаКлиенте
Процедура Печать(Команда)
    СформироватьМакет(Объект.Ссылка).Показать();
КонецПроцедуры
 
&НаСервереБезКонтекста
Функция СформироватьМакет(Ссылка)
    
Макет = Документы.ПлатежноеПоручение.ПолучитьМакет("ПечатнаяФорма");
//Экземпляр 1
ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
ОбластьДанные = Макет.ПолучитьОбласть("ОбластьДанных");
ОбластьПодпись = Макет.ПолучитьОбласть("Подпись"); 
//Экземпляр 2
ОбластьШапка1 = Макет.ПолучитьОбласть("Шапка1");
ОбластьДанные1 = Макет.ПолучитьОбласть("ОбластьДанных1");
ОбластьПодпись1 = Макет.ПолучитьОбласть("Подпись1"); 
//Экземпляр 3
ОбластьШапка2 = Макет.ПолучитьОбласть("Шапка2");
ОбластьДанные2 = Макет.ПолучитьОбласть("ОбластьДанных2");
ОбластьПодпись2 = Макет.ПолучитьОбласть("Подпись2"); 
 
ТабДок = Новый ТабличныйДокумент;
//Экземпляр 1
ОбластьШапка.Параметры.Дата = Ссылка.Дата;
ОбластьШапка.Параметры.Номер = Ссылка.Номер;
ОбластьДанные.Параметры.Плательщик = Ссылка.Плательщик;
ОбластьДанные.Параметры.ПлательщикКод = Ссылка.Плательщик.Код;
ОбластьДанные.Параметры.БанкСсылкаКод = Ссылка.Банк.Код;
ОбластьДанные.Параметры.БанкСсылкаДебитСчет = Ссылка.Банк.ДебитСчет;
ОбластьДанные.Параметры.БанкСсылкаКредитСчет = Ссылка.Банк.КредитСчет;
ОбластьДанные.Параметры.НазначениеПлатежаСчетКод = Ссылка.НазначениеПлатежа.СчетКод;
ОбластьДанные.Параметры.Текст = Ссылка.Текст;
ОбластьДанные.Параметры.Сумма = Ссылка.Сумма;
ОбластьДанные.Параметры.СуммаСловами = Ссылка.СуммаСловами;
 
//Экземпляр 2
ОбластьШапка1.Параметры.Дата = Ссылка.Дата;
ОбластьШапка1.Параметры.Номер = Ссылка.Номер;
ОбластьДанные1.Параметры.Плательщик = Ссылка.Плательщик;
ОбластьДанные1.Параметры.ПлательщикКод = Ссылка.Плательщик.Код;
ОбластьДанные1.Параметры.БанкСсылкаКод = Ссылка.Банк.Код;
ОбластьДанные1.Параметры.БанкСсылкаДебитСчет = Ссылка.Банк.ДебитСчет;
ОбластьДанные1.Параметры.БанкСсылкаКредитСчет = Ссылка.Банк.КредитСчет;
ОбластьДанные1.Параметры.НазначениеПлатежаСчетКод = Ссылка.НазначениеПлатежа.СчетКод;
ОбластьДанные1.Параметры.Текст = Ссылка.Текст;
ОбластьДанные1.Параметры.Сумма = Ссылка.Сумма;
ОбластьДанные1.Параметры.СуммаСловами = Ссылка.СуммаСловами;
 
//Экземпляр 3
ОбластьШапка2.Параметры.Дата = Ссылка.Дата;
ОбластьШапка2.Параметры.Номер = Ссылка.Номер;
ОбластьДанные2.Параметры.Плательщик = Ссылка.Плательщик;
ОбластьДанные2.Параметры.ПлательщикКод = Ссылка.Плательщик.Код;
ОбластьДанные2.Параметры.БанкСсылкаКод = Ссылка.Банк.Код;
ОбластьДанные2.Параметры.БанкСсылкаДебитСчет = Ссылка.Банк.ДебитСчет;
ОбластьДанные2.Параметры.БанкСсылкаКредитСчет = Ссылка.Банк.КредитСчет;
ОбластьДанные2.Параметры.НазначениеПлатежаСчетКод = Ссылка.НазначениеПлатежа.СчетКод;
ОбластьДанные2.Параметры.Текст = Ссылка.Текст;
ОбластьДанные2.Параметры.Сумма = Ссылка.Сумма;
ОбластьДанные2.Параметры.СуммаСловами = Ссылка.СуммаСловами;
 
//Экземпляр 1
ТабДок.Вывести(ОбластьШапка);
ТабДок.Вывести(ОбластьДанные);
ТабДок.Вывести(ОбластьПодпись);
//Экземпляр 2
ТабДок.Вывести(ОбластьШапка1);
ТабДок.Вывести(ОбластьДанные1);
ТабДок.Вывести(ОбластьПодпись1);
//Экземпляр 3
ТабДок.Вывести(ОбластьШапка2);
ТабДок.Вывести(ОбластьДанные2);
ТабДок.Вывести(ОбластьПодпись2);
 
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Истина;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
 
Возврат ТабДок;
КонецФункции