115
Если Стр.д2="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д2="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д2="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д2="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д2="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д2="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д2="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д2="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
Процедура Табельд3ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д3="Пр" Тогда
116
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д3="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д3="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д3="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д3="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д3="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д3="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д3="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д3="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
Процедура Табельд4ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
117
Если Стр.д4="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д4="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д4="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д4="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д4="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д4="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д4="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д4="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д4="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
118
Процедура Табельд5ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д5="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д5="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д5="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д5="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д5="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д5="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д5="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д5="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д5="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
119
&НаКлиенте
Процедура Табельд6ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д6="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д6="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д6="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д6="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д6="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д6="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д6="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д6="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д6="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
120
КонецПроцедуры
&НаКлиенте
Процедура Табельд7ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д7="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д7="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д7="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д7="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д7="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д7="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д7="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д7="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д7="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
121
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
Процедура Табельд8ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д8="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д8="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д8="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д8="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д8="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д8="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д8="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д8="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д8="8" Тогда
122
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
Процедура Табельд9ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д9="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д9="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д9="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д9="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д9="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д9="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д9="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д9="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
123
Если Стр.д9="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
Процедура Табельд10ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д10="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д10="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д10="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д10="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д10="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д10="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д10="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д10="К" Тогда
124
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д10="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
Процедура Табельд11ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д11="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д11="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д11="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д11="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д11="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д11="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д11="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;