Readers Field

HAllo ,

ich habe ein paar docs die die daten von usern darstellen. Sie wuerden wom Administrator kreiert und jeder hat das recht sie zu lesen und nur der User hat das recht sein doc zu aendern.

Jetzt soll es aber so sein das jeder nur sein doc sehen und aendern kann.

Das doc hat ein Author Field in dem die gruppe [ADmin] steht und eib reader Feld in dem die gruppe [alle] steht.

Ich habe versucht in das reader Feld den namen des Users manuel und mit Formel sprache einzugeben und trotzdem koennen die anderen user das doc sehen.

Danke im voraus

FIELD docRead:="CN=Name/O=organisation"

und manuel in dem ich das Feld auf editable gesetzt hab und dan das selbe reingeschrieben.

Danke

Die user sind alle Authoren.

Kann ich dann das doc als backend cod nehmen den wert aendern und dann das item(Feld) als IsReader setzten und computeWithForm machen? OPder ich noch was dazu machen?

Koennt ihr mir vieleich ein beispiel als code geben?

Danke

Sub Querysave(Source As Notesuidocument, Continue As Variant)
	Dim doc As notesdocument
	Set doc = source.Document	
	Dim item As  NotesItem
	Dim item2 As  NotesItem
	Set item = doc.GetFirstItem("doc_defEdit")
	Set item2 = doc.GetFirstItem("doc_defRead")

	Messagebox item.Name ,,item.IsAuthors
	Messagebox item2.Name ,,item.IsReaders

	item2.IsReaders=True

	Messagebox item2.Name ,,item.IsReaders



End Sub

Hab es so versucht aber es gelingt nicht. Das heisst das das feld danach immer noch nicht Reader ist.

Danke

:roll: Jetzt geht es fast. Einmal waren alle docs auf True dan bin ich aus der DB raus und jetzt stehen sie immer auf False.
Hab das $readaers Feld von "[svi]" auf "" per @Formel gesetzt.

Sub Querysave(Source As Notesuidocument, Continue As Variant)
	Dim doc As notesdocument
	Set doc = source.Document	
	Dim item As  NotesItem
	Dim item2 As  NotesItem
	Dim item3 As  NotesItem
	Set item = doc.GetFirstItem("doc_DefEdit")
	Set item2 = doc.GetFirstItem("doc_DefRead")
	Set item3 = doc.GetFirstItem("UsrReader")
	Messagebox item.Name ,,item.IsReaders
	Messagebox item2.Name ,,item.IsReaders
	Messagebox item3.Name ,,item.IsReaders
	item.IsAuthors=True
	item2.IsReaders=True
	item3.IsReaders=True
	Call	doc.Save(True,False)

	Messagebox item.Name ,,item.IsReaders	
	Messagebox item2.Name ,,item.IsReaders
	Messagebox item3.Name ,,item.IsReaders		



End Sub

Danke

Hi,

ich habe jetzt einen agenten geschrieben:

Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim item As  NotesItem
	Set db = session.CurrentDatabase
	Dim doc As NotesDocument
	Dim re(1) As String

	Set view = db.GetView("Redah/općine")
	Set doc = view.GetFirstDocument
	Set item = doc.GetFirstItem("doc_DefRead")
	Messagebox  "Read: "+doc.doc_DefRead(0) +Cstr(item.IsReaders)+" "+"Write: "+doc.doc_DefEdit(0),,doc.posl_naziv(0)
	Set doc = view.GetNextDocument(doc)

	Do While Not doc Is Nothing		
		Set item = doc.GetFirstItem("doc_DefRead")
		reader = doc.posl_naziv(0) +"/redah"
		re(0)=reader
		re(1)="[administrator]"
		Call doc.ReplaceItemValue("doc_DefRead",re)		
		item.IsReaders=True
		Call		doc.ComputeWithForm(True,True)
		Call doc.Save(True,False)		
		Messagebox  "Read: "+doc.doc_DefRead(0) +Cstr(item.IsReaders)+" "+"Write: "+doc.doc_DefEdit(0),,doc.posl_naziv(0)
		Set doc = view.GetNextDocument(doc)
		answer% =	Messagebox("Želite li nastaviti",1,doc.posl_naziv(0))
		If answer% = 2 Then
			Exit Sub
		End If
	Loop

und wenn er lauft ist im debugger sehe das bild unten.

Da steht das im doc_DeFRead das richtige steht ABER wenn ich das doc spaeter offne steht [svi] drinn.

???

Und was soll ich mit $Readers machen?

Danke im voraus nett von ihnen das Sie mir helfen

Sorry ich hab glat das Bild vergesen.

Jetzt habe ich es geschaft.

Mit Hilfe dieses Artikels

http://www-1.ibm.com/support/d….wss?rs=0&uid=swg21093049

Vieleicht nutzt es noch jemanden.

Hab zuerst das Feld Reader das ich hab mit einem anderem Wert ersetzt. Eigentlich ging das die ganze Zeit. Aber das Problem war das $Readers Feld , ein Notes internal Feld das eine aehnliche funktion hat wie ein ganz normales RFeld. Und das kann mann einfache aendern.

ZUm glueck hab ich nur 23 User und es werden keine neue dazukommen, so habe ich die Docs Manuel veraendert. Ueber Properties und die Karte an der ein Schluessel abgebildet ist.

Danke euch fuer eure Muehe maxRitti und Taurec.

VIele Gruesse