Функция LotusScript не сохраняет поля формы

Question

Может ли кто-нибудь определить очевидную причину того, почему моя функция сохранения не сохраняет поля в моей форме? Это сохраняет документ, но поля открываются, когда я его открываю. Следующий код - то, что я использую:

 Public Sub co_loopNamesAndSaveDocs()

'Dim variables  
 Dim s As New NotesSession
 Dim thisDatabase As NotesDatabase
 Set thisDatabase = s.CurrentDatabase
 Dim ws As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Dim currentDoc As NotesDocument 
Set currentDoc = uidoc.Document
Dim newDoc As NotesDocument
Dim PersonNameField As NotesItem
Set PersonNameField = currentDoc.GetFirstItem("PersonName")

'Loop through values in PersonNameField and create a new document for each value found

Forall pName In PersonNameField.Values

Set newDoc = New NotesDocument (thisDatabase)
newDoc.Form="newLocationForm"
newDoc.StartDate = currentDoc.StartDate(0)
newDoc.EndDate = currentDoc.EndDate(0)
newDoc.Duration = currentDoc.Duration(0)
newDoc.StartTime = currentDoc.StartTime(0)
newDoc.EndTime = currentDoc.EndTime(0)
newDoc.Comments = currentDoc.Comments(0)
newDoc.Status = currentDoc.Status(0)
newDoc.LocationCode = currentDoc.LocationCode(0)
newDoc.PersonName = pName
Call newDoc.Save (True, False, False)

End Forall

End Sub

Заранее спасибо.

Answer 1

Поскольку я не вижу явной ошибки в кодировании, я бы сказал, что поля в newDoc пусты, потому что поля в currentDoc пустые.А поскольку для currentDoc было задано значение uidoc.Document, это, вероятно, означает, что у вас есть проблема синхронизации между интерфейсными и внутренними документами.Т.е. значения существуют в вашем uidoc, но еще не были сохранены в серверной части до вызова этого кода.Если я прав, попробуйте вызвать uidoc.save () перед назначением currentDoc.Если вы не хотите сохранять в серверную часть, тогда вместо использования серверной части в качестве источника данных следует использовать uidoc.fieldGetText ("PersonName") и анализировать значения.