Здравствуйте, имеется база 1С, два филиала, кадровикам понадобилось в табеле сделать отчет, по "категориям рабочих" например: по специалистам, по рабочим, по руководителям и т.д. В стандартной конфе такого нет. В сети нашел такой отчет, но он не формирует по "категориям рабочих", помогите разобраться... Отчёт в прикреплённом файле.
Прикрепленные файлы:
Табель_c_категориRми.zip
По теме из базы знаний
- Учет отработанного времени
- Учет отработанного времени с учетом прочих неявок
- Доплата до МРОТ в зависимости от отработанного времени
- Табель учета отработанного времени для 1С:Бухгалтерии
- Переход с 1С 7.7 ЗиК на ЗУП 3.0 (ввод отработанного времени суммарно за месяц), упрощенное ведение отработанного времени
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Так ты нигде не проверяешь категорию перед добавлением в список.
Нужно примерно так:
Если СпрСотрудники.Должность.Получить(ТекущаяДата()).Категория = Кат Тогда
................
КонецЕсли;
Насколько я понял эта проверка нужна независимо от СпособаВыборкиСотрудника.
Нужно примерно так:
Если СпрСотрудники.Должность.Получить(ТекущаяДата()).Категория = Кат Тогда
................
КонецЕсли;
Насколько я понял эта проверка нужна независимо от СпособаВыборкиСотрудника.
Посмотрел табель. Понравилось. Как только бухши и кадровики не издеваются над программером!
Теперь о деле. Виктор на 100% прав.
В процедуре Сформировать() после строки 211
Пока СпрСотрудники.ПолучитьЭлемент()=1 Цикл
добавить еще 3 строки:
Если СпрСотрудники.Должность.Получить(ДатаАктуальности).Категория <> Кат Тогда
Продолжить;
КонецЕсли;
Соответственно после строки 227
Пока СпрСотрудники.ПолучитьЭлемент()=1 Цикл
добавить эти же 3 строки
и после строки
ИначеЕсли СпособВыборкиСотрудников=3 Тогда
написать код
Если СпрСотрудники.Должность.Получить(ДатаАктуальности).Категория = Кат Тогда
СписокСотрудников = Сотрудники;
КонецЕсли;
Теперь о деле. Виктор на 100% прав.
В процедуре Сформировать() после строки 211
Пока СпрСотрудники.ПолучитьЭлемент()=1 Цикл
добавить еще 3 строки:
Если СпрСотрудники.Должность.Получить(ДатаАктуальности).Категория <> Кат Тогда
Продолжить;
КонецЕсли;
Соответственно после строки 227
Пока СпрСотрудники.ПолучитьЭлемент()=1 Цикл
добавить эти же 3 строки
и после строки
ИначеЕсли СпособВыборкиСотрудников=3 Тогда
написать код
Если СпрСотрудники.Должность.Получить(ДатаАктуальности).Категория = Кат Тогда
СписокСотрудников = Сотрудники;
КонецЕсли;
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот