1

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

При отборе документов, в коллекцию попали окурки, далее по коду они вызывали ошибку, т.к. документ есть, он он пустой, нету даже 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 

Поделиться