ЗУП 3.1. Как получить данные графика работы сотрудника?

Форум Программирование Общие вопросы программирования (Dev)

1. g1ft 1 23.11.17 13:05 Сейчас в теме

Здравствуйте. ЗУП 3.1. Как получить данные графика работы сотрудника? А именно выходные дни и их количество, скольки-дневная и скольки-часовая рабочая неделя.

По теме из базы знаний

Найденные решения

3. g1ft 1 24.11.17 11:26 Сейчас в теме

Достал из БСП

Функция ГрафикРаботы(ГрафикРаботы)

Понедельник = '20120514';
Дней = 0;
Выходные = Новый Массив;

Если ГрафикРаботы.СпособЗаполнения = Перечисления.СпособыЗаполненияГрафикаРаботы.ПоНеделям Тогда
Для Каждого СтрокаШаблонаЗаполнения Из ГрафикРаботы.ШаблонЗаполнения Цикл
Если СтрокаШаблонаЗаполнения.ДеньВключенВГрафик Тогда 
Дней = Дней + 1;
Иначе
Выходные.Добавить(Формат(Понедельник + (СтрокаШаблонаЗаполнения.НомерСтроки - 1) * 86400, "ДФ=дддд"));
КонецЕсли;
КонецЦикла;
КонецЕсли;	

Если Выходные.Количество() = 0 Тогда
Выходные.Добавить("без выходных");
КонецЕсли;

Возврат Новый Структура("Дней,Часов,Выходные", Дней, ГрафикРаботы.ДлительностьРабочейНедели, Выходные);

КонецФункции //ГрафикРаботы()

Показать

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. YanTsys 12 23.11.17 18:33 Сейчас в теме

(1) Если вам нужно знать сколько сотрудник должен был отработать и отдыхать по установленному для него графику (но далеко не факт что он именно столько отработал и отдыхал согласно его табеля) то как я понимаю нужно смотреть какой график ему назначен в регистре "График работы сотрудников" (например график1) после чего смотреть содержание этого графика в регистре "Графики работы по видам времени"

3. g1ft 1 24.11.17 11:26 Сейчас в теме

Достал из БСП

Функция ГрафикРаботы(ГрафикРаботы)

Понедельник = '20120514';
Дней = 0;
Выходные = Новый Массив;

Если ГрафикРаботы.СпособЗаполнения = Перечисления.СпособыЗаполненияГрафикаРаботы.ПоНеделям Тогда
Для Каждого СтрокаШаблонаЗаполнения Из ГрафикРаботы.ШаблонЗаполнения Цикл
Если СтрокаШаблонаЗаполнения.ДеньВключенВГрафик Тогда 
Дней = Дней + 1;
Иначе
Выходные.Добавить(Формат(Понедельник + (СтрокаШаблонаЗаполнения.НомерСтроки - 1) * 86400, "ДФ=дддд"));
КонецЕсли;
КонецЦикла;
КонецЕсли;	

Если Выходные.Количество() = 0 Тогда
Выходные.Добавить("без выходных");
КонецЕсли;

Возврат Новый Структура("Дней,Часов,Выходные", Дней, ГрафикРаботы.ДлительностьРабочейНедели, Выходные);

КонецФункции //ГрафикРаботы()

Показать

Внимание! Тема сдана в архив