Здраствуйте.
Подскажите пожалуйста, что не так написал.
Необходимо сделать выборку отработанных часов у сотрудников которые относятся ко льгным работникам для досрочного начисления пенисии в моем случаи это учителя.
Написал обработку вернее пытаюсь ее реализовать. Для решения этой задачи: я сначала в список значений помещаю тех сотрудников которые имеют профессию учитель, потом данные из этого списка значений подставляю в перебор "Журнал расчетов Зарплата", и по идею должен создаться отчет именно для этих сотрудников с их часами.
Проблема следующая немогу правильно передать данные из списка значений в перебор "Журнал расчетов Зарплата".
Вот код:
автор//*******************************************
Процедура Заполнить()
Спр=СоздатьОбъект("Справочник.Сотрудники");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
Если ВыбДолжности.Выбран()=1 Тогда
Если Спр.Должность.Получить(РабочаяДата())=ВыбДолжности Тогда
Сотрудники.ДобавитьЗначение(Спр.Наименование);
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
//*******************************************
Процедура Сформировать()
ТЗ=СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Наименование");
ТЗ.Новаяколонка("Подразделения");
ТЗ.НоваяКолонка("Часы","Число",10,2);
Жур=СоздатьОбъект("ЖурналРасчетов.Зарплата");
Для Я=1 по Сотрудники.РазмерСписка() Цикл
Сотрудник = Сотрудники.ПолучитьЗначение(Я);
Жур.ВыбратьЗаписиПоОбъекту(Сотрудник, НачДата, КонДата);
Пока Жур.ПолучитьЗапись()=1 Цикл
ТЗ.НоваяСтрока();
ТЗ.Наименование=Жур.Объект.Наименование;
ТЗ.Часы=Жур.Часы;
КонецЦикла;
КонецЦикла;
ТЗ.Свернуть("Наименование", "Часы");
ТЗ.Сортировать("Наименование");
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
ТЗ.ВыбратьСтроки();
Таб.ВывестиСекцию("Шапка");
Пока ТЗ.ПолучитьСтроку()=1 Цикл
Таб.ВывестиСекцию("Объект");
КонецЦикла;
Таб.ТолькоПросмотр(1);
Таб.Показать("Таблица");
КонецПроцедуры