1.
KrakoZyabl
77
20.12.07 14:15
Сейчас в теме
Благодарен автору за данный отчет. Функционален, главное то что я и искал.
Доработал только в плане вывода информации не только одного подразделения, но и группы, но это капля в море...Спасиба!
изменения:
// Изменено КДА
Если ВыбПодразделение.ЭтоГруппа() = 1 Тогда
Если Сотрудник.Подразделение.Получить(ТаблицаРеквизитов.Дата).ПринадлежитГруппе(ВыбПодразделение) = 0 Тогда
Продолжить;
КонецЕсли;
Иначе
Если Сотрудник.Подразделение.Получить(ТаблицаРеквизитов.Дата)<>ВыбПодразделение Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
//Если Сотрудник.Подразделение.Получить(ТаблицаРеквизитов.Дата)<>ВыбПодразделение Тогда
// Продолжить;
//КонецЕсли;
// Конец изменений
и
// Изменено КДА
Если ВыбПодразделение.ЭтоГруппа() = 1 Тогда
Если ЖР.Объект.Подразделение.Получить(ДатаАктуальности).ПринадлежитГруппе(ВыбПодразделение) = 0 Тогда
Продолжить;
КонецЕсли;
Иначе
Если ЖР.Объект.Подразделение.Получить(ДатаАктуальности)<>ВыбПодразделение Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
//Если ЖР.Объект.Подразделение.Получить(ДатаАктуальности)<>ВыбПодразделение Тогда
// Продолжить;
//КонецЕсли;
// Конец изменений