Помогите чайнику пожалуйста. Вот процедура которая считает количество рабочих дней .Процедура написана в документе.
Процедура РасчетКоличестваДней() Если (ДатаДок = 0) Или (ДатаВиписки = 0) Тогда Сообщить("Ви невказали дату!"); Иначе Если (ДатаДок<>0) И (ДатаВиписки<>0) Тогда РабДата = 0; Пока ДатаДок <= ДатаВиписки Цикл Если НомерДняНедели(ДатаДок) <= 5 Тогда // это не выходной РабДата=РабДата+1; КонецЕсли; ДатаДок = ДатаДок + 1; КонецЦикла; ДатаДок = ТекущаяДата(); КонецЕсли; КонецЕсли; КонецПроцедуры
Вот Внешний отчет. Как мне в внешнем отчете вывести на каждого сотрудника количество рабочих дней.
Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{Запрос(Сформировать) |Период с ДатаДок по ДатаВиписки; |ТекущийДокумент = Документ.КадровийНаказВП.ТекущийДокумент; |Працівник = Документ.КадровийНаказВП.Працівник; |НомерДок = Документ.КадровийНаказВП.НомерДок; |ДатаДок = Документ.КадровийНаказВП.ДатаДок; |ДатаВиписки = Документ.КадровийНаказВП.ДатаВиписки; |Группировка Працівник; |"//}}Запрос ; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Предупреждение("Запрос не работает"); КонецЕсли; Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Таблица"); Таб.ВывестиСекцию("Шапка"); Пока Запрос.Группировка("Працівник") = 1 Цикл Таб.ВывестиСекцию("Основа"); КонецЦикла; Таб.Опции(0,0,0,0,,); Таб.ТолькоПросмотр(1); Таб.Показать(); КонецПроцедуры
|