Artikel Nr. Dubletten entfernen

    Hallo LN Designer Forum,


    durch einen mehrfachen Import von Artikel Nummern ist
    es vorgekommen, dass die gleichen Artikel Nummern jetzt
    in der Ansicht doppelt enthalten sind.
    Da ich Scriptmäßig noch nicht so gut bin, benötige ich mal
    euere Unterstützung.
    Ziel soll sein, dass die Artikel Nummern nur einmal in der Ansicht enthalten sind. Also die Dubletten entfernt werden sollten.


    Die Maske enthält folgende Fehler:
    Feld Wert
    Form (TEXT) Schlagwort
    FuerAbteilung (TEXT) TKB
    Schlagwort (TEXT) 123456 (beinhaltet die Artikel Nr.)
    Thema (TEXT) Problem
    Typ (TEXT) 2

    Die Ansicht sieht folgendermaßen aus:
    Spalte Feldname Bemerkung
    1. FuerAbteilung Kategorisiert
    2. Thema Kategorisiert
    3. Typ Kategorisiert
    4. Schlagwort


    Wichtigt: Es sollen nur Dubletten in der Ansicht in Spalte 4 (Schlagwort beinhaltet die doppelten Artikelnummern) entfernt werden.


    Wäre sehr nett, wenn Ihr mir ein entsprechende Beispiel posten könnt. Oder Ansätze die Hilfreich für mich sein könnten.


    Danke & Gruß
    Gottfried

    Hi,


    bau dir eine neue Ansicht, in der die Dokumente nach dem Feld "Schlagwort" sortiert dargestellt werden.
    Dann folgendes Script in einen Agent bauen:


    Dim session As New NotesSession
    Dim viewDocs As NotesView
    Dim noteArtikel As NotesDocument
    Dim noteTemp As NotesDocument
    Dim strTemp As String


    strTemp = ""


    Set viewDocs = session.currentdatabase.getview("wie auch immer die ansicht heisst")
    Set noteArtikel = viewDocs.getfirstdocument
    While Not (noteArtikel Is Nothing)
    &nbsp;&nbsp;If noteArtikel.Schlagwort(0) <> strTemp Then
    &nbsp;&nbsp;&nbsp;&nbsp;strTemp = noteArtikel.Schlagwort(0)
    &nbsp;&nbsp;&nbsp;&nbsp;Set noteArtikel = viewDocs.GetNextDocument(noteArtikel)
    &nbsp;&nbsp;Else
    &nbsp;&nbsp;&nbsp;&nbsp;Set noteTemp = noteArtikel
    &nbsp;&nbsp;&nbsp;&nbsp;Set noteArtikel = viewDocs.GetNextDocument(noteArtikel)
    &nbsp;&nbsp;&nbsp;&nbsp;Call noteTemp.Remove(True)
    &nbsp;&nbsp;End If
    Wend


    Aber sicherheitshalber erst mal in der Kopie testen, denn das script habe ich nicht getestet!!!


    cu