Ошибка «неверный универсальный идентификатор» при получении родительского UNID для Lotus Notes

Question

Я написал следующий код для получения родительского UNID документа ответа.Но я получаю ошибку "Неверный универсальный идентификатор".Но когда я создаю ссылку на документ, используя «$ Ref», я могу получить доступ к родительскому документу, используя документную ссылкуЯ хочу получить доступ к родительскому документу и изменить одно из полей в родительском документе.Кто-нибудь может предложить что-нибудь?

Dim session As New NotesSession
Dim db As NotesDatabase
Dim uiwork As New NotesUIWorkspace
Dim uidoc As NotesUIDocument

Dim doc As NotesDocument  
Dim parent As Notesdocument     

Set db = session.CurrentDatabase 
Set uidoc=uiwork.currentdocument
Set doc = uidoc.Document

'Set parent = db.GetDocumentByUNID(doc.ParentDocumentUNID)
Set parent = db.GetDocumentByUNID("doc.$Ref")
'both methods are giving same error

Answer 1

что возвращает doc.isresponse?

использование родительского unid должно быть в порядке. Тем не менее

==> Установить parent = db.GetDocumentByUNID ("doc. $ Ref")

недействительно, должно было быть:

if doc.hasItem("$Ref") then
   Set parent = db.GetDocumentByUNID(doc.~$Ref(0))
end if

или

if doc.hasItem("$Ref") then
   Set parent = db.GetDocumentByUNID(doc.getItemValue("$Ref")(0))
end if

Answer 2

Спасибо, Тим.Я написал код в QuerySave, и он работал нормально.Он выдавал недействительный UNID, потому что я пытался получить его до сохранения документа.