1 Тема от admin

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

Тема: Удаление окурков из коллекции документов

При отборе документов, в коллекцию попали окурки, далее по коду они вызывали ошибку, т.к. документ есть, он он пустой, нету даже UNID.

    Set docMU = dc.GetFirstDocument  ' УБИВАЕМ ОКУРКИ
    Do While Not (docMU Is Nothing)
        If docMU.IsValid = False Then
            Print "Not valid."
            Set docTmp = docMU
            Set docMU= dc.GetNextDocument( docTmp )
            Call dc.DeleteDocument(docTmp)    
        Else
            Set docMU= dc.GetNextDocument( docMU )
        End If
    Loop
    Print "осталось документов" dc.count

Поделиться