//*********************Выбираем физ лиц и делаем итоги по подразделению для группировки по нему            **************
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    РаботникиОрганизацииСрезПоследних.ФизЛицо,
    |    РаботникиОрганизацииСрезПоследних.Подразделение КАК Подразделение,
    |    РаботникиОрганизацииСрезПоследних.Должность,
    |    РаботникиОрганизацииСрезПоследних.ДатаПриема,
    |    РаботникиОрганизацииСрезПоследних.КлассУТ
    |ИЗ
    |    РегистрСведений.РаботникиОрганизации.СрезПоследних КАК РаботникиОрганизацииСрезПоследних
    |ГДЕ
    |    РаботникиОрганизацииСрезПоследних.ПричинаИзмененияСостояния <> &Увольнение
    |    И РаботникиОрганизацииСрезПоследних.Подразделение <> &Пенсионеры
    |
    |УПОРЯДОЧИТЬ ПО
    |    РаботникиОрганизацииСрезПоследних.Подразделение.Наименование
    |ИТОГИ ПО
    |    Подразделение";
    
    Запрос.УстановитьПараметр( "Увольнение",Перечисления.ПричиныИзмененияСостояния.Получить(2));
    Запрос.УстановитьПараметр( "Пенсионеры",Справочники.ПодразделенияОрганизаций.НайтиПоКоду("50101"));
    
    РезультатЗапроса = Запрос.Выполнить();
    
    //********************* Конец Выбираем физ лиц и делаем итоги по подразделению для группировки по нему            **************            
    
    //***************Группировка подразделений******************
    ВыборкаИтоги = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    ТабДок.НачатьАвтогруппировкуСтрок();    
    Пока ВыборкаИтоги.Следующий()Цикл
        Область = Макет.ПолучитьОбласть("Строка");
        
        Область.Параметры.Подразделение =ВыборкаИтоги.Подразделение;
        
        ТабДок.Вывести(Область, 1);
        //*************** Конец Группировка подразделений******************    
        
        ///***********************Выбодим ФизЛицо В группе подразделений
        Выборка = ВыборкаИтоги.Выбрать(ОбходРезультатаЗапроса.Прямой);
        Пока Выборка.Следующий() Цикл
            ОбластьПодстрока = Макет.ПолучитьОбласть("Подстрока");
            ЗаполнитьЗначенияСвойств(ОбластьПодстрока.Параметры,Выборка);
            ТабДок.Вывести(ОбластьПодстрока, 2);
            
            //*********************Выбираем Факторы у физ лиц и выводим их **************
            Запрос = Новый Запрос;
            Запрос.Текст =
            "ВЫБРАТЬ
            |    ФизЛицоФакторыСрезПоследних.Фактор,
            |    ФизЛицоФакторыСрезПоследних.ВидЗанятости,
            |    ФизЛицоФакторыСрезПоследних.КлассУТ
            |ИЗ
            |    РегистрСведений.ФизЛицоФакторы.СрезПоследних(
            |            ,
            |            ФизЛицо = &ФизЛицо) КАК ФизЛицоФакторыСрезПоследних
            
            //|                И Подразделение = &Подразделение
            //|                И Должность = &Должность
            //|                И КлассУТ = &КлассУТ) КАК ФизЛицоФакторыСрезПоследних
            |ГДЕ
            |    ФизЛицоФакторыСрезПоследних.ДействуетФактор = ИСТИНА";
            
            //Запрос.УстановитьПараметр("Должность", Выборка.Должность);
            //Запрос.УстановитьПараметр("КлассУТ", Выборка.КлассУТ);
            //Запрос.УстановитьПараметр("Подразделение", Выборка.Подразделение);
            Запрос.УстановитьПараметр("ФизЛицо", Выборка.ФизЛицо);
            
            
            
            ВыборкаФакторыОсн = Запрос.Выполнить().Выбрать();
            Пока ВыборкаФакторыОсн.Следующий() Цикл
                ОбластьВредностиОсн= Макет.ПолучитьОбласть("ВредностиОсн");
                ЗаполнитьЗначенияСвойств(ОбластьВредностиОсн.Параметры,ВыборкаФакторыОсн);    
                ТабДок.Вывести(ОбластьВредностиОсн, 2);
                
            КонецЦикла;
            
            //*********************Выбираем Факторы у физ лиц и выводим их **************
            
        КонецЦикла;
        ///*********************** КОНЕЦ Выбодим ФизЛицо В группе подразделений    
        
        
    КонецЦикла;
    ТабДок.ЗакончитьАвтогруппировкуСтрок();