Private Agent

wowa

Well-known member
01.02.2007
848
0
#1
Подскажите такой вопрос,

Пользователь имеет право создавать частные агенты.
Пользователь создал частный агент, но не может его сохранить "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

Lotus team
04.07.2007
2 210
1
#2
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

Well-known member
01.02.2007
848
0
#3
Omh , дак а смысл? он мне прислал скрин с дизайнера
Насколько я понимаю, он создал агент в дизайнере и не может его сохранить. Обработчик ошибок тут не поможет
 

hosm

* so what *
18.05.2009
2 442
6
#4
А на сервере на вкладке безопасность у него есть права на лотусскрипт агенты?
 

Omh

Lotus team
04.07.2007
2 210
1
#5
Тьфу, я нечётко посмотрел.
Проблема в том, что не может сохранить агента.

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

hosm

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

wowa

Well-known member
01.02.2007
848
0
#7

wowa

Well-known member
01.02.2007
848
0
#8
Возникла большая проблема, оказывается пользователь не имеет права создавать частные агенты на LS, и добавить это право ему не могут.
Необходимо переписать агент на собаках. Я особо не знаю собак и не знаю возможно ли это.

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

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

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

nvyush

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