Autor Thema: Dokumente per Lotusscript löschen?  (Gelesen 3599 mal)

Offline schroederk

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.924
  • Geschlecht: Männlich
  • Ich liebe dieses Forum!
Dokumente per Lotusscript löschen?
« am: 18.05.15 - 11:28:38 »
Hallo,

ich möchte gerne alle Dokumente löschen, die in einer View angezeigt werden und ein bestimmtes Item enthalten.
Wie kann ich das am einfachsten machen?

Das folgende Script funktioniert ja leider natürlich nicht:
Zitat
   Set view = db.GetView("meineView")
   Set doc = view.GetFirstDocument
   While Not (doc Is Nothing)
      If doc.Hasitem("MarkedToBeDeleted") Then
         doc.Removepermanently(True)
      End If
      Set doc = view.GetNextDocument(doc)
   Wend   

Muss ich mir erst eine Liste bauen und mir die UNID und am Ende nochmal durch die Liste loopen, um die Dokumente zu löschen?

Ich wäre ja gerne weniger egoistisch, aber was hab ich davon?

Mitch

  • Gast
Re: Dokumente per Lotusscript löschen?
« Antwort #1 am: 18.05.15 - 11:32:28 »
So zum Beispiel:

Code
   Set view = db.GetView("meineView")
   Set doc = view.GetFirstDocument
   While Not (doc Is Nothing)
      If doc.Hasitem("MarkedToBeDeleted") Then
         Set docToDelete = doc
      End If
      Set doc = view.GetNextDocument(doc)
      If Not docToDelete Is Nothing Then
         Call docToDelete.RemovePermanently(True)
      End If
   Wend

Gruß,

Mitch

Offline schroederk

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.924
  • Geschlecht: Männlich
  • Ich liebe dieses Forum!
Re: Dokumente per Lotusscript löschen?
« Antwort #2 am: 18.05.15 - 12:02:39 »
Stimmt. Da hätte ich auch selber drauf kommen können.
Vielen Dank.
Ich wäre ja gerne weniger egoistisch, aber was hab ich davon?

Online Tode

  • Moderatoren
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 6.881
  • Geschlecht: Männlich
  • Geht nicht, gibt's (fast) nicht... *g*
Re: Dokumente per Lotusscript löschen?
« Antwort #3 am: 18.05.15 - 13:05:58 »
oder "andersrum":
Code
 Set doc = view.GetFirstDocument
   While Not (doc Is Nothing)
      Set docNext = view.GetNextDocument(doc)
      If doc.Hasitem("MarkedToBeDeleted") Then
          Call doc.RemovePermanently(True)
      End If
      Set doc = docNext
   Wend
Gruss
Torsten (Tode)

P.S.: Da mein Nickname immer mal wieder für Verwirrung sorgt: Tode hat NICHTS mit Tod zu tun. So klingt es einfach, wenn ein 2- Jähriger versucht "Torsten" zu sagen... das klingt dann so: "Tooode" (langes O, das r, s und n werden verschluckt, das t wird zum badischen d)

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz