Getdocumentbyunid

morpheus

скриптописец
07.08.2006
3 915
1
#1
Очень часто в скрипте необходимо получиться NotesDocument зная его UNID . И для этого у класса NotesDataBase есть ф-ция Getdocumentbyunid. Вот только заковырка в том что частень эта ф-ция возвращает ошибку ( недоступен по разным причинам )
Предлагаю использовать "обёртку" для этой ф-ции дополнив её обработчиком ошибок и некоторыми проверками

Код:
Function GetDocByUNIDA(db As NotesDatabase, sunid As String) As NotesDocument
On Error Goto err_GetDocByUNIDA
Set GetDocByUNIDA = db.GetDocumentByUNID(sunid)
If Len(GetDocByUNIDA.UniversalID)=0 Then Set GetDocByUNIDA = Nothing ' Проверка что УНИД не пусто
If Not GetDocByUNIDA.IsValid Then Set GetDocByUNIDA = Nothing ' Проверка что валидный
If IsEmpty(GetDocByUNIDA.Items) Then Set GetDocByUNIDA = Nothing ' Проверка что есть итемы
Exit Function

err_GetDocByUNIDA:
Err = 0
Exit Function
End Function
и если документ не доступен или неполноценный то функция тихонько вернёт нам Nothing, и не станет райзить ошибки

Обсуждение
 

hosm

* so what *
18.05.2009
2 442
9
#2
из той же темы небольшое замечание насчет проверки на итемы (справедливо и для IsEmpty):
IsArray(doc.Items) рекомендую заменить на обращение к любому полю с обработкой эксепшена. Чуть быстрее будет.
doc.Items возвращает массив всех полей, потому LS нужно всю доку просканировать.