Private Agent

[wowa]

Подскажите такой вопрос,

Пользователь имеет право создавать частные агенты.
Пользователь создал частный агент, но не может его сохранить "You are not authorized to perform that operation"

Вот агент

Option Public
Option Declare

Use "Library_1"
Sub Initialize

Dim s 		As New NotesSession
Dim db 		As NotesDatabase
Dim coll 		As NotesDocumentCollection
Dim doc 		As NotesDocument
Dim docNext 	As NotesDocument
Dim dtCreated 	As NotesDateTime
Dim agentLog 	As Variant
Dim createDate 	As Variant

Set db = s.CurrentDatabase
Set agentlog = New LogDocInSpecificDb ("Missing Customer Requested Release Date '"+ db.Title +"'", db )
Set coll = db.Search( {Form = "Opportunity" & Is_RfS_Proposal = 1 & OPP_GeplUebergabe = "" }, Nothing , 0 )

Set docNext = coll.GetFirstDocument
While Not docNext Is Nothing
Set doc = docNext
Set docNext = coll.GetNextDocument(doc)

createDate = doc.Created
Set dtCreated = New NotesDateTime( createDate )
Call dtCreated.AdjustDay( 21 )
Call doc.ReplaceItemValue("OPP_GeplUebergabe", dtCreated.GMTTime)
Call doc.Save(True,False)
Call agentLog.LogAction(doc.OPP_Reg(0))
Wend		
End Sub

Возможно тут что-то запрещенное для частного агента, но я не знаю что.
Также возможно тут неверно указана библиотека. Библиотека необходима для создания лога, но вызывается "Library_1", а уже из нее "Library_2", где все функции для лога.

Агент простой, необходимо найти все доки, где поле пустое и заполнить его - прибавить 21 день к дате создания дока.

 

[Omh]

wowa
Вотни errorhandler, будет понятно на какой строке ошибка.
Типа такого

On Error Goto Errh
...
Exit Sub
errh:
Msgbox Error & | in line | & Erl(), 64, |Lotus Notes (| & Lsi_info(2) & |)|
Exit Sub

Я думаю ошибка будет тут:

Call doc.Save(True,False)

либо где-то внутри класса LogDocInSpecificDb

 

[wowa]

Omh , дак а смысл? он мне прислал скрин с дизайнера
Насколько я понимаю, он создал агент в дизайнере и не может его сохранить. Обработчик ошибок тут не поможет

 

[hosm]

А на сервере на вкладке безопасность у него есть права на лотусскрипт агенты?

 

[Omh]

Тьфу, я нечётко посмотрел.
Проблема в том, что не может сохранить агента.

Давно галку в ACL поставил?
Может стоит лотус передёрнуть?

 

[hosm]

с серверными правами - не должно вроде влиять. А есть ли у пользователя в АЦЛ право создавать лотусскрипт агенты?
Потому что по умолчанию галка создания личных агентов вроде только простые действия и формулы позволяет (насколько помню).

 

[wowa]

Давно галку в ACL поставил?

Давно

А на сервере на вкладке безопасность у него есть права на лотусскрипт агенты?

блин, а вот эту галочку я проморгал. Спасибо, наверно из-за этого.

 

[wowa]

Возникла большая проблема, оказывается пользователь не имеет права создавать частные агенты на LS, и добавить это право ему не могут.
Необходимо переписать агент на собаках. Я особо не знаю собак и не знаю возможно ли это.

Агент простой, необходимо найти все доки, где поле пустое и заполнить его - прибавить 21 день к дате создания дока.

Я не знаю, создать частную папку, где сделать Select Form = "Opportunity" & OPP_GeplUebergabe = ""

А дальше как? Помогите плз, эт очень срочно

 

[nvyush]

создать частную папку, где сделать Select Form = "Opportunity" & OPP_GeplUebergabe = ""

У папок нет Select, они содержат документы, которые в них поместили
Можно использовать в представлении, содержащим документы по форме "Opportunity" агента с условием отбора "все документы в представлении" или агента с условием отбора "все документы в БД"
Код агента на собаках примерно такой
@IF(Form = "Opportunity" & OPP_GeplUebergabe = ""; @SetField("OPP_GeplUebergabe"; @Adjust(@Created; 0; 0; 21; 0; 0; 0)); "")