Общие вопросы > Разработка приложений

Временный доступ

<< < (2/2)

Alsodan:
Сделал агента, который должен был дать на исходный документ права Читателя....ну а потом подобный, чтобы их убрать.
Агента, подписанного админом, пускал методом RunOnServer из дочернего документа.
Может он неправильно ищет нужный мне документ?

Код агента.

   Dim doc As NotesDocument
   Dim sess As New NotesSession
   Dim db As NotesDatabase   
   
   Dim na As NotesAgent
   Set na = sess.Currentagent
   

   If na.Parameterdocid = "" Then
      Set doc = sess.Documentcontext
   Else
      Set doc = sess.Currentdatabase.Getdocumentbyid(na.Parameterdocid)
   End If
   
   If (doc Is Nothing) Then
      Exit Sub
   End If
   
   Dim mainProcDoc As notesdocument
   Set mainProcDoc = db.GetDocumentByUNID(doc.GetItemValue("MainProcessID")(0))
   
   mainProcDoc.DocReaders = FullTrim(ArrayAppend(mainProcDoc.DocReaders, sess.Username))
   
   Call ws.ViewRefresh

ViV:
Нужно узнать на каком этапе ошибка.
Посмотрите что содержится в doc.GetItemValue("MainProcessID")(0), корректный ли это UNID.

Slava:

--- Цитата: Alsodan от 22 Январь 2013, 12:54:44 ---P.S. Для тех кто знает СЭД Босс-Референт: Надо на этапе рассмотрения дать рассматривающему возможность создать еще один этап рассмотрения.

--- Конец цитаты ---
А никак. :-) это приувет от концепции воркфлоу,настройки и т.д. Для смены рассматривающего - регистратору(!) необходимо вернуть документ на предидущую стадию(прием и регистрация) и сменить рассматривающего. Вы бы описали ситуацию подробнее может стоит в маршрут согласования добавить ещё кого?

Навигация

[0] Главная страница сообщений

[*] Предыдущая страница