Напомнить, все!

Добрый день.

Подскажите, пожалуйста, что нужно дописать, что бы происходил поиск заданий, срок исполнения которых истекает не только завтра, но и просроченных. 

То есть, как я понял, нужно немножко изменить 39-ую строку кода, добавив критерий поиска "ПО завтрешний день". Но вот это самое "ПО" никак не могу добавить...

И подскажите, пожалуйста, новичку, что означает vtEqual, а то никак не могу разобраться.

Заранее спасибо. 

Разобрался, что именно vtEqual и нужно заменить. Подскажите на какой параметр?

Разобрался. Параметр vtLessOrEqual

как сделать, чтобы по определенному маршруту пришло напоминание, просто только один отдел изъявил желание о своих заданиях. Если завести новую переменную, то в ней значение будет строковое или код ТМ. Возможно ли так сделать по определенному маршруту?

поменяла на vtLessOrEqual полезла ошибка:

Кто-нибудь подскажите плиз почему так?

что-то рисунок с ошибкой не ставится, напечатаю: List index out of bounds (0), Функция "GetWorkerByUserID": ошибка в сроке 11. Сценарий "АгентРассылкиУведомленийОбИстеченииСроков..." ошибка в строке 46.

 //Получить список параметров для сценария из соответствующей записи справочника "Параметры запуска компонент" 

 ListParams = GetComponentLaunchParams()
 if ListParams.IndexOfName("DayCount") <> -1
    DayCount = ListParams.ValueByName("DayCount")
    if VarIsNull(DayCount)
       DayCount = 0
    endif
 else  
    DayCount = СценарийПарам("DayCount")
 endif
 if DayCount == ""
    DayCount = 0
 endif
  
 DataPrevExecute = КонстЗнач("ДатаСрокИсЗ")
 DayCount = -1
 
 //Если выполняем первый раз, то ничего не делаем 
 if DataPrevExecute <<>> ""  
    Users = CreateReference('ПОЛ')
    Users.Open()
    Users.First
    // Пройтись по пользователям, записи которых действующие
    While Not Users.EOF
       if Users.Состояние == "Действующая"
          Perfomer = Users.Код
          //Определить срок выполнения заданий
          
          FinalDate = ChangeDate("D";Today();DayCount) //ChangeDateCalendar(Today();DayCount)
          // Достать все задания текущего пользователя, по которым срок исполнения истекает FinalDate (то есть через DayCount-дней)
          Search = Searches.CreateNew(ckJob)
          Criteria = Search.SearchCriteria
          CriterionPerformer = Criteria.Add('Performer')
          CriterionPerformer.Add(Perfomer)       
          CriterionFinalDate = Criteria.Add('JobState')
          CriterionFinalDate.Add('В работе')
          CriterionFinalDate = Criteria.Add('FinalDate')
          CriterionFinalDate.AddSingleValue(FinalDate;vtLessOrEqual)   
          SearchResult = Searches.Execute(Search)
          //Создать список, в котором будут храниться ссылки на задания
          if SearchResult.count > 0
             Task = Tasks.CreateNew()
             User = ServiceFactory.GetUserByCode(Perfomer)
             Adresat = User
             UserFIO = GetWorkerByUserID(User.ID;)
             if UserFIO ==""
                UserFIO = User.FullName
             endif
             Subject = Format("Для: " & UserFIO & ". У вас есть задания, срок исполнения которых уже прошёл! Всего:%s";SearchResult.count)

             ЗМЩ = CreateReference("ЗМЩ")
             ЗМЩ.open()
             ЗМЩ.first()
             if ЗМЩ.Locate('ISBReplaceableUser';Perfomer) 
                if ЗМЩ.requisites('ISBSubstituteType').value == "Полное"
                   and ЗМЩ.requisites('ISBSubstituteStart').value <<>> ""
                   and ЗМЩ.requisites('ISBSubstituteFinish').value <<>> ""
                   and Today() >= ЗМЩ.requisites('ISBSubstituteStart').value  
                   and Today() <= ЗМЩ.requisites('ISBSubstituteFinish').value 
                   Adresat = ServiceFactory.GetUserByCode(ЗМЩ.requisites('ISBSubstitutingUser').value) 
                   Subject = Format("У сотрудника " & UserFIO & ", которого вы замещаете, есть задания, срок выполнения которых истекает завтра. Всего:%s";SearchResult.count)
                endif
             endif
             ЗМЩ.close()  
             Task.Subject = Subject 
             Task.CheckedTask = "Нет"
             RouteStep = Tasks.CreateRouteStep(1; Adresat; jkNotice; ''; ""; "")          
             Task.Route.Add(RouteStep)
             AttachList = Task.GetAttachments(False)  
             // Пройтись по найденым заданиям
             SearchResult.Reset
             while not SearchResult.Eof
                JobInfo = SearchResult.Value
                INFO = JobInfo
                //Создать задание-уведомление текущему пользователю, что срок исполнения задания истекает
                AttachList.Add(INFO)        
                SearchResult.Next   
             endwhile    
             Task.Start()
          endif                               
          //Удалить ссылки на созданные объекты 
          SearchResult = NIL
          CriterionPerformer = NIL
          CriterionFinalDate = NIL
          Criteria = NIL
          Search = NIL
       endif 
       Users.Next() 
    endwhile   
 endif      
 Конст("ДатаСрокИсЗ"; ServerdateTime())   
   
      

Я так поняла, что ChangeDateCalendar(Today();DayCount) может изменять даты только вперед.

Еще хотела спросить: можно ли сделать так, чтобы по определенному маршруту пришло напоминание, просто только один отдел изъявил желание о своих заданиях. Если завести новую переменную, то в ней значение будет строковое или код ТМ. Возможно ли так сделать по определенному маршруту?

я нашла как это можно сделать

CriterionRout = Criteria.Add('StandardRoute')
CriterionRout.Add('RRCAssPE') // код типового маршрута

Но тогда как можно сделать, чтобы не один маршрут а несколько? достаточно ли у казать в методе Add('RRCAssPE', '6') через запятую?

 

Спасибо большое!)

Для версии Директум 4.9 данный сценарий не работает:(

Такая же ошибка как уже освещалась в форуме

List index out of bounds (0), Функция "GetWorkerByUserID": ошибка в сроке 11. Сценарий "АгентРассылкиУведомленийОбИстеченииСроков..." ошибка в строке 46.

Шикарная статья! Татьяна, спасибо огромное!

При запуске агента выдает ошибку: "константа ДатаСрокИсЗ не найдена", я ее добавил вручную, но агент не заработал, какие параметры должны быть у данной константы?

Есенай, зарегистрируйтесь на сайте DIRECTUM Club http://club.directum.ru/register.aspx и задайте ваш вопрос в разделе "Вопросы и ответы".

Всем здравствуйте, для работы сценария на версии 5.6, заменил ID ф функции на UserID! Без ошибок! Но! По-моему не работает отправка по замещению. Найду решение, отпишу!

Спасибо! Нужная статья!