Запрос прав на документ через контекстное меню

Предлагаю сообществу небольшой инструмент для решения одной из постоянно всплывающих проблем, а именно отсутствие прав на изменение документа. Решаем ее запуском подзадачи с запросом прав доступа.

Чтобы пользователю было удобно это делать, добавляем прикладное действие в контекстное меню документа.
Далее вкратце:
1. Добавляем "Действие" в необходимый тип карточки документа (обзываем, выбираем иконку)
2. Вписываем код, который представлен ниже:

Данный код проверяет не является ли запрашивающий автором документа, и нет ли у него необходимых прав (подразумеваются права на изменение). Если нет, то диалоговое окно требует ввести причину запроса и благополучно отправляет задачу автору документа с текстом содержащим причину и темой, в которой упоминается запрашивающий. Документ присутствует во вложении.

3. Меняем настройки прикладного действия: "Показать в контекстном меню" -> "Да"
4. По желанию добавляем кнопку в ленту карточки.

upd: Добавлена проверка на авторство системными учетными записями и проверка статуса учетной записи автора (Действующая/Закрытая)

  Doc = Object.Info
  Requester = ServiceFactory.GetUserByName(CurrentUserName())
  AccessRights = Object.AccessRights
  Subject = 'Запрос прав доступа от ' & 
             Requester.FullName & ' на документ "' & Doc.Name & '"'
  SystemAcc1 = "dbo"
  SystemAcc2 = "Administrator"
  SystemAcc3 = "ISBuilderSystem"  
  AuthorState = References.SYSREF_USERS_REFERENCE.GetObjectByID(Doc.Author.ID).SYSREQ_STATE

  //Проверка на авторство системы     
  if Doc.Author.Name == SystemAcc1 or 
       Doc.Author.Name == SystemAcc2 or 
         Doc.Author.Name == SystemAcc3
    Message = 'Данный документ создан системой.' &
            cr & 'Обратитесь к администратору.'         
    Raise(CreateException("AuthIsSystem"; Message; ecWarning))
  else
    //Проверка на автора     
    if Doc.Author.Code == Requester.Code
      Message = 'Вы не можете запросить права, т.к. являетесь автором документа.' &
              cr & 'Если права отсутствуют, обратитесь к администратору системы.'         
      Raise(CreateException("AuthReqSelfRights"; Message; ecWarning))
    else
      //Проверка на наличие прав
      if AccessRights.UserCanWrite(Requester)
        Message = 'У вас уже есть права на изменение документа.'         
        Raise(CreateException("UserReqHaveRights"; Message; ecWarning))  
      else   
        //Учетная запись автора действующая?
        if AuthorState <<>> 'Действующая'
          Message = 'Учетная запись автора документа закрыта.' &
              cr & 'Обратитесь к администратору системы.'         
          Raise(CreateException("AuthorIsClosed"; Message; ecWarning))  
        else
          //Запрос причины
          ReasonDialog = InputDialogEx('*Причина запроса';'';'String:200';
                                       'Запрос прав на документ';;;;
                                       'Отправить|Отмена';'Отправить';'Отмена';
                                       'Запрос прав на документ';;;)
          Cancel = FindSubString('Отмена'; ReasonDialog; '|')     
          //Проверяем на результат "Отмена"      
          if Cancel = 0
            ReasonText = Replace(ReasonDialog; '|Отправить'; '')
            //Создание и отправка задачи
            Task = Tasks.CreateNew()
            Task.Subject = Subject
            Task.ActiveText = 'Причина запроса: ' & cr & ReasonText
            RouteStep = Tasks.CreateRouteStep(1; Doc.Author; jkJob; Today(); ''; )
            Task.Route.Add(RouteStep)
            Task.GetAttachments(true).Add(Doc)
            TaskStart = true
            if TaskStart
              try
                Task.Start
              except
                Task.Cancel
              endexcept
            else
              Task.Save
            endif        
          endif
        endif
      endif
    endif
  endif