Вывод остатки отпусков в табличный документ (знатокам СКД и ЗУПа)

&НаСервере

Процедура ЗаполнитьНастройки(НастройкиОтчета,Сотрудник,ДатаОтчета)

ЭлементыОтбора = НастройкиОтчета.Отбор.Элементы;

Для Каждого ТекЭлемент Из ЭлементыОтбора Цикл
               Если ТекЭлемент.Использование Тогда

                              Продолжить;

               КонецЕсли;      

               Если СокрЛП(ТекЭлемент.ЛевоеЗначение) = "Сотрудник" Тогда

                              ТекЭлемент.Использование  = Истина;

         ТекЭлемент.ВидСравнения   = ВидСравненияКомпоновкиДанных.Равно;

         ТекЭлемент.ПравоеЗначение = Сотрудник;  

               КонецЕСли;

               Если СокрЛП(ТекЭлемент.ЛевоеЗначение) = "ТекущаяОрганизация" Тогда

                              ТекЭлемент.Использование  = Истина;

         ТекЭлемент.ВидСравнения   = ВидСравненияКомпоновкиДанных.Равно;

         ТекЭлемент.ПравоеЗначение = Справочники.Организации.НайтиПоНаименованию("ООО РОмашка"); 

               КонецЕСли;

КонецЦикла;

 

 

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

 

 

&НаСервере

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

              

               МассивСотрудников = Новый Массив;

    МассивСотрудников.Добавить(Сотрудник);

              

    // Заполняем регистр ЗаработанныеПраваНаОтпуска.

    ОстаткиОтпусков.РасчетЗаработанныхОтпусков(МассивСотрудников, ДатаОтчета);

               СтандартнаяОбработка = ложь;

              

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

              

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

               ВариантНастроек        = СхемаКомпоновкиДанных.ВариантыНастроек.ОстаткиОтпусков;

              

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

    КомпоновщикНастроек.Инициализировать(Новый

    ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));

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

 

    НастройкиОтчета    = КомпоновщикНастроек.ПолучитьНастройки();

    ЗаполнитьНастройки(НастройкиОтчета,Сотрудник,ДатаОтчета);

              

              

              

              

               МакетКомпоновки = ЗарплатаКадрыОтчеты.МакетКомпоновкиДанных(СхемаКомпоновкиДанных, НастройкиОтчета, неопределено);

              

               // Создадим и инициализируем процессор компоновки.

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

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

              

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

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

              

               // Обозначим начало вывода.

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

              

              

               Возврат ДокументРезультат;

              

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

  

  

 

&НаСервере

Процедура ПоказатьОстатокНаСервере()

Объект.Результат.Вывести(СформироватьОтчетПООстаткуОтпуска(Объект.Сотрудник,НачалоДня(ТекущаяДата())));

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