In einer Ansicht das Löschen von Dokumente verhindern

[2Consultants]

Hallo Leute,
ich möchte in einer Ansicht verhindern das die dort zu sehenden Dokumente gelöscht werden können (in einer anderen muß es aber wieder möglich sein).
Ich weiß es gibt da ein kleines Script, ich hatte es auch schon mal....
Wer hat das parat? Das wäre sehr nett!

Gruß Christian

[Rob Green]

dazu ist das Datenbank Script "QueryDocumentDelete" zuständig. Das Event gibt es in der View nicht.

Daher mußt Du vorher checken, in welchem View der User steckt, um ein Doc zu löschen.

Das geht über
Set notesUIView = notesUIWorkspace.CurrentView

Wenn es dann ein View sein soll, der Löschen nicht zuläßt, schreibst Du

Dim workspace As New NotesUIWorkspace
Dim view As NotesUIView
Set view = workspace.CurrentView
if view.ViewName="NaNaNaNaaa" Then
continue = false
End if

[2Consultants]

Joh, das wars! Ich hatte immer noch im Kopf das das auch in einem Ansichtevent realisierbar wäre. Aber so ist auch OK!

[Schnubbel]

Habe dank Suche das Thema gefunden... war auch genau, das was ich gesucht habe. Ich habe einen 6.5 er Client und habe folgendes Script ins beschriebene Script eingefügt:

Code:

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
On Error Goto Fehlermeldung

Dim i As Integer

Dim workspace As New NotesUIWorkspace
Dim view As NotesUIView
Set view = workspace.CurrentView

If view.ViewName= "Vertagsdokumente"Then
continue = False
End If

Exit Sub ' Wichtig, sonst gibt es immer ne Fehlermeldung mit Zeile 0 etc.

Fehlermeldung:

Msgbox "Fehler " + Cstr(Err) + ": " + Error() + " in Zeile " + Cstr(Erl) + "aufgetreten"

Exit Sub

End Sub

Leider funktioniert das aber nicht, hat sich da evtl. was in der Zwischenzeit getan ?

Schonmal schönen Dank
Der Schnubbel 

[Axel]

Der Thread ist uralt. Warum erstellst du keinen neuen und verlinkst dann aus den alten. Außerdem befindet sich der Thread im 5er-Forum und du nutzt aber 6.5.

Was mir auf Anhieb aufgefallen ist, ist vermutlich ein Schreibfehler:

...
If view.ViewName= "Vertagsdokumente"Then
...

Müsste das nicht Vertragsdokumente heißen?


Getan hat sich in der Zwischenzeit da nichts.

Axel

[Schnubbel]

Öhmm.. dachte es wäre besser.. hierauf zu antworten...

Ja, das war ein Rechtschreibfehler.. aber geht trotzdem nicht. Fällt dir nochwas auf?

Ich bin leider relativ neu im Geschäft was Lotus Script angeht... ich habe als Test eine Msgbox in das Event geschrieben und dann ein Dokument gelöscht.. die wird mir aber auch nicht angezeigt... keine Ahnung ob das so gewollt ist

[Axel]

Hast du die Datenbank nach der Änderung auch mal geschlossen und wieder geöffnet. Notes ist nämlich groß in Cachen.

Axel

[Schnubbel]

Ja, darin hab ich auch gedacht. Ich hab den Desiger geschlossen,meinen Cache gelöscht (also die cache.ndk) und dann meinen Client geschlossen. Aber nichts passiert

[Peter Klett]

Ich würde das nicht von einer Ansicht abhängig machen, sondern immer den Inhalt der Dokumente überprüfen. In NotesUIDatabase gibt es die Documents, das sind alle relevanten Dokumente (z.B. die zum Löschen markierten).

Ansonsten baut sich jemand eine private Ansicht oder einen privaten Ordner und löscht die Dokumente von dort. Oder der Name der Ansicht wird in einem späteren Update geändert bzw. es kommen neue Ansichten dazu, dann denkt niemand daran, das QueryDocumentDelete zu ändern.

[Schnubbel]

Danke Peter und Axel. Nach verzweifelten Cache-Löschen, Client restarten etc. pp. funktioniert es nun. Deinen Einwand Peter werde ich mit in meine Lösung einbeziehen.