You are not listed

13. März 2008

You cannot create or update dpcuments because you are not listed as an allowable author of this document.

So was aehnliches kriegeg ich bei nur einem user wen der folgende code lauft. Bei allen anderen lauft der code seit einem jahr ohne probleme.

Code

Function ugovorFunc(ugovor As NotesDocument, newdoc As NotesDocument, doc As NotesDocument, ws As NotesUIWorkspace) As Boolean	Dim dt As New NotesDateTime ("")	Call dt.SetNow	Call dt.AdjustMonth(1)	  																				ugovor.Form = "UgovorWICNovi"														ugovor.doc_tip = Cstr("Ugovor")		ugovor.organizacija = doc.organizacija	ugovor.komitent = doc.jmbg	ugovor.doc_predmet = doc.organizacija(0)	ugovor.mjesto=doc.mjesto	ugovor.adresa=doc.adresa	ugovor.docproces_ID= newdoc.doc_ID	ugovor.datum_prijava=doc.datum_prijava	ugovor.doc_proces = newdoc.doc_proces	ugovor.proces = newdoc.proces	ugovor.proces_tip = newdoc.proces_tip	ugovor.doc_br_predmet =newdoc.doc_broj(0)	ugovor.doc_izradio = Cstr(user)	ugovor.doc_DefRead = Cstr(user)	ugovor.doc_DefEdit = Cstr(user)	ugovor.doc_edit = newdoc.doc_edit(0)	ugovor.doc_read = newdoc.doc_read(0)	ugovor.paket = doc.paket	ugovor.placanje = doc.placanje	ugovor.modem=doc.modem	ugovor.doc_status = "Otvoreno"	Set ugovor.doc_rok = dt																			' rok se postavlja na dt	Call ugovor.Save(True,False)	Call ugovor.MakeResponse(newdoc)									Call ugovor.Save(True,True)	Call ws.EditDocument(True,ugovor)																						Call ws.CurrentDocument.Save	ugovorFunc = TrueEnd Function

Und hier eiene aehnliche funktion die davor lauft und fast das selbe macht nur mit nen anderen form und die geht ohne probleme auch bei dem einen user.

Code

Function prijavaFunc(prijava As NotesDocument ,newdoc As NotesDocument,doc As NotesDocument, ws As NotesUIWorkspace) As Boolean
	prijava.Form = "Prijava"																
	prijava.komitent = doc.jmbg
	prijava.doc_predmet =  doc.organizacija(0)
	prijava.komitent = doc.jmbg
	prijava.organizacija = doc.organizacija
	prijava.doc_broj = Cstr("500-" +doc.doc_broj(0))
	prijava.datum_prijava = doc.datum_prijava
	prijava.docproces_ID= newdoc.doc_ID
	prijava.doc_proces = newdoc.doc_proces
	prijava.proces = newdoc.proces
	prijava.proces_tip = newdoc.proces_tip
	prijava.doc_br_predmet = newdoc.doc_broj(0)
	prijava.vrstdok = "1"
	prijava.doc_tip = "Prijavnica" 
	prijava.OS=doc.OS	
	prijava.Mkart=doc.Mkart
	newdoc.UserPrijava = doc.UserPrijava
	If doc.HasItem("modem") Then
		prijava.modem = doc.modem
	End If

	prijava.paket = doc.paket
	prijava.placanje = doc.placanje
	prijava.komentar = doc.komentar
	prijava.doc_izradio = Cstr(user)
	prijava.doc_DefRead = Cstr(user)
	prijava.doc_DefEdit = Cstr(user)
	prijava.doc_edit = newdoc.doc_edit(0)
	prijava.doc_read = newdoc.doc_read(0)

	Call prijava.ComputeWithForm(True,True) 
	Call prijava.Save(True,False)

	Call prijava.MakeResponse(newdoc)							' postavi document prijava kao 
																		' response na document predmet	
	Call prijava.Save(True,True)										'spremi document	
	Call ws.EditDocument(True,prijava)							'stavi prijavu u edit mode
	Call ws.CurrentDocument.Save									'spremi  Prijavu

	prijavaFunc = True
End Function

Alles anzeigen

Danke im voraus

Diali · 13. März 2008

Schau Dir mal in den Eigenschaften des Dokumentes die Felder an. Gibt es dort ein Feld, welches in den Feld-Flags "READ/WRITE-ACCESS NAMES" stehen hat? Was steht in dem Feld? Welches Recht hat der User auf die DB (ACL)?

Gruß
Dirk

13. März 2008

Sorry ich hab euch ein paar relevante Infos vorenthalten. Der User ist im ACL Person und Manager und das doc ist ein neues doc.

Code

Set ugovor =  New NotesDocument(dbnew)

dan wird ugovor weitergelitet and die funk:

Code

Function ugovorFunc(ugovor As NotesDocument, newdoc As NotesDocument, doc As NotesDocument, ws As NotesUIWorkspace) As Boolean

Dann ist es wohl egal was im READ/WRITE-ACCESS NAMES da soltte sein UserName stehen

user = s.CommonUserName

dan heisst es spaeter

ugovor.doc_izradio = Cstr(user) ' textfield
ugovor.doc_DefRead = Cstr(user) ' readersfield

Aber wen er manager ist dan sollte das nicht passieren oder etwa doch? Ischaetze doch.

Diali · 13. März 2008

ist doc_DefRead ein echtes Leserfeld (siehe Eigenschaften)? Diese ziehen auch bei Managern der DB!

Gruß
Dirk

13. März 2008

Ja das ist es. Aber es wird von mir in das feld reingeschrieben also der user macht das doc.

Speichert es

Call ugovor.Save(True,False)
Call ugovor.MakeResponse(newdoc)
Und dan kommt hier der fehler
Call ugovor.Save(True,True)

Also er kann es erstellen aber nich editieren nochmals es passiert nur bei dem einen user.

Bei allen anderen passiert es nicht.

Danke

Teilen