$Readers + Neues Dokument + Lotus Script

[Skorpi]

Hallo,

ich versuche gerade Notesdokumente einer bestimmten Maske per Script zu generieren. Das Ganze funktioniert auch wunderbar. Bis auf die Tatsache, dass die Lese- u. Autorenrechte nicht berücksichtigt werden. Diese Rechte habe ich im Designer unter den Masken-Eigenschaften in der Rubrik 'Sicherheit' auf bestimmte Rollen beschränkt. Wenn ich jetzt die Dokumente im Backend anlege, wird das $Readers Feld nicht gefüllt. Ein

Code

computeWithForm(true,true)

hat leider auch nicht geholfen. Wenn ich das generierte Dokument im Frontend öffne und dann wieder abspeichere, legt Notes das $Readers Feld an und alles ist so wie es sein müsste.

Kennt jemand eine praktikable Möglichkeit, um Notes-Dokumente so im Backend zu erzeugen, dass die hinterlegten Rechte vom Designer übernommen werden?

[koehlerbv]

Im Backend musst Du da selber Hand anlegen, also das Item $Readers erzeugen, füllen und die READ-ACCESS property setzen.

Bernhard

[Skorpi]

Danke für die schnelle Antwort 

Ich bin jetzt wie folgt vorgegangen:

1. Die gewünschte Maske im Backend initialisieren (NotesForm)

Code

Dim form As NotesForm
Set form = db.GetForm("MeineMaske")

2. Neues NotesItem mit dem Lesern der Maske (form.Readers) als Wert erzeugen. Und nicht vergessen die Eigenschaft IsReaders auf WAHR setzen.

Code

Set item = New NotesItem(doc, "$Readers", form.Readers)
item.IsReaders = True

So, dann noch Speichern und alles ist so wie es sein sollte