135
Если Стр.д21="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д21="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д21="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д21="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д21="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д21="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д21="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
Процедура Табельд22ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д22="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д22="П" Тогда
136
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д22="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д22="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д22="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д22="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д22="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д22="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д22="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
Процедура Табельд23ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д23="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
137
Если Стр.д23="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д23="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д23="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д23="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д23="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д23="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д23="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д23="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
Процедура Табельд24ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д24="Пр" Тогда
138
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д24="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д24="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д24="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д24="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д24="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д24="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д24="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д24="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
Процедура Табельд25ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
139
Если Стр.д25="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д25="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д25="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д25="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д25="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д25="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д25="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д25="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д25="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
140
Процедура Табельд26ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д26="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д26="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д26="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д26="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д26="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д26="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д26="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д26="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д26="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
141
&НаКлиенте
Процедура Табельд27ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д27="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д27="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д27="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д27="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д27="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д27="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д27="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д27="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д27="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
142
КонецПроцедуры
&НаКлиенте
Процедура Табельд28ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д28="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д28="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д28="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д28="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д28="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д28="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д28="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д28="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д28="8" Тогда
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
143
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
Процедура Табельд29ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д29="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д29="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д29="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д29="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д29="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д29="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д29="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д29="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;
Если Стр.д29="8" Тогда
144
Стр.ОтрабДней=Стр.ОтрабДней+1;
КонецЕсли;
ОбщийМодуль1.РассчитатьЧасы(Стр);
КонецПроцедуры
&НаКлиенте
Процедура Табельд30ПриИзменении(Элемент)
Стр= Элементы.Табель.ТекущиеДанные;
Если Стр.д30="Пр" Тогда
Стр.Прогул=Стр.Прогул+1;
КонецЕсли;
Если Стр.д30="П" Тогда
Стр.Праздничные=Стр.Праздничные+1;
КонецЕсли;
Если Стр.д30="В" Тогда
Стр.Выходные=Стр.Выходные+1;
КонецЕсли;
Если Стр.д30="О" Тогда
Стр.Отпуск=Стр.Отпуск+1;
КонецЕсли;
Если Стр.д30="Б" Тогда
Стр.Больничный=Стр.Больничный+1;
КонецЕсли;
Если Стр.д30="А" Тогда
Стр.Административные=Стр.Административные+1;
КонецЕсли;
Если Стр.д30="Д" Тогда
Стр.Декрет=Стр.Декрет+1;
КонецЕсли;
Если Стр.д30="К" Тогда
Стр.Командировка=Стр.Командировка+1;
КонецЕсли;