Код события PostOpen несколько изменил:
Sub Postopen(Source As Notesuidocument)
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim view As NotesView
Dim parent As NotesDocument
'если открывший документ, является закрепленным за документом исполнителем
If session.UserName=source.Document.PerfNName(0) Then
'если выполнение работ еще не началось
If Not Isdate(source.FieldGetText("MiniBeginTime")) Then
'если текущий режим - режим просмотра, изменить на режим редактирования
If source.EditMode=False Then source.EditMode=True
'запись в заявку-потомок текущего времени, как время начала работ
Call source.FieldSetText("MiniBeginTime",Cstr(Now))
'сохранить заявку-потомок
source.Save
'перевести в режим просмотра
source.EditMode=False
'получение родителя-документа
pUNID=source.Document.ParentDocumentUNID
Set parent=source.Document.ParentDatabase.GetDocumentByUNID(pUNID)
'если выполнение заявки еще не началось, то записать в заявку-родитель текущее время, как время начала выполнения
If Not Isdate(parent.GetItemValue("StartTime")) Then Call parent.ReplaceItemValue("StartTime",Cdat(source.FieldGetText("MiniBeginTime")))
'сохранить заявку-родитель
Call parent.Save(True,False)
End If
End If
End Sub
Форма потомка в событиях, кроме PostOpen кода не имеет.
Сама идея сохранять документ сразу после открытия(при этом переводя документ в режим редактирования) имхо неправильная.
После необходимых изменении в полях в коде добавил source.EditMode=False.
