Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: SnooP am 23.06.03 - 19:44:53

Titel: Feld mit Leserechten ändern ?
Beitrag von: SnooP am 23.06.03 - 19:44:53
Hallo zusammen,

ich habe ein Dokument in dem sich ein Statusfeld befindet.
Je nach dem welchen Status das Feld hat, werden für das Dokument entsprechend Leser und Autorenrechte vergeben bzw. bestimmte Rollen zugewiesen.

z.B. Status "1" Autorenrechte: [Admin] Leserechte: [Personal]

So, jetzt mein Problem. Die User die der Rolle[Personal] angehören haben Leserechte. Nun möchte ich ein AktionButton erstellen auf den  die User der Rolle [Personal] draufklicken und den Feldwert "Status" ohne Autorenrechte verändern z.B. von "1" auf "2". Habe gelesen, dass ich es nur verändern kann, wenn ich das Dokument im Backend anspreche.

Kann mir jemand ein Tipp oder besser eine Lösung hierfür geben.

Danke im Voraus
Titel: Re:Feld mit Leserechten ändern ?
Beitrag von: ata am 23.06.03 - 21:00:34
... das wird auch im Backend nicht funktionieren - du erhälst auch dort die Meldung, daß die nötige Berechtigung fehlt...

... es funktioniert, wenn du einen Agenten verwendest, der mit einer entspechenden Berechtigung signiert ist - und hier geht das dann auch im Backend...

ata
Titel: Re:Feld mit Leserechten ändern ?
Beitrag von: SnooP am 24.06.03 - 11:33:19
.... selbst dann nicht, wenn ich auch Editorenrechte auf die DB habe ?
Titel: Re:Feld mit Leserechten ändern ?
Beitrag von: klaussal am 24.06.03 - 11:36:29
... wenn DU editor bist, kein problem.
... deine USER haben aber nur leserechte  -> nur so, wie ata geschrieben hat.
Titel: Re:Feld mit Leserechten ändern ?
Beitrag von: SnooP am 24.06.03 - 13:49:04
Ich habe es mittlerweile auch ohne Agent gelöst !!!

Danke euch !!!

Hier mein Script:

Sub Click(Source As Button)

   Dim UiWs As New Notesuiworkspace
   Dim uidoc As notesuidocument
   Dim doc As notesdocument
   
   Set uidoc=uiws.currentdocument
   Set doc=uidoc.document
   
   If doc.wpm(0)="wpm" Then 'Feld wpm wird auf Wert "wpm" geprüft
      doc.Status="2"
            
   Else
      doc.Status="3"
   End If
   
   Call doc.save(True, True)
   
End Sub