8.х Документ "Событие" в УТ+CRM

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем Dem0lisher, 29 мар 2011.

  1. TopicStarter Overlay
    Dem0lisher
    Offline

    Dem0lisher Профессионал в 1С

    Регистрация:
    4 авг 2009
    Сообщения:
    1.023
    Симпатии:
    51
    Баллы:
    54
    Добрый день!
    В УТ+CRM есть документ "Событие". При выборе группы события должна автоматически расчитываться дата его окончания на основании длительности события и даты начала.
    Тупо расчитывает, а нужно чтобы событие не выполнялось в выходные и праздничные дни, что указано в ГрафикеРаботы.
    Вот пример: Есть группа событий "Встреча с клиентом" длительность 4320 минут(3 дня.)
    Если выбрать дату начала 1 апреля (Пятница) то УТ просто прибавит 3 дня , а нужно обойти субботу и воскресенье и продолжить событие в понедельник.
    делаю так:

    Код:
    
    Пока КолВоДней>0 Цикл
    Отбор=Новый Структура;
    Отбор.Вставить("Дата",ДатаСоб);
    ГрафикРаботы=Константы.CRM_ГрафикРаботыОрганизации.Получить();
    Отбор.Вставить("ГрафикРаботы",ГрафикРаботы);
    Рег=РегистрыСведений.CRM_ГрафикиРаботы.Получить(Отбор);
    Если Рег.ВидДня=Перечисления.CRM_ВидыДней.Рабочий ИЛИ Рег.ВидДня=Перечисления.CRM_ВидыДней.Предпраздничный Тогда
    КолВоДней=КолВоДней-1;
    ДатаСоб=ДатаСоб+60*60*24;	
    Иначе
    ДатаСоб=ДатаСоб+60*60*24;	
    Продолжить;
    КонецЕсли;
    КонецЦикла;
    КонСоб=ДатаСоб;
    
    
    
    Вроде работает, но если длительность события 1440 минут (1 день) и событие начинается в пятницу, то завершается оно в субботу, а нужно в понедельник.
    Помогите разобраться
  2. vartanet
    Offline

    vartanet Опытный в 1С Команда форума

    Регистрация:
    16 ноя 2010
    Сообщения:
    2.698
    Симпатии:
    15
    Баллы:
    29
    есть регистр сведений регламентированный производственный календарь. и есть готовая функция где-то в общем модуле, которая к дате добавляет количество РАБОЧИХ дней.
  3. TopicStarter Overlay
    Dem0lisher
    Offline

    Dem0lisher Профессионал в 1С

    Регистрация:
    4 авг 2009
    Сообщения:
    1.023
    Симпатии:
    51
    Баллы:
    54

    Да, действительно!!
    Функция- то, что надо,
    Спасибо!

Поделиться этой страницей