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



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

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



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

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



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

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



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

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

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

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



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

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



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

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



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

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

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



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

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

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

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



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

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



КонецЦикла;



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

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

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

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

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



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

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

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

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



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

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



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

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



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

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



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



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

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

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

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

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

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

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



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

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



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

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

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

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

КонецЦикла;



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

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

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

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

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

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

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



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

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



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

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

   

 

// В МОДУЛЕ ФОРМЫ

&НаКлиенте

Процедура СформироватьБезСКД(Команда)

	СформироватьСервер();		

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



&НаСервере

Функция СформироватьСервер()

	мОтчет    = РеквизитФормыВЗначение("Отчет");

	Результат =  мОтчет.СформироватьПечатнуюФорму();

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





// В МОДУЛЕ ОБЪЕКТА

Функция СформироватьПечатнуюФорму() Экспорт

   рзДанные = ПолучитьДанныеДляОтчета();

   Возврат рзДанные;	

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





Функция ТДВТаблицуЗначений(ТабДок, КолонкаИндекса = 1)

  

    ТаблицаДанных = Новый ТаблицаЗначений;

    НомерКолонки = 0;

    Пока Истина Цикл

        НомерКолонки = НомерКолонки + 1;

        ИмяКолонки = ТабДок.Область(1, НомерКолонки).Текст;

        Если ПустаяСтрока(ИмяКолонки) Тогда

            Прервать;

        КонецЕсли;        

        ТаблицаДанных.Колонки.Добавить(СтрЗаменить(ИмяКолонки, " ","_"));

    КонецЦикла;

    

    СчетчикКолонок = НомерКолонки - 1;

    

    НомерСтроки = 1; ФлагПрерывания = Ложь;

    Пока Истина Цикл

        НомерСтроки = НомерСтроки + 1;

        Стр = ТаблицаДанных.Добавить();

        

        Для А = 1 ПО СчетчикКолонок Цикл

            ТекстКолонки = ТабДок.Область(НомерСтроки, А).Текст;

            Если ПустаяСтрока(ТекстКолонки) Тогда

                Если А = КолонкаИндекса Тогда

                    Флагпрерывания = Истина;

                    ТаблицаДанных.Удалить(Стр);

                КонецЕсли;

            Иначе

                Стр[А - 1] = ТекстКолонки

            КонецЕсли;

            

            Если Флагпрерывания Тогда

                Прервать

            КонецЕсли;

        КонецЦикла;

        

        Если Флагпрерывания Тогда

            Прервать

        КонецЕсли;

    КонецЦикла;

    

    Возврат ТаблицаДанных

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





Функция ПолучитьДанныеДляОтчета()

	КомпоновщикНастроек.Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("НачалоПериода", НачалоПериода);

	КомпоновщикНастроек.Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонецПериода", КонецДня(КонецПериода));

	КомпоновщикНастроек.Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Организация", Организация);

			

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

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



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



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

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



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



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

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



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



	///Переведем ТабДокумент в ТЗ

	 тзДанные = ТДВТаблицуЗначений(ТабличныйДокумент);	

 	Возврат  тзДанные;

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