Процедура Печать(ТабДок) Экспорт



//создание нового  табличного   документа 

ТабДок = Новый ТабличныйДокумент; 



//получение макета для печати расходной накладной

Макет = Документы.РасходнаяНакладная.ПолучитьМакет("Основной");



//получим область "Заголовок" как новый  табличный   документ  (!)

Область = Макет.ПолучитьОбласть("Заголовок"); 



//укажем параметры области

Область.Параметры.НомерДокумента = Номер;

Область.Параметры.От = Дата;

Область.Параметры.Кому = Контрагент;



//выведем заполненную область "Заголовок"  в   табличный   документ 

ТабДок.Вывести(Область);



//выведем область "Шапка"  в   табличный   документ 

ТабДок.Вывести(Макет.ПолучитьОбласть("Шапка"));



//получение области "Строка"

//обратите внимание, что это можно сделать до цикла по строкам

Область = Макет.ПолучитьОбласть("Строка");



// вывод  строк  документа  в печатную форму

Для Каждого СтрСостава Из Состав Цикл 

          //заполнение параметров области из строки  табличной  части 

     Область.Параметры.Заполнить(СтрСостава);



     // вывод  сформированной области  в   табличный   документ 

     ТабДок.Вывести(Область);



КонецЦикла;



// вывод  области "Подвал"

Область = Макет.ПолучитьОбласть("Подвал");

Область.Параметры.ИтогоКоличество = Состав.Итог("Количество");

Область.Параметры.ИтогоСумма = Состав.Итог("Сумма");

ТабДок.Вывести(Область);



//установим параметры отображения  табличного   документа 

ТабДок.ТолькоПросмотр = Истина;

ТабДок.ОтображатьЗаголовки = Истина;

ТабДок.ОтображатьСетку = Ложь;



//покажем  табличный   документ  на экране 

ТабДок.Показать();



КонецПроцедуры<br>   

 Функция СформироватьПечатнуюФорму(СсылкаНаДокумент, ОбъектыПечати)



ТабличныйДокумент = Новый ТабличныйДокумент;

ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_СчетНаОплату";



МакетОбработки = ПолучитьМакет("Счет");



//заполняем шапку

ОбластьШапка = МакетОбработки.ПолучитьОбласть("Шапка");

ОбластьШапка.Параметры.НомерДокумента = СсылкаНаДокумент.Номер;

ОбластьШапка.Параметры.ДатаДокумента = СсылкаНаДокумент.Дата;

ОбластьШапка.Параметры.НазваниеОрганизации = СсылкаНаДокумент.Организация.Наименование;

//выводим шапку в табличный документ

ТабличныйДокумент.Вывести(ОбластьШапка);



//заполняем строки ТЧ

ОбластьСтроки = МакетОбработки.ПолучитьОбласть("СтрокаТЧ");



// Перебор строк документа

Для Каждого ТекущаяСтрока Из СсылкаНаДокумент.Товары Цикл

ЗаполнитьЗначенияСвойств(ОбластьСтроки.Параметры, ТекущаяСтрока);

ТабличныйДокумент.Вывести(ОбластьСтроки);

КонецЦикла;



//заполняем подвал

ОбластьПодвал = МакетОбработки.ПолучитьОбласть("Подвал");

ОбластьПодвал.Параметры.КоличествоИтог = СсылкаНаДокумент.Товары.Итог("Количество");

ОбластьПодвал.Параметры.СуммаИтог = СсылкаНаДокумент.Товары.Итог("Сумма");

ОбластьПодвал.Параметры.ИмяОтветственного = СсылкаНаДокумент.Менеджер.Наименование;

//выводим подвал в табличный документ

ТабличныйДокумент.Вывести(ОбластьПодвал);



// Установим настройки выводимого документа

ТабличныйДокумент.АвтоМасштаб = Истина;



Возврат ТабличныйДокумент;

КонецФункции

   

 Процедура ОсновныеДействияФормыПечать(Кнопка)



 Если Ссылка = Документы.РасчетЗаказа.ПустаяСсылка() тогда

 Предупреждение("Документ не записан");

 Возврат;

 Иначе

 Схема = ПолучитьМакет("Макет1");

 Настройки = Схема.НастройкиПоУмолчанию;

 КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных();

 КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);



ПараметрДок = Новый ПараметрКомпоновкиДанных("документ");

 ЗначениеПараметраДок = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(ПараметрДок);

 ЗначениеПараметраДок.Значение = Ссылка;

 ЗначениеПараметраДок.Использование = Истина;

 Настройки = КомпоновщикНастроек.Настройки;



 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

 МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, Настройки);

 ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

 ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки);

 ДокументРезультат = Новый ТабличныйДокумент;

 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

 ПроцессорВывода.УстановитьДокумент(ДокументРезультат);

 ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);



 ДокументРезультат.ОтображатьЗаголовки = Ложь;

 ДокументРезультат.ОтображатьСетку = Ложь;

 ДокументРезультат.АвтоМасштаб = Истина;

 ДокументРезультат.Показать();



 КонецЕсли;

КонецПроцедуры   

 Процедура ПечатьНажатие(Элемент)

 СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");

 

 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

 ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;

 Настройки = КомпоновщикНастроек.Настройки;

 МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);

      

 ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,, ДанныеРасшифровки);

 

 ДокументРезультат = ЭлементыФормы.Результат;

 ДокументРезультат.АвтоМасштаб = Истина; // Сделаем по ширине листа

 //А если сделать так как на следующей строчке, то можно вывести в новый Табличный документ

 //ДокументРезультат = Новый ТабличныйДокумент;

 

 //Вывод текста и картинки

 Макет = ПолучитьМакет("НазваниеСРисунком");

 ОбластьВывести = Макет.ПолучитьОбласть("Вывести");

    ОбластьВывести.Параметры.ТекДата=ТекущаяДата();

 ДокументРезультат.Вывести(ОбластьВывести);

 //Текст и картинку вывели, теперь сам отчет

 

 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);

 ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

 

 ДокументРезультат.ОтображатьСетку = Ложь;

 ДокументРезультат.ОтображатьЗаголовки = Ложь;

 ДокументРезультат.Показать();

КонецПроцедуры   

  //Получение макета и областей вывода

	Макет = ПолучитьМакет("Отчет"); 

	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок"); 

	ОбластьКартинки = Макет.ПолучитьОбласть("ОбластьСКартинкой")

	ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");

	ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали"); 

	

	ТабДок = Новый ТабличныйДокумент; 

	//Вывод параметров в область

	ОбластьЗаголовок.Параметры.ДатаНач = ДатаНач; 

	ОбластьЗаголовок.Параметры.ДатаКон = ДатаКон; 

	//Вывод области в табличный документ

	ТабДок.Вывести(ОбластьЗаголовок); 

	//Вывод картинки

	Картинка = Новый Картинка(ПутьККартинке); 

   // Элемент управления "Логотип" входит в коллекцию картинок области. 

	ОбластьКартинки.Рисунки.Логотип.Картинка = Картинка; 

	ТабДок.Вывести(ОбластьКартинки); 

    //Выведем шапку таблицы

	ТабДок.Вывести(ОбластьШапкаТаблицы); 

	//Выведм строки из Результата запроса

    ВыборкаДетали = Результат.Выбрать(); 

	Пока ВыборкаДетали.Следующий() Цикл 

		//Заполним параметры значениями свойств переданного объекта. Заполняются только те параметры, имена которых совпадают с именами свойств объекта.

		ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали); 

		//Запишем в и область Описание примечание из запроса

		ОбластьДетальныхЗаписей.Область("Описание").Примечание.Текст = ВыборкаДетали.СодержаниеСобытия; 

		ТабДок.Вывести(ОбластьДетальныхЗаписей); 

	КонецЦикла; 

	//Зададим параметры вывода

	ТабДок.АвтоМасштаб=истина; // уместить на одну страницу

	ТабДок.ТолькоПросмотр=истина;

	ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;

	ТабДок.ОтображатьСетку=Ложь;

	ТабДок.ОтображатьЗаголовки=Ложь;

	//Выведем полученный документ

	ТабДок.Показать();    

  

Процедура ПросмотрДокумента()

	Таб = СоздатьОбъект("Таблица");

	Таб.ИсходнаяТаблица("РасходныйДокумент");

	Секция = Таб.ПолучитьСекцию("Шапка");

	Таб.ВывестиСекцию(Секция);

	Секция = Таб.ПолучитьСекцию("ПодписьТаблицы");

	Таб.ВывестиСекцию(Секция);

	ВыбратьСтроки();

	Пока  ПолучитьСтроку()=1 Цикл 

		Секция = Таб.ПолучитьСекцию("ТабличнаяЧасть");

		Таб.ВывестиСекцию(Секция);

	КонецЦикла;                       

	Секция = Таб.ПолучитьСекцию("Подвал");	

	Таб.ВывестиСекцию(Секция);

	Таб.ТолькоПросмотр(0);

	Таб.Показать();

КонецПроцедуры