E
Erlan
Здравствуйте!
Нужно удалить часть документов.
Есть два представления(view), мне нужно пробежаться по первому представлению и если документа нет во втором представлении, то нужно его удалить.
часть скрипта ниже
ПРОБЛЕМА в том что здесь Set doc = view_notisp.GetNextDocument( doc ) ошибка ERROR 4151. User-defined error
если убрать внутренний цикл то внешний цикл срабатывает. Выходит проблема в том что внутри While если вставляю еще один While то первый цикл падает в ошибку
Как решить эту проблему?
Заранее благодарен
Нужно удалить часть документов.
Есть два представления(view), мне нужно пробежаться по первому представлению и если документа нет во втором представлении, то нужно его удалить.
часть скрипта ниже
Код:
While Not ( doc Is Nothing )
If(doc.Hasitem("DocID"))Then
docForm=doc.Form(0)
docDocId=doc.DocID(0)
mustDel = True
Set doc_isp = view_isp.GetFirstDocument
While Not(doc_isp Is Nothing)
If(doc_isp.Hasitem("DocID"))Then
doc_ispForm=doc_isp.Form(0)
doc_ispDocId=doc_isp.DocID(0)
If(doc_ispForm=docForm And doc_ispDocId=docDocId)Then
mustDel = False
End If
End If
Set doc_isp = view_isp.GetNextDocument( doc_isp )
Wend
If (mustDel)Then
'delete doc
ReDim Preserve DeleteDocArray(countOfDeletedDoc)
DeleteDocArray(countOfDeletedDoc)=doc.DocId(0)
countOfDeletedDoc=countOfDeletedDoc+1
End If
End If
Set doc = view_notisp.GetNextDocument( doc )
Wend
если убрать внутренний цикл то внешний цикл срабатывает. Выходит проблема в том что внутри While если вставляю еще один While то первый цикл падает в ошибку
Как решить эту проблему?
Заранее благодарен