Domino 9 und frühere Versionen > ND6: Entwicklung

Bestimmte Dokumente per Agent löschen

<< < (2/6) > >>

Driri:
Hm, jetzt bin ich total verwirrt, nachdem ich Axels Antwort gelesen habe  ;D

Axel:

--- Zitat von: Driri am 30.06.08 - 11:33:25 ---Hm, jetzt bin ich total verwirrt, nachdem ich Axels Antwort gelesen habe  ;D

--- Ende Zitat ---

Warum? 

Axel

Driri:
Weil ich gerade gedacht hatte, ich hab jetzt das eigentliche Problem verstanden. Und dann schreibst Du quasi genau die gleiche Antwort, die ich vorher auch da stehen hatte.

Jetzt weiß ich nicht mehr, was genau das Problem ist  ;)

Axel:

--- Zitat von: Wiesel am 30.06.08 - 08:51:13 ---In meinem Agent habe ich nun das Problem, dass ich nicht weiß, wie ich dort bestimme, dass in der ArchivDB nur diejenigen Doks das Merkmla bekommen, die ich in der EntwurfsDB löschen konnte?!

--- Ende Zitat ---

Ich denke das ist das Problem. Dafür hat deine Antwort auch gepasst.

Wenn's das nicht ist, dann sollte Wiesel (ein richtiger Vorname wäre schön) das Problem nochmal genauer erklären.

Axel

Wiesel:
Eigentlich habt Ihr das schon richtig verstanden. Die Dokumente in Entwurf und Archiv, die dieselbe Unique haben sollen angefasst werden. In der Entwurf gelöscht und im Archiv Merkmal setzen.

Ich habe meinen Script etwas umgestellt:

Sub Initialize
   Dim S As New NotesSession
   Dim DB As NotesDatabase
   Dim Doc As NotesDocument
   Dim View As NotesView
   Dim strEntwurfDB As String
   Dim strEntwurfPfad As String
   Dim strUnique As String
   
   Set DB = S.CurrentDatabase
   Set Doc = DB.GetProfileDocument("(DBProfil)")
   'Profil Dokument auslesen
   strEntwurfDB = Doc.dbServer(0)
   strEntwurfPfad = Doc.dbPfad(0)
   
   Dim VEntwuerfe As NotesDatabase
   Dim DocE As NotesDocument
   Dim ViewE As NotesView
   Set VEntwuerfe = S.GetDatabase(strEntwurfDB,strEntwurfPfad)
   Set ViewE = VEntwuerfe.GetView("(LoeschungEntwuerfeE)")
   
   Set View = DB.GetView("(LoeschungEntwuerfe)")
   Set Doc = View.GetFirstDocument
   
   'Dokumente fischen   
   Do Until Doc Is Nothing
      strUnique = Doc.Unique(0)
      'Lösch jetzt alle dazugehörigen Dokumente und Antworten in der Datenbank VEntwuerfe
      Set DocE = ViewE.GetDocumentByKey(strUnique)
      Do While Not (DocE Is Nothing)
         If DocE.Unique(0) = strUnique Then
            Call DocE.Remove(True)
            Doc.txtAktion = "gelöscht"
            Call doc.Save(True, False)
         End If
         Set DocE = ViewE.GetNextDocument(DocE)
      Loop      
      
      
      Set Doc = View.GetNextDocument(Doc)
   Loop
   
   Call view.Refresh
   
End Sub

Aber an der Stelle
Set DocE = ViewE.GetNextDocument(DocE)
bekomme ich diese Fehlermeldung:
Function requires a valid ADT argument

Zum Teil ist was umgesetzt. Aber irgendwie krieg ich immer ein Problem, wenn das nächste Dok angesprungen werden soll, oder so. ???


P.S.: Ich mag Wiesel ;o)

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete