|
0
Morients
15.11.22
✎
14:54
|
Нужно перенести из УТ 10.3 в УНФ табель, с этим справился, только вот время и перерыв нормально не считает, а всё из-за вот этой краказябры, подсобите товарищи, ума не хватает как из события ОбновлениеОтображения (коего в 8.x уже нема в УФ), разнести код по процедурам ПриИзменении...
|
|
|
1
Morients
15.11.22
✎
15:59
|
Процедура ОбновлениеОтображения()
Если ЗначениеЗаполнено(Объект.ВремяПрихода) И ЗначениеЗаполнено(Объект.Сотрудник) Тогда
Обед ="(с обедом)";
Перерыв = ПосчитатьПерерыв();
ВремяРаботы = Элементы.РаспределениеВремени.Итог("ЧасовЗатрачено");
Если Объект.Подразделение.Код = "000000008" ИЛИ Объект.Подразделение.Код = "000000022" ИЛИ Объект.Подразделение.Код = "000000009" Тогда
Если ВремяРаботы < 5 ИЛИ ((Объект.Смена = Перечисления.Смена.Четвертая) И (Объект.ВремяПрихода >= Дата(0001,01,01,12,00,00))) Тогда
//ФактическоеВремя = ВремяРаботы;
Обед = "(без обеда)";
ВремяРаботы = ВремяРаботы*3600;
иначе
ВремяРаботы = ВремяРаботы*3600 + Перерыв;
КонецЕсли;
ИначеЕсли Объект.Подразделение.Код = "000000001" ИЛИ Объект.Подразделение.Код = "000000037" тогда
Если ВремяРаботы < 5 ИЛИ ((Объект.Смена = Перечисления.Смена.Вторая) И (Объект.ВремяПрихода >= Дата(0001,01,01,12,00,00))) Тогда
// ФактическоеВремя = ВремяРаботы;
Обед = "(без обеда)";
ВремяРаботы = ВремяРаботы*3600;
иначе
ВремяРаботы = ВремяРаботы*3600 + Перерыв;
КонецЕсли;
КонецЕсли;
Вернуть = Объект.ВремяПрихода + ВремяРаботы;
Элементы.Врем1.Заголовок = СокрЛП("" + Час(Вернуть) + ":"+?(СтрДлина(Минута(Вернуть))=1,"0"+Минута(Вернуть),Минута(Вернуть)) + СокрЛП(Обед));
иначе
Элементы.Врем1.Заголовок = "";
КонецЕсли;
КонецПроцедуры
|
|
