Domino 9 und frühere Versionen > ND7: Entwicklung

Datenbank-Script: Querydocumentdelete - Konstellationen Ereignisausführung?

<< < (2/3) > >>

Demian:

--- Zitat von: Glombi am 12.10.10 - 08:59:48 ---Wenn Du ein Dokument im Lesemodus geöffnet hast und dann die Entf Taste drückst, wird das Dokument mit dem Löschflag gekennzeichnet.
--- Ende Zitat ---

Ich kann das nicht reproduzieren. Wenn ich dann die Entf-Taste drücke passiert nichts. Das Dokument wird auch nicht zum Löschen markiert?

koehlerbv:
Peter hat natürlich Recht - ich meinte den ReadMode. Sorry.

Bernhard

Demian:
Also ich hab das jetzt in der Mail-DB so getestet, da wird die Mail auch gelöscht, wenn ich bei offenem Maildokument Entf drücke, in meiner DB aber nicht.

Die User sind Autoren und haben nur die Rechte "Dokument erstellen", "Dokument löschen" und "öffentliche Doks lesen" / "schreiben". Die zu löschenden Dokumente haben ein Autorenfeld in denen der Username sowie eine separate Rolle eingetragen wird.

Warum jetzt in meiner DB das Löschen bei geöffnetem Dokument gar nicht funktioniert, kann ich mir jetzt grad nicht erklären  ???
 

Demian:
also ich muss das Thema leider nochmal hoch holen. Es scheint sich hier um einen generellen "Bug" zu handeln. Ich habe es jetzt zum 1. Mal auch hingekriegt, dass  uiview = Nothing ist. Trotz Löschen aus der Ansicht heraus (siehe Screenshot).

Ich hatte nach dem 1. Auftreten den Code wie folgt geändert:


--- Code: ---Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
'*********************************************************************************************************************************
'doc deleting only with the shared action allowed
'*********************************************************************************************************************************
On Error Goto ErrHandle
'*********************************************************************************************************************************
Const EventName = "Querydocumentdelete" 'for reports
'*********************************************************************************************************************************
Dim s As New NotesSession
Dim work As New NotesUIWorkspace
Dim uiview As NotesUIView
'*********************************************************************************************************************************

Call ReportWrite (EventName & " - prüfe ob Dokument gelöscht werden darf")

Set uiview = work.CurrentView

If uiView Is Nothing Then Goto NotDelete

If uiview.View.Aliases(0) = "ReservationCalendar" _
Or uiview.View.Aliases(0) = "ReservationList" _
Or uiview.View.Aliases(0) = "ReservationByUser" Then
Call ReportWrite (EventName & " - Dokumente dürfen gelöscht werden")

'RETURN
Continue = True
Goto Leave
Else
Goto NotDelete
End If 'uiview.View.Aliases(0) = "ReservationCalendar" _


NotDelete:
Msgbox "Das Löschen ist nur über die vorgesehenen Schaltflächen zulässig."
Call ReportWrite (EventName & " - Löschen unterbunden")

'RETURN
Continue = False

Leave:
Exit Sub


ErrHandle:
Call ReportWriteError(EventName & " - Error" & Str(Err) & ": " & Error$ & " in Zeile " & Erl)
Msgbox "Error" & Str(Err) & ": " & Error$ & " in Zeile " & Erl
'RETURN
Continue = False
Resume Leave
End Sub
--- Ende Code ---

Ich habe eigentlich nur ein paar andere Dokumente (auch in anderen DB's) berbeitet und geschlossen und daraufhin das Dokument aus der Ansicht (Screenshot - ReservationList) löschen wollen. Wirklich reproudziert kriege ich es jedenfalls nicht. Mal greift das Script, mal ist uiview nothing  ???

pram:
Lösung hab ich auch keine aber vielleicht hilft dir "workspace.currentViewAlias" weiter?

Gruß
Roland

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete