Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Подсчет количества дней между датами
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Общий раздел > Корзина
mavrik
Помогите чайнику пожалуйста. Вот процедура которая считает количество рабочих дней .Процедура написана в документе.

Процедура РасчетКоличестваДней()
Если (ДатаДок = 0) Или (ДатаВиписки = 0) Тогда
Сообщить("Ви невказали дату!");
Иначе
Если (ДатаДок<>0) И (ДатаВиписки<>0) Тогда
РабДата = 0;
Пока ДатаДок <= ДатаВиписки Цикл
Если НомерДняНедели(ДатаДок) <= 5 Тогда // это не выходной
РабДата=РабДата+1;
КонецЕсли;
ДатаДок = ДатаДок + 1;
КонецЦикла;
ДатаДок = ТекущаяДата();
КонецЕсли;
КонецЕсли;
КонецПроцедуры

Вот Внешний отчет. Как мне в внешнем отчете вывести на каждого сотрудника количество рабочих дней.

Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{Запрос(Сформировать)
|Период с ДатаДок по ДатаВиписки;
|ТекущийДокумент = Документ.КадровийНаказВП.ТекущийДокумент;
|Працівник = Документ.КадровийНаказВП.Працівник;
|НомерДок = Документ.КадровийНаказВП.НомерДок;
|ДатаДок = Документ.КадровийНаказВП.ДатаДок;
|ДатаВиписки = Документ.КадровийНаказВП.ДатаВиписки;
|Группировка Працівник;
|"//}}Запрос
;

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Предупреждение("Запрос не работает");
КонецЕсли;

Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.ВывестиСекцию("Шапка");
Пока Запрос.Группировка("Працівник") = 1 Цикл
Таб.ВывестиСекцию("Основа");
КонецЦикла;
Таб.Опции(0,0,0,0,,);
Таб.ТолькоПросмотр(1);
Таб.Показать();
КонецПроцедуры
Batchir
Нет уж, сначала Вы к нам - в необходимо зарегистрироваться для просмотра ссылки
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.