145
Если Стр.д30="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
Процедура Табельд31ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д31="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д31="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д31="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д31="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д31="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д31="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д31="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д31="К" Тогда
146
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д31="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
Процедура РабочихДнейПриИзменении(Элемент)
Объект.Часов=Объект.РабочихДней*8;
КонецПроцедуры
&НаКлиенте
Процедура ПодразделениеПриИзменении(Элемент)
Элементы.Табель.ДобавитьСтроку();
Стр = Элементы.Табель.ТекущиеДанные;
Работяга=ОбщийМодуль2.ПолучитьСотрудников(Объект.Подразделение);
Стр.Сотрудник =Работяга;
КонецПроцедуры
