Удалить документ с коллекции lotus

2017-05-30T05:21:02Z

Этот небольшой лотус-скрипт удаляет по условию документы с существующей коллекции документов.

Set doc =     dc.GetFirstDocument
        Do    While Not (doc Is Nothing)
            If doc.ParentDocumentUNID<>"" Then
                Set parentdoc=db2.GetDocumentByUNID(doc.ParentDocumentUNID)    
                If parentdoc.tiraspol(0) <> region  Then ' по городам 
                Set doctmp = doc
                Set doc = dc.getNextDocument(doctmp)
                Call                dc.DeleteDocument(doctmp)        ' удаление
            Else
            Set doc = dc.getNextDocument(doc)
            End If
                Else
    Set doc = dc.getNextDocument(doc)
        End If
        Loop

Форум компьютерной помощи — Удалить документ с коллекции lotus

Удалить документ с коллекции lotus