Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Mandalor am 08.06.05 - 09:34:22

Titel: Dokument nicht löschen, sondern status verändern
Beitrag von: Mandalor am 08.06.05 - 09:34:22

Hallo, ich habe folgenden Problem: Ich habe eine Datenbank, in der bestimmte dokumente beim drücken der entf taste nicht gelöscht werden sollen, sondern einen anderen Status bekommen sollen.

ich habe mir dazu im Datenbankscript folgenden Code überlegt:

^{Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
   Dim session As New notessession
   Dim ws As New notesuiworkspace
   
   Dim db As notesdatabase
   Set db = session.currentdatabase
   Dim coll As notesdocumentcollection
   Set coll = db.UnprocessedDocuments
   Dim doc As notesdocument
   Dim doc2 As notesdocument
   Set doc2 = coll.getfirstdocument
   Do Until doc2 Is Nothing
      Set doc = doc2 ' weil ich sonst nach dem löschen kein doc mehr habe
      Set doc2 = coll.getnextdocument(doc)
      If doc.form(0)<>"Muser" Then
         doc.Remove(True)
      Else
         If doc.in_Status(0)="active" Then ' das ist der Übeltäter
            doc.in_Status = "inactive"
            Call doc.save(True,True)
         Else
            doc.Remove(True)
         End If
      End If
   Loop
   Call ws.viewrefresh
   Continue = False
End Sub}

Die coll bleibt aber lehr (wenn ich dies über einen Butten starte funktioniert alles!)

Titel: Re: Dokument nicht löschen, sondern status verändern
Beitrag von: Semeaphoros am 08.06.05 - 09:36:56

Man lese in der Hilfe nach und stelle fest, dass man im QueryDocumentDelete nicht auf die UnprocessedDocuments zugreifen muss, sondern auf Documents

Titel: Re: Dokument nicht löschen, sondern status verändern
Beitrag von: Mandalor am 08.06.05 - 09:38:36

Oh Oh, wer lesen kann ist klar im Vorteil :-[

DANKE