Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: hOtze am 27.11.02 - 12:24:14

Titel: Probleme mit QueryDocumentDelete
Beitrag von: hOtze am 27.11.02 - 12:24:14
HILFE!!!!!!!  ???
Wollte im QueryDocumentDelete Event der DB überprüfen ob das in dem zu löschenden Dokument ein bestimtes Feld gefüllt ist, ist dieses der fall soll der User eine MagBox an den Kopf geknall kommen, indem er das löschen bestätigen oder verweigern kann (Continue=flase bzw true)

So weit so gut!

Prob is nun das das Script immer erst nach zweimaligen betätigen der entfenen Taste auf dem doc anläuft?!?!

Woran kann das liegen?
Titel: Re:Probleme mit QueryDocumentDelete
Beitrag von: Don Pasquale am 27.11.02 - 13:24:31
Sollte er eigentlich nicht tun.
Hast Du mal den Debugger angeschmissen ?

Ciao
Don Pasquale
Titel: Re:Probleme mit QueryDocumentDelete
Beitrag von: hOtze am 27.11.02 - 13:28:26
Jiep Debuger hab ich schon laufen lassen..... aber am Script kanns doch auch nit liegen, da es je funktioniert aber komischer weiße erst nach zweimaligen betätigen der entf taste!  ???

Eigentlich dürfter er ja bei Continue=False schon gar keinen "Mülleimer" setzten oder? Macht er aber!

Aber hier poste trotzdem mal mein Script ..... vielleicht sehe ich ja nur denn wald vor lauter Bäumen nit!  :D

----------------------------------------------------------
Sub Querydocumentundelete(Source As Notesuidatabase, Continue As Variant)
   Dim s As New NotesSession
   Dim col As NotesDocumentCollection
   Dim result As Variant
   Dim sourcedoc As NotesDocument
   
   Set col = Source.Documents
   
   If col.count > 0  Then
      Set sourcedoc = col.getFirstDocument
      
      Do Until sourcedoc Is Nothing
         If Not Isempty(sourcedoc.useddocs) Then
            result = Msgbox("Das ausgewählte Newsdokument: " + sourcedoc.ntitel(0) +" wurde mit einem weitern Dokument verknüpft!"+Chr(13)+"Löschen des Dokumentes kann zu fehlern in der Darstellung der HP führen!"+Chr(13)+Chr(13)+" Möchten sie das Dokument trotzdem löschen?",4+64,MSGTITEL )
            If result = 6 Then
               Continue = True
            Else
               Continue = False
            End If   
         End If
         Set sourcedoc = col.getnextdocument (sourcedoc)
      Loop
   End If
End Sub
Titel: Re:Probleme mit QueryDocumentDelete
Beitrag von: Don Pasquale am 27.11.02 - 13:34:41
Sub Querydocumentundelete(Source As Notesuidatabase, Continue As Variant)


Fällt Dir was auf ? UNdelete

Ciao
Don Pasquale
Titel: Re:Probleme mit QueryDocumentDelete
Beitrag von: hOtze am 27.11.02 - 13:37:11
 :-\ Wie schmeckt der Lutscher!
Wer lessen kann ist klar im Vorteil!  ;)

Danke!
Titel: Re:Probleme mit QueryDocumentDelete
Beitrag von: Don Pasquale am 27.11.02 - 13:39:17
Ist mir auch schon oft passiert.

Gruß

Don Pasquale