Как взять Unid самого главного родителя?

[oxystile]

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

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

 

[Medevic]

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

 

[Omh]

рекурсия

 

[morpheus]

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

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

 

[oxystile]

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

 

[Omh]

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

 

[morpheus]

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

 

[oxystile]

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

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

 

[morpheus]

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

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