копирую документ

	Dim dat As New NotesDateTime(Now)
Dim newDoc As NotesDocument
Set newDoc=Doc_form.ParentDatabase.Createdocument
Call Doc_form.CopyAllItems(newDoc)
UNID = newDoc.UniversalID
creatorName=CS_Session.UserName

Set telDoc=PhoneDb_GetDocumentByLotusName(creatorName)
If Not telDoc Is Nothing Then CreatorName=PhoneDb_GetRusName(telDoc)

Call newDoc.ReplaceItemValue("CreatorName", CreatorName)
Call newDoc.ReplaceItemValue("UNID", UNID)
Call newDoc.ReplaceItemValue("Status", "1")
Set URV_ws=New NotesUIWorkspace
Set newUIDoc=URV_ws.EditDocument(True, newDoc)

Call newUIDoc.Refresh

после копирования он замечательно открывается, но не предлагает сохранить при закрытии, как заставить его это делать ??

 

Заполнить поля после открытия:

Set newUIDoc=URV_ws.EditDocument(True, newDoc)
Call newUIDoc.Document.ReplaceItemValue("CreatorName", CreatorName)
Call newUIDoc.Document.ReplaceItemValue("UNID", UNID)
Call newUIDoc.Document.ReplaceItemValue("Status", "1")

 

кстати если я пытаюсь менять поля после открытия, то они не меняются, где я допускаю ошибку ??

 

Поля вычисляемые?

 

нет, обычные

так меняется
Call newDoc.ReplaceItemValue("Status", "1")
Set URV_ws=New NotesUIWorkspace
Set newUIDoc=URV_ws.EditDocument(True, newDoc)
Call newUIDoc.Refresh

а так уже нет
Set URV_ws=New NotesUIWorkspace
Set newUIDoc=URV_ws.EditDocument(True, newDoc)
Call newDoc.ReplaceItemValue("Status", "1")
Call newUIDoc.Refresh

 

Call newDoc.ReplaceItemValue("Status", "1")

В приведенном мною выше примере иначе написано.

 

пардон, не разглядел newUIDoc
все получилось спасибо