A
alik86
Что-то у меня затупка крайней степени.
Ситуация следующая:
Имеется две формы Form1 и Form2. На Form2 имеется вычисляемое текстовое поле UNID1. При создании документа Doc2 по Form2 я вношу в поле UNID1 UniversalID одного из документов Doc1, созданных по Form1: Call Doc2.ReplaceItemValue("UNID1", Doc1.UniversalID)
На Form2 имеется действие, которое, среди всего прочего, вносит в вычисляемое РТполе LinkToDoc1 ссылку на документ Doc1, UniversalID которого хранится в поле UNID1 (с ричтекстом работаю при закрытом документе):
После всех этих телодвижений всё у меня хорошо, имею нормальный документ по Form2, в котором, есть поле с ссылкой на Doc1, при нажатии на которую я, как и полагается, попадаю в документ Doc1.
А вот теперь происходит нечто, что вызывает упомянутую ранее затупку. На Form2 имеется кнопка Button с кодом:
Открываю я документ, созданный по Form2 в режиме чтения, жму эту Button. Вроде бы ничто не предвещало беды, но теперь, при открытии этого документа я имею не былую жёлтенькую ссылку на Doc1, а непонятно откуда взявшуюся синюю ссылку на текущую БД.
Что за дела?
Ситуация следующая:
Имеется две формы Form1 и Form2. На Form2 имеется вычисляемое текстовое поле UNID1. При создании документа Doc2 по Form2 я вношу в поле UNID1 UniversalID одного из документов Doc1, созданных по Form1: Call Doc2.ReplaceItemValue("UNID1", Doc1.UniversalID)
На Form2 имеется действие, которое, среди всего прочего, вносит в вычисляемое РТполе LinkToDoc1 ссылку на документ Doc1, UniversalID которого хранится в поле UNID1 (с ричтекстом работаю при закрытом документе):
Код:
Set Doc1 = Db.GetDocumentByUNID(Doc2.UNID1(0))
Set RTitem = New NotesRichTextItem(Doc1, "LinkToDoc1")
Call Rtitem.AppendText ("Ссылка на Doc1 => ")
Call Rtitem.AppendDocLink(Doc1, "Шчолкай смела! " )
Call Doc.Save( True, True )
А вот теперь происходит нечто, что вызывает упомянутую ранее затупку. На Form2 имеется кнопка Button с кодом:
Код:
Sub Click(Source As Button)
Dim Wsp As New NotesUIWorkspace
Dim DocUI As NotesUIDocument
Dim Doc As NotesDocument
Set DocUI = Wsp.CurrentDocument
Set Doc = DocUI.Document
DocUI.EditMode = True
Call Doc.save( True, True )
DocUI.EditMode = False
Call DocUI.Close
End Sub
Что за дела?