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

Хранилище

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

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



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

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

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

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


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

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

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

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

Ветеран
Иконка группы
Группа: Местный
Сообщений: 824
Из: Запорожье
Спасибо сказали: 145 раз
Рейтинг: 0

Я конечно извиняюсь, а вопрос то в чем? smile.gif


Signature
-----------------------------------------------------------------------------------
Единственный, интуитивно понятный интерфейс - мамкина сиська!
Всему остальному надо учиться! (с) Не знаю кто....

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

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

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

необходимо вызвать функцию РасчетКоличестваДней() и передать результат функции переменной КоличествоРабочихДней

Спасибо сказали: mavrik,

mavrik Подменю пользователя
сообщение 04.10.11, 11:07
Сообщение #4

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

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

Цитата(Batchir @ 04.10.11, 11:28) *
На секции "Основа" Нужно добавить параметр, например КоличествоРабочихДней
Перед циклом
Пока Запрос.Группировка("Працівник") = 1 Цикл 
    Таб.ВывестиСекцию("Основа");
КонецЦикла;

необходимо вызвать функцию РасчетКоличестваДней() и передать результат функции переменной КоличествоРабочихДней

Подскажи как это написать я вид только учусь

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

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

Цитата(mavrik @ 04.10.11, 12:07) *
Подскажи как это написать я вид только учусь

Именно поэтому я и ответил намеком а не готовым текстом.

Vofka Подменю пользователя
сообщение 04.10.11, 11:56
Сообщение #6

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4613 раз
Рейтинг: 3750.1

mavrik, а ты чё растыкался? Тема закрыта!

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


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

 

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