Alle Rollen in einem Feld anzeigen

[Selin]

Hallo Zusammen,

ich habe ein Feld (Kontrollkästchen) und möchte hierüber die Zugriffsteuerung für die Dokumente steuern.
Das feld soll in der ACL stehenden Rollen als einzelne Optionen darstellen.
der Autor soll also die Möglichkeit haben bestimmte Rollen für das aktuelle Dokument zuzuweisen.


In der Designerhilfe habe ich das hier gefunden:
Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim acl As NotesACL
   Set db = session.CurrentDatabase
   Set acl = db.ACL
   Forall r In acl.Roles
      Messagebox( r )
   End Forall
End Sub


Gibt es sowas auch in @Funktionen?

Habt ihr eine Idee?

danke + gruß
Selin

[koehlerbv]

Gibt es sowas auch in @Funktionen?

Nein.
Warum belegst Du aber Dein Auswahlfeld nicht beim Öffnen im EditMode on the fly mit den aktuellen Rollen aus der ACL?

Bernhard

[Selin]

Hallo Bernhard,

danke für den Tipp.

Habe folgendes noch im Forum gefunden:
Im Postopen Event:

Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.CurrentDocument
     Dim rolles As String
     
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Dim acl As NotesACL
     Set db = session.CurrentDatabase
     Set acl = db.ACL
     Forall r In acl.Roles
           rolles = r & ";" & rolles
     End Forall
     Call uidoc.FieldSetText ( "Rollen", Trim$(rolles) )
     Call uidoc.refresh

Allerdings wäre es genial, wenn ich entweder ein Dialogfeld oder ein Kontrollkästchenfeld darstellen könnte.
Mit dem Script wird nur eine Textliste erstellt, unabhänging davon, ob das Feld als Dialogfeld festgelegt ist oder nicht.
Ist das möglich?

Danke + Viele Grüsse
Selin

[Axel]

Du musst die Rollen in ein Array aufnehmen. Dieses Arra kannst du dann dem Feld zuweisen.

...

Dim arrRoles() As String
Dim idx As Integer

...
idx = 0

Forall r In acl.Roles
   Redim PreServe arrRoles(idx)
   arrRoles(idx) = r
   idx = idx + 1
End Forall
...


Axel

[Selin]

Hallo,

es will nicht klappen.   
Ich habe mit Arrays noch nicht viel gemacht ;-(
Und irgendwie wird mir entweder wieder nur die Textliste ausgegeben oder die letzte Rolle...   

verzweifelte Grüsse
Selin

[klaussal]

Was will nicht klappen ?

Ohne nähere Infos (z. Bsp. mehr Codezeilen) = keine Hilfe möglich !

PS:
Warum muss man den Leuten immer öfters die Würmer aus der Nase ziehen ?

[Selin]

das Feld (Dialogfeld) soll die Rollen als Auswahlfeld darstellen und das tuts nicht.

Sub Postopen(Source As Notesuidocument)
   
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   Dim rolles As String
   Dim arrRoles() As String
   Dim idx As Integer
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim acl As NotesACL
   Set db = session.CurrentDatabase
   Set acl = db.ACL
   
   Forall r In acl.Roles
      Redim Preserve arrRoles(idx)
      arrRoles(idx) = r
      idx = idx + 1
      
   End Forall   
   Call uidoc.FieldSetText ( "Zugriffliste_L", Trim$(?) )
   Call uidoc.refresh 
         
   Ich weiß nicht, welche Variable ich in das FieldSetText reinschreiben soll.
Habe schon ätliches versucht aber
   
   
   
End Sub

[Wirsing]

arrRoles:

Call uidoc.FieldSetText ( "Zugriffliste_L", Trim$(arrRoles) )


Aber kann es nicht sein, dass Dein Feld "Zugriffliste_L" in der Maske kein Kontrollkästchen mehr ist?

[Selin]

hmm, geht leider nicht. Kann den code nicht abspeichern
"Type mismatch on: arrroles"

[Selin]

Feld Zugriffliste_L ist eine Dialogliste aber als Kontrollkästchen funzt es auch net

[koehlerbv]

Da arroles kein skalarer Wert ist, sondern ein Array, geht natürlich FieldSetText nicht - das erwartet ja einen String.

Code

Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   Dim rolles As String
   Dim arrRoles() As String
   Dim idx As Integer
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim acl As NotesACL
   Set db = session.CurrentDatabase
   Set acl = db.ACL
   
   Forall r In acl.Roles
      Redim Preserve arrRoles(idx)
      arrRoles(idx) = r
      idx = idx + 1
      
   End Forall   
   Zugriffliste_L = arroles
   Call workspace.ViewRefresh

Bernhard

[Glombi]

Also das ist für mich zu kompliziert. Besser so:

Sub Postopen(Source As Notesuidocument)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim acl As NotesACL
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase
   Set acl = db.ACL
   Set doc = Source.Document
   doc.ACLRoles = acl.Roles   
End Sub

Das Fed "Zugriffliste_L" muss dann eine Dialogliste mit einer Formel als Auswahl haben. Als Formel wird dann lediglich
  ACLRoles
eingetragen.

ACLRoles muss ein Textfeld mit Mehrfachwerten sein.

Andreas

[Selin]

Hallo Andreas,

hat super funktioniert.
Vielen dank

@Bernhard: Bei deinem Script blieb das Feld Zugriffliste_L leer.

danke noch mal an alle
Selin

[klaussal]

@Bernhard: Bei deinem Script blieb das Feld Zugriffliste_L leer.

Ja logo, hat er ja auch extra geschrieben:

geht natürlich FieldSetText nicht - das erwartet ja einen String.

[Selin]

nein, mit dem aktuellen Script von ihm, blieb das Feld leer.

 Zugriffliste_L = arroles
 Call workspace.ViewRefresh

[koehlerbv]

Naja, auf die beiden Fehler hätte man auch kommen können 

uidoc.Document.Zugriffsliste_L = arrRoles

Mir kam es auch mehr darauf an zu zeigen, dass man ein Array keinem String zuweisen kann.

Bernhard

[Axel]

Also das ist für mich zu kompliziert. Besser so:

Sub Postopen(Source As Notesuidocument)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim acl As NotesACL
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase
   Set acl = db.ACL
   Set doc = Source.Document
   doc.ACLRoles = acl.Roles   
End Sub

Das Fed "Zugriffliste_L" muss dann eine Dialogliste mit einer Formel als Auswahl haben. Als Formel wird dann lediglich
  ACLRoles
eingetragen.

ACLRoles muss ein Textfeld mit Mehrfachwerten sein.

Andreas

Warum kompliziert, wenn's auch einfach geht?   

Manchmal denkt man um viel zu viel Ecken.   

Axel

[Selin]

Guten Morgen,

kann ich die Werte in der Dialogliste auch defaultmäßig alle marrkiert darstellen?
Somit müsste der User nur die Haken bei denen rausnehmen, die das Dokument nicht lesen sollen.

Danke + Grüsse
Selin

[koehlerbv]

Dafür brauchst Du ACLRoles nur Deinem Dialogfeld Zugriffsliste_L zuzuweisen.

Bernhard

[diali]

Schreibe in die Vorgaben des Feldes "Zugriffliste_L" den Namen des Feldes, in dem alle Rollen stehen - also "ACLRoles"