1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,192
  • Репутация : 0

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

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

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

Поделиться