Neues Dokument nicht mit Escape verlassen?

[forrest g]

hallo zusammen,

wie kann ich verhindern, dass ein neu erstelltes dokument mit escape verlassen werden kann?
oder wie kann ich beim verlassen des neu erstellten dokuments mit escape einen agenten starten.

hintergrund ist:
bei bestimmten aktionen innerhalb des neuen dokuments wird dieses gespeichert,
was der user natürlich nicht weiss.
wird das dokument dann verworfen, muss ich das dokument natürlich löschen(dafür der agent).

vielen dank für die tipps im voraus
tschö

[Centaury]

Weiß ich so direkt nichts, aber vielleicht ein Weg drumherum:

Wenn der User das Dokument verlassen will, die Abfrage, ob gespeichert werden soll, selbst schreiben und die notesinterne Abfrage übergehen (siehe hier)

[jofa]

Hi,

vielleicht hilft Dir dieses Script ja:

---snip---
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
   Dim dc As NotesDocumentCollection
   Dim dcResponses As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim varAccessTest As Variant
   
   Continue = False
   
' // Test ob Rolle [DBAdmin], dann darf ungeprueft geloescht werden
   varAccessTest = Evaluate("@IsMember(""[DBAdmin]""; @UserRoles)")
   If varAccessTest(0) = "1" Then
      Continue = True
      Exit Sub
   End If
   
' // Test ob Rolle [Admin], dann darf geprueft geloescht werden
   varAccessTest = Evaluate("@IsMember(""[Admin]""; @UserRoles)")
   If varAccessTest(0) = "1" Then
      Continue = True
      Exit Sub
      Set dc = Source.Documents
      Set doc = dc.GetFirstDocument
      
      Do While Not (doc Is Nothing)
         Select Case doc.Form(0)
' // Ueberpruefen der Maskennamen
         Case "Kunde"
            Messagebox "Sie können einen Kunden nur über die entsprechende Aktion im Dokument löschen!", 0, "Löschen eines Kunden"
            Continue = False
         Case Else
            Messagebox "ok"
            Continue = True
         End Select
         Set doc = dc.GetNextDocument(doc)
      Loop
   End If
   
End Sub
---snap---

Du musst es im Database Script eintragen.


Gruss JoFa

[forrest g]

hi jofa,

danke für dein script.
es hilft mir leider insofern nicht, da es nicht um berechtigungen geht.

ich erklär das nochmal genau:
- user öffnet doc, kann und darf es immer unsaved verlassen
- ausser, wenn er attachments einfügt über buttons...

- denn, wenn er mit den richtextfeldern rummacht, muss ich das doc speichern!
intern, ohne dass das doc für den user gespeichert ist.
- wenn der user jetzt das über den button "verwerfen" verlässt, dann geht alles glatt:
ich lösche das "intern gespeicherte doc" undder user denkt er hat das doc verworfen...

nur, wenn der user mit escape rausgeht... dann ist das doc gespeicht...

wie kann ich dann das escape verhindern oder einen agenten starten, damit ich dieses  >:(doc löschen kann?

vielen dank
tschö

[ata]

... gib dem Dokument eine flag, die einem Agenten zeigt "... ich möchte gelöscht werden"...

... in deinen Ansichten werden keine Dokumente dargestellt, die diese flag gesetzt haben - so erscheint das Dokument nicht in den Ansichten, scheint verworfen zu sein - was dann ein agent des nächtens erledigt...

ata

[forrest g]

hi ata,

die einzige möglichkeit, die mir hier einfällt, ist:
- flag als default gesetzt, d.h. wenn doc intern gespeichert und vom user verworfen nur in der löschansicht und... tschüss
- wenn user über button speichert flag wegnehmen und intern gespeichertes doc nur mit historie usw updaten

meintest du das so?

wenn ja, warum einfach wenns auch schwer geht!
vielen dank

trotzdem noch ne frage:
kann man das verlassen über escape irgendwie verhindern(interessenhalber)?