// Выводит результат СКД с установкой вертикальной автофиксации.
// Параметры:
// Таб - ТабличныеДокумент, ПолеТабличногоДокумента - куда выводим отчет;
// ПроцессорКомпоновкиДанных - ПроцессорКомпоновкиДанных;
// ЭлементыРасшировки - ЭлементыРасшифровкиКомпоновкиДанных;
// МассивИгнорируемыхПолей - Массив, *Неопределено - массив имен игнорируемых полей;
// РазрешитьПрерывание - Булево, *Истина.
//
Процедура ЛксВывестиРезультатКомпоновкиСАвтофиксациейСтрок(Таб, ПроцессорКомпоновкиДанных, ЭлементыРасшировки,
 Знач МассивИгнорируемыхПолей = Неопределено, РазрешитьПрерывание = Истина) Экспорт 
 
 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
 ПроцессорВывода.УстановитьДокумент(Таб);
 ПроцессорВывода.НачатьВывод();
 ФиксацияВыполнена = Ложь;
 Если МассивИгнорируемыхПолей = Неопределено Тогда
 	МассивИгнорируемыхПолей = Новый Массив;
 КонецЕсли; 
 Пока Истина Цикл
 	ЭлементРезультатаКомпоновкиДанных = ПроцессорКомпоновкиДанных.Следующий();
 	Если ЭлементРезультатаКомпоновкиДанных = Неопределено Тогда
 	 Прервать;
 	КонецЕсли;
  
 	// Автофиксация
 	Если Не ФиксацияВыполнена Тогда
 	 Для Каждого ЗначениеПараметра Из ЭлементРезультатаКомпоновкиДанных.ЗначенияПараметров Цикл
 	 Если ТипЗнч(ЗначениеПараметра.Значение) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") Тогда
 	 ЗначенияПолейРасшифровки = ЭлементыРасшировки[ЗначениеПараметра.Значение].ПолучитьПоля();
 	 Для Каждого ЗначениеПоляРасшифровки Из ЗначенияПолейРасшифровки Цикл
 	 Если МассивИгнорируемыхПолей.Найти(ЗначениеПоляРасшифровки.Поле) = Неопределено Тогда
 	 Таб.ФиксацияСверху = Таб.ВысотаТаблицы;
 	 ФиксацияВыполнена = Истина;
 	 Прервать;
 	 КонецЕсли;
 	 КонецЦикла;
 	 Если ФиксацияВыполнена Тогда
 	 Прервать;
 	 КонецЕсли;
 	 КонецЕсли;
 	 КонецЦикла;
 	КонецЕсли;
  
 	ПроцессорВывода.ВывестиЭлемент(ЭлементРезультатаКомпоновкиДанных);
 	Если РазрешитьПрерывание Тогда
 	 ОбработкаПрерыванияПользователя();
 	КонецЕсли; 
 КонецЦикла;
 ПроцессорВывода.ЗакончитьВывод();
 
КонецПроцедуры // ЛксВывестиРезультатКомпоновкиСАвтофиксациейСтрок   

 
ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
ТабДок.ФиксацияСверху = 3;
ТабДок.ФиксацияСлева = 4;   

  //Фиксируем область, Закрепим область, сверху 4 ячейки, слева 1 
ТаблДокумент.ФиксацияСверху = 4;
ТаблДокумент.ФиксацияСлева = 1;
//Установить вид страницы Альбомная
ТаблДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
//Установим автомасштаб
ТаблДокумент.АвтоМасштаб = Истина;
//Установим только просмотр
ТаблДокумент.ТолькоПросмотр = Истина;    

  Таблица.Опции(,,1,1,,,); 

 // Пример от  sergeante   Фиксирует шапку при любых отборах.
Процедура скдФиксироватьШапкуОтчета(ТабДок, Фиксировать, Строка = "Номенклатура", Поправка = 0) Экспорт
    Если Фиксировать Тогда
        Область = ТабДок.НайтиТекст(Строка,,,,Истина);
        ТабДок.ФиксацияСверху = ?(ЗначениеЗаполнено(Область), Область.Верх + Поправка, 0);    
    Иначе
        ТабДок.ФиксацияСверху = 0;
    КонецЕсли; 
КонецПроцедуры   

  // Пример от i-rek
   ПроцессорВывода.НачатьВывод(); 

    ТаблицаЗафиксирована = Ложь;
    Пока Истина Цикл
        ЭлементРезультата = ПроцессорКомпоновкиДанных.Следующий();
         Если ЭлементРезультата= Неопределено Тогда
            Прервать;     
         Иначе     
            ПроцессорВывода.ВывестиЭлемент(ЭлементРезультата);
            Если Не ТаблицаЗафиксирована И ЭлементРезультата.ЗначенияПараметров.Количество() >  0 Тогда
                ТаблицаЗафиксирована = Истина;
                Таб.ФиксацияСверху = Таб.ВысотаТаблицы;
              КонецЕсли;
         КонецЕсли;
    КонецЦикла;
    ПроцессорВывода.ЗакончитьВывод();   

 // Пример от Kashemir
Процедура глВывестиРезультатКомпоновкиСАвтофиксациейСтрок( Таб, 
                                                            ПроцессорКомпоновкиДанных, 
                                                            ЭлементыРасшировки,
                                                             Знач МассивИгнорируемыхПолей = Неопределено, 
                                                            РазрешитьПрерывание = Истина) Экспорт 
 
 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
 ПроцессорВывода.УстановитьДокумент(Таб);
 ПроцессорВывода.НачатьВывод();
 ФиксацияВыполнена = Ложь;
 Если МассивИгнорируемыхПолей = Неопределено Тогда
     МассивИгнорируемыхПолей = Новый Массив;
 КонецЕсли; 
 Пока Истина Цикл
     ЭлементРезультатаКомпоновкиДанных = ПроцессорКомпоновкиДанных.Следующий();
     Если ЭлементРезультатаКомпоновкиДанных = Неопределено Тогда
         Прервать;
     КонецЕсли;
     
     // Автофиксация 
     Если Не ФиксацияВыполнена Тогда
         Для Каждого ЗначениеПараметра Из ЭлементРезультатаКомпоновкиДанных.ЗначенияПараметров Цикл
             Если ТипЗнч(ЗначениеПараметра.Значение) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") Тогда
                 ЗначенияПолейРасшифровки = ЭлементыРасшировки[ЗначениеПараметра.Значение].ПолучитьПоля();
                 Для Каждого ЗначениеПоляРасшифровки Из ЗначенияПолейРасшифровки Цикл
                     Если МассивИгнорируемыхПолей.Найти(ЗначениеПоляРасшифровки.Поле) = Неопределено Тогда
                         Таб.ФиксацияСверху = Таб.ВысотаТаблицы;
                         ФиксацияВыполнена = Истина;
                         Прервать;
                     КонецЕсли;
                 КонецЦикла;
                 Если ФиксацияВыполнена Тогда
                     Прервать;
                 КонецЕсли;
             КонецЕсли;
         КонецЦикла;
     КонецЕсли;
     
     ПроцессорВывода.ВывестиЭлемент(ЭлементРезультатаКомпоновкиДанных);
     Если РазрешитьПрерывание Тогда
         #Если Клиент тогда 
         ОбработкаПрерыванияПользователя();
         #КонецЕсли 
     КонецЕсли; 
 КонецЦикла;
 ПроцессорВывода.ЗакончитьВывод();
 
КонецПроцедуры