Bestimmte Dokumente per Agent löschen

[Driri]

Genau das. Doc wurde zwei Zeilen vorher gelöscht, weil es in der Collection enthalten ist.

[Glombi]

Müsste es nicht statt
Set Col = View.GetAllDocumentsByKey(strUnique)
wie folgt heissen:

Set Col = ViewE.GetAllDocumentsByKey(strUnique)


Die Dokumente sollen doch in der DB VEntwuerfe gelöscht werden, oder?

Andreas

[Wiesel]

Ok, soweit klappt es endlich, Dok wird gelöscht und Merkmal wird gesetzt. Danke hierfür!

Jetzt bekomme ich nur eine Fehlermeldung, wenn quasi meine Ansicht zu Ende ist.

Dann kommt:
Eintrag im Index nicht gefunden


Hier nochmal mein aktueller Script:

                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
   
   While Not (doc Is Nothing)
      strUnique = Doc.Unique(0)
      
      Set Col = ViewE.GetAllDocumentsByKey(strUnique)
      
      If Not Col Is Nothing Then
         If Col.Count <> 0 Then
            Call Col.RemoveAll(True)
            Call Doc.ReplaceItemValue("txtAktion","gelöscht")
            Call Doc.Save(True, True)
         End If
         
      End If
      Set Doc= View.GetNextDocument(Doc)
   Wend
   Call view.Refresh


Und nach dem letzten Dokument steigt Notes in der Zeile
Set Doc= View.GetNextDocument(Doc)
aus.

?

[Axel]

Kann es sein, dass die Dokumente, wenn du txtAktion setzt, aus der Ansicht rausfliegen?


Axel

[Wiesel]

Ja, tun sie.

[tks]

Dann mal die View-Property "AutoUpdate" anschauen.

[Axel]

Dann kann das so nicht gehen.

Du musst dir auch diese Dokumente zuerst in eine Collection packen und dann abarbeiten.


Axel

[Glombi]

Üblicherweise macht man das so:

Dim VEntwuerfe As NotesDatabase
   Dim DocE As NotesDocument
   Dim ViewE As NotesView

dim nextdoc as NotesDocument

   Set VEntwuerfe = S.GetDatabase(strEntwurfDB,strEntwurfPfad)
   Set ViewE = VEntwuerfe.GetView("(LoeschungEntwuerfeE)")
   
   Set View = DB.GetView("(LoeschungEntwuerfe)")
   Set Doc= View.GetFirstDocument
   
   While Not (doc Is Nothing)
      Set nextdoc = View.GetNextDocument(Doc)
      strUnique = Doc.Unique(0)
     
      Set Col = ViewE.GetAllDocumentsByKey(strUnique)
     
      If Not Col Is Nothing Then
         If Col.Count <> 0 Then
            Call Col.RemoveAll(True)
            Call Doc.ReplaceItemValue("txtAktion","gelöscht")
            Call Doc.Save(True, True)
         End If
         
      End If
      Set Doc= nextdoc
   Wend
   Call view.Refresh


Andreas

[Wiesel]

Ich hab jetzt auch die andere Ansicht in eine Collection gepackt. Das war´s! Jetzt funzt es einwandfrei.


Ich danke, danke, danke Euch für Eure tolle Hilfe.

Grüße,
Wiesel
)