Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Untitled am 11.09.06 - 09:53:43

Titel: Refresh der Rechte einer Controlled Access-Section
Beitrag von: Untitled am 11.09.06 - 09:53:43

Hi zusammen

Kann sein, dass ich nur irgendwo ein Häkchen vergessen habe, aber bisher war meine Suche erfolglos.

Ich habe eine Controlled Access-Section eingefügt. Die Formel ist computed for display und basiert auf einem anderen Feld.

Wenn ich nun eine Action klicke, wird das Feld (im Backend) aktualisiert und ein Reload/Refresh durchgeführt.

Wenn ich nun in die Section doppelklicke, werden alle Rechte richtig angezeigt, aber ich kann die Felder darin erst editieren, wenn ich das Dokument abgespeichert und neu geöffnet habe.

Weiss jemand, ob und wie ich die Rechte auch direkt aktualisieren kann? Oder habe ich irgendwo einen Fehler drinne?

Danke für eure Hilfe!!

Moritz

Titel: Re: Refresh der Rechte einer Controlled Access-Section
Beitrag von: Untitled am 11.09.06 - 14:50:44

Habs mal vorerst so gelöst:

Code

	Call uiDocThis.Refresh
	Call ReOpen(docThis, True)

Dazu brauchts dann die ReOpen-Funktion von ata:

Code

Function ReOpen(docThis As NotesDocument, EditMode As Boolean ) As Integer 
	'Das aktuelle Dokument schließen und wieder öffnen
	Dim ws As New NotesUIWorkspace 
	Dim uidoc As NotesUIDocument 
	Dim dbThis As NotesDatabase 
	Dim unid As String 
	
	ReOpen = 0 
	
	Set dbThis = docThis.ParentDatabase 
	
	Call docThis.Save(True, True)
	
	unid = docThis.UniversalID 
	docThis.SaveOptions = "0" 'Speicherabfrage vermeiden 
	
	Set uidoc = ws.CurrentDocument 
	
	Call uidoc.Close 
	
	Set docThis = dbThis.GetDocumentByUNID(unid) 
	Set uidoc = ws.EditDocument(True , docThis) 
	Set docThis = uidoc.Document 
	
	If docThis.HasItem("SaveOptions") Then  
          'das Feld SaveOptions wieder entfernen
		docThis.RemoveItem("SaveOptions") 
		Call docThis.Save( True , True ) 
	End If 
	
	If EditMode Then
		uidoc.EditMode = True
	End If
	
	ReOpen = 1
End Function

Moritz