Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Подсчет количества дней между датами          
mavrik Подменю пользователя
сообщение 04.10.11, 9:29
Сообщение #1

Завсегдатай
****
Группа: Пользователи
Сообщений: 120
Из: Украина
Спасибо сказали: 2 раз
Рейтинг: 0

Помогите чайнику пожалуйста. Вот процедура которая считает количество рабочих дней .Процедура написана в документе.

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

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

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

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

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

Batchir Подменю пользователя
сообщение 04.10.11, 9:36
Сообщение #2

Живет на форуме
Иконка группы
Группа: Команда
Сообщений: 3568
Из: Киев
Спасибо сказали: 1443 раз
Рейтинг: 0

Нет уж, сначала Вы к нам - в правила

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 15.06.25, 17:16
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!