Помогите новичку. Копирование документа.

MMN

Well-known member
11.12.2008
97
0
#1
копирую документ

Код:
	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
после копирования он замечательно открывается, но не предлагает сохранить при закрытии, как заставить его это делать ??
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#2
Заполнить поля после открытия:
Код:
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")
 

MMN

Well-known member
11.12.2008
97
0
#3
кстати если я пытаюсь менять поля после открытия, то они не меняются, где я допускаю ошибку ??
 

MMN

Well-known member
11.12.2008
97
0
#5
нет, обычные

так меняется
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
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#6
Код:
Call newDoc.ReplaceItemValue("Status", "1")
В приведенном мною выше примере иначе написано.
 

MMN

Well-known member
11.12.2008
97
0
#7
пардон, не разглядел newUIDoc
все получилось спасибо