Autor Thema: "Verbergen wenn.." ?  (Gelesen 1478 mal)

Offline lasko

  • Frischling
  • *
  • Beiträge: 11
  • Geschlecht: Männlich
  • wat nich paßt wird passend gemacht!!
"Verbergen wenn.." ?
« am: 24.07.02 - 13:00:11 »
Tach zusammen,

ich hab da mal ne Frage, ich soll eine DB ausliefern auf die bisher nur eine Abteilung zugegriffen hat, nun kommen zahlreiche Benutzer/Abteilungen hinzu.

Die in dieser DB abgelegten Information werden über Rollen verborgen bzw angezeigt. Leider wirken diese Rollen nur auf einzeln eingetragene Benutzer nicht auf in der ACL angegebene Gruppen aus.

Wie kann ich das realisieren ohne alle Benutzer einzeln in die ACL einzutragen? Oder kann ich Notes(5010) doch dazu überreden Gruppeneinträge/Rollen auszuwerten?

Da schon reichlich (recht sensible) Dokumente vorhanden sind kann ich nicht  so wirklich was im Dokument hinterlegen...
Mit Profildokumenten(?) hab ich noch nicht gearbeitet..

Schon mal Danke im Voraus

Gruß

Lasko



« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Gruß

Lasko

Offline Till_21

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 708
  • Geschlecht: Männlich
  • I love Germany
Re: "Verbergen wenn.." ?
« Antwort #1 am: 24.07.02 - 14:00:02 »
hide when...

@isnotmember("[Rolle]";@userroles);

@userroles gibt dir entweder die rollen deines acl-eintrages zurück, oder aber auch die deiner gruppe, wenn du nicht explizit aufgeführt bist.
Man merke sich deshalb : Personen gehen immer vor Gruppen!

till
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline lrzwkle

  • Frischling
  • *
  • Beiträge: 34
  • Geschlecht: Männlich
  • wer früher stirbt ist länger tot
Re: "Verbergen wenn.." ?
« Antwort #2 am: 24.07.02 - 16:17:23 »
Hallo,

meine Erfahrung ist da eine andere. Rollen in Leser- und Autorendelder wirken sich auch aus, wenn ein Benutzer über eine Gruppe zugreift. Ich habe das schon vielfach verwendet und noch nie eine Reklamation gehabt.

Wie aber Till schon richtig bemerkt hat: Personenrechte ziehen immer vor Gruppenrechten. Und wenn ein User über mehrere Gruppen auf eine DB zugreifen kann, dann wird die Sache schon undurchsichtig, da hilft nur mehr die Abfrage der "Gruppen und Rollen" (rechts unten im Client, links neben der Arbeitsumgebung).

fG Siegi
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Systeme:
Notes 4.6 bis R5.05 und Domino 4.6.7 bis R5.07a
Ca. 5000 User auf ca. 300 Servern (bin aber gottseidank kein Administrator ;-) )

Offline lasko

  • Frischling
  • *
  • Beiträge: 11
  • Geschlecht: Männlich
  • wat nich paßt wird passend gemacht!!
Re: "Verbergen wenn.." ?
« Antwort #3 am: 29.07.02 - 11:14:07 »
Hallo zusammen,

vielen Dank für die Antworten.

Das das Personenrecht vor Gruppenrecht geht war mir bekannt, denn genau da liegt mein Problem.

Innerhalb der Datenbank werden bestimmte Felder verborgen und die Bearbeitung von Dokumenten gesteuert.
Z.B. sollen bestimmte Personen Dokumente anlegen und anschliessend noch lesen können.

andere können anlegen,lesen und genehmigen usw.

Dies habe ich über Rollen gesteuert.

Leider klappt das aber nur z.T. da Personen die nicht einzeln in der ACL geführt werden und deren Gruppeneintrag eine Rolle trägt nicht ausgewertet werden .

Kann man das umgehen? Statt 20 müssen nun 200 Benutzer Koordiniert werden....

Ich habs so versucht:

Dim session As New NotesSession
Dim userName As New NotesName(session.UserName)
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set acl = db.ACL
user2 = username.Abbreviated
Set entry = acl.GetEntry(user2)
     
'zugriff zum Bearbeiten nur für wenn Rolle "genehmiger" aktiviert ist
     
If Not entry Is Nothing Then
If  Entry.IsRoleEnabled("[genehmiger]" ) Or   Entry.IsRoleEnabled("[sekretariat]" ) Then
 continue = 1
   Else
Msgbox "Sie sind nicht berechtigt das Dokument zu bearbeiten!"
 continue = 0
    End If
End If
     
 'zugriff zum Bearbeiten(wenn aktueller Benutzer auch Autor des Dokuments ist)  
     
     If entry Is Nothing Then
           If ersteller = user Then
                 continue = 1
           Else
                 Msgbox "Sie sind nicht berechtigt das Dokument zu bearbeiten!"
                 continue = 0
           End If
     End If  

Vielleicht mache ich etwas falsch oder so.

Habt Ihr ne Idee?

Gruß

Lasko
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Gruß

Lasko

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz