доступ на редактирвоание

  • Автор темы nadezdaMP
  • Дата начала
N

nadezdaMP

#1
есть база данных с информацией о всех пользователях системы.
каждый пользователь может просматривать в нем инфо других, но редактировать может только свою.
нужно сделать так чтобы пользователь мог редактировать свои данные в базе контактов из другой базы. с редактированием/сохранением разобралась, но
если зайти под администратором системы, то при выполнении скрипта сделанные изменения сохраняются, если зайти под обычным пользователем и выполнить тот же самый скрипт то изменения в базе контактов не происходят.

вопрос - как сделать доступ, как сохранить изменения, сделанные пользователем из другой базы?
подскажите идею пожалуйста :)
 

ToxaRat

Чёрный маг
Lotus team
06.11.2007
3 233
18
#2
принцып сохранения не важно в какой базе, всё одинаково
я так понимаю что "доступ" вы делаете чисто скриптом а не через ридерс/авторс поля?
 
N

nadezdaMP

#3
все верно. я просто не понимаю почему под админом изменения остаются, а под пользователем - нет, хотя у пользователя есть возможность редактирвоания своих данных из базы контактов. а как это можно сделать через ридерс/авторс поля?
 

TIA

:-)
Lotus team
15.05.2009
790
3
#4
Пользователи по ACL, вероятно авторы, а админ -- редактор или выше. В этом случае пользователь может редактировать документ только если он указан в одном из авторских полей (или имеет роль, указанную в авторском поле). А на редактора по ACL или выше данное ограничение не распространяется. Вобщем, читайте в хелпе как AUTHORS/READERS поля работают.
 
K

Klido

#5
+это по умолчанию достаточно хорошо реализовано в стандартной АК организации - можно изучить на примере
 
N

nadezdaMP

#6
изучила) у каждого пользователя в контакте есть поле Owner типа Authors, где прписано его полное имя.
доступ к базе по умолчанию Authors. это понятно. причем пользователь может редактировать только определенные поля своего контакта, не все.
есть другая база данных. в ней по пользователь также может редактировать только свой контакт в АК, (там есть кнопочка - редактировать свой контакт) но изменения не сохраняются. ну не понимаю я почему и как сделать так чтоб сохранялось =) метод научного тыка не помог =)
 
K

Klido

#7
как именно происходит редактирование? открывается док или диалог? "при выполнении скрипта" - можно кусок этого скрипта или полностью?
в Save параметры правильно стоят? если диалогом - параметры диалога по изменению полей - правильные?
 
N

nadezdaMP

#8
по кнопке открывается форма на редактирвоание, на форме поле SaveOptions = 0
код кнопки следующий
[codebox]
Sub Click(Source As Button)
...
Set s = New NotesSession
Set ws = New NotesUIWorkspace
Set db = s.CurrentDatabase

Set tddb = s.GetDatabase("domino", "names")
Set view = tddb.GetView("ForHomeBase")
Set name = s.CreateName(s.UserName)
If name.Abbreviated <>"" Then
Set vdoc = view.GetDocumentByKey(name.Abbreviated, False)
Set doc = db.CreateDocument
Call vdoc.CopyAllItems(doc, True)
Call ws.EditDocument(False, doc)
End If
End Sub
[/codebox]

на форме есть кнопа Сохранить, по которой выполняется код
[codebox]
Sub Click(Source As Button)
...
Set s = New NotesSession
Set workspace = New NotesUIWorkspace
Set uid = workspace.CurrentDocument
Set uidoc = uid.Document

Set db = s.CurrentDatabase
Set tddb = s.GetDatabase("domino", "names")
Set view = tddb.GetView("ForHomeBase")
Set nam = s.CreateName(s.UserName)
If nam.Abbreviated <>"" Then
Set vdoc = view.GetDocumentByKey(nam.Abbreviated, False)
'ради эксперимента пытаюсь изменить доступное для пользователя поле в его контакте, но изменения не сохраняются
Call vdoc.ReplaceItemValue("OfficeCity", "55555")
' вобще предполагается что то вроде Call uidoc.CopyAllItems(vdoc, true)
...
Call vdoc.Save(True, False)
End If
Call uid.Close(True)

End Sub[/codebox]

подскажите пожалуйста как лучше изменить код? :)
 

hosm

* so what *
18.05.2009
2 442
6
#10
Если "по кнопке открывается форма на редактирвоание", то тогда вместо
Код:
Call ws.EditDocument(False, doc)
надо вообще-то
Код:
Call ws.EditDocument(True, doc)