Domino 9 und frühere Versionen > Entwicklung

In einer Ansicht das Löschen von Dokumente verhindern

(1/2) > >>

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! ;D

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

--- Ende Code ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite