Доброго времени суток!
Как взять unid самого главного родителя если неизвестно заранее количество ступеней в иерархии?

рекурсия?
спасибо!

 

Не обязательно рекурсия.
Обычным циклом(While..Wend) можно.

 

рекурсия

 

while doc.IsResponse
set doc = db.GetDocumentByUNID( doc.parentDocumentUNID )
wend

это я на скорую руку написал
doc - NOtesDocument
db - NOtesDatabase

 

еще вот вопрос назрел, если так
while doc.IsResponse
set doc = db.GetDocumentByUNID( doc.parentDocumentUNID )
wend
то как проверить случаи несушествования документов? ссылка на родителя есть, а самого родителя нету?
спасибо!

 

Function GetDocByUNID(db As NotesDatabase, doc As NotesDocument, UNID As String) As Boolean
On Error Goto Errh

GetDocByUNID = False

If db Is Nothing Then Exit Function
If Trim$(UNID) = "" Then Exit Function

On Error Resume Next
Set doc = db.GetDocumentByUNID(UNID)
On Error Goto Errh

If Not doc Is Nothing Then GetDocByUNID = True

Exit Function
Errh:
Call ErrHandler
Exit Function
End Function

 

oxystile
https://codeby.net/threads/22588.html

Do While doc.IsResponse  
set doc = GetDocByUNIDA(db, doc.parentDocumentUNID )
if doc is nothing then exit do
if Not doc.IsVAlid then exit do
Loop

 

спасибо!!!!!

а в цикле Do While doc.IsResponse ...
наверно, проверка на валидность уже не нужна, т.к.
она уже присутствует GetDocByUNIDA:
If Not GetDocByUNIDA.IsValid Then Set GetDocByUNIDA = Nothing

 

наверно, проверка на валидность уже не нужна, т.к.

у принципе да... если невалидный, то вернёт ничто...