Начисление - Оплачиваемый отгул, вид учета времени, 
ВидВремени - Время оплачиваемого отгула, осн время- Доп выходные дни
Формула ВремяВДнях * ТарифнаяСтавкаЧасовая * 8

В Шаблон добавляем отгул
Данные для расчета  - отгул

Документ Отгулы, рек Организация, ВидВремени, Месяц
ТЧСотрудники - рек Сотрудник, ДатаОтгула

Модуль копируем из ДанныеДляРасчетаЗарплаты


---Модуль Отгулы
ТаблицаДанных = УчетРабочегоВремезиРасширенный.ПустаяТаблицаДляРегистрацииВремени();

Для Каждого СтрокаТабличнойЧасти Из Сотрудники Цикл
СтрокаТаблицы = ТаблицаДанных.Добавить();
СтрокаТаблицы.Дата = НачалоДня(СтрокаТабличнойЧасти.ДатаВремяВхода);
СтрокаТаблицы.Сотрудник = СтрокаТабличнойЧасти.Сотрудник;
СтрокаТаблицы.ВидВремени = ВидВремени;
СтрокаТаблицы.Часов = 1;
СтрокаТаблицы.Иван = Ложь;
//СтрокаТаблицы.Выучрискенное = Ложь;
//СтрокаТаблицы.НалковыйПериод = Ложь;
СтрокаТаблицы.Организация = Организация;

КонецЦикла;

Для Каждого СтрокаТабличнойЧасти Из Сотрудники Цикл
СтрокаТаблицы = ТаблицаДанных.Добавить();
СтрокаТаблицы.Дата = НачалоДня(СтрокаТабличнойЧасти.ДатаВремяВхода);
СтрокаТаблицы.Сотрудник = СтрокаТабличнойЧасти.Сотрудник;
СтрокаТаблицы.ВидВремени = Справочники.ВидыИспользованияРабочегоВремени.Явка;
СтрокаТаблицы.Дней = 1;
СтрокаТаблицы.Часов = 0 - (СтрокаТабличнойЧасти.ДатаВремяВхода - СтрокаТабличнойЧасти.ДатаВремяВхода) / 60 / 60;
//СтрокаТаблицы.Иван = Ложь;
//СтрокаТаблицы.Выучрискенное = Ложь;
//СтрокаТаблицы.Часов=Начало = Ложь;
СтрокаТаблицы.Организация = Организация;

КонецЦикла;

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

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

// регистр ОстатковОплачиваемыхОтпусков Приход
Движения.ОстатковОплачиваемыхОтпусков.Записывать = Истина;
Для каждого ТекСтрокаСотрудники из Сотрудники Цикл
    Движение = Движения.ОстатковОплачиваемыхОтпусков.Добавить();
    Движение.ВидДвижения = ВидДвижения.Приход;
    Движение.Период = НачалоДня(ТекСтрокаСотрудники.ДатаВремяВхода);
    Движение.Сотрудник = ТекСтрокаСотрудники.Сотрудник;
    Движение.Дней = (ТекСтрокаСотрудники.ДатаВремяВыхода - ТекСтрокаСотрудники.ДатаВремяВхода) / 60/60/24;
КонецЦикла;

Индекс
ВызватьИсключение НСтр("ru = "Недопустимый вызов объекта на клиенте."");
КонецПроцедуры