Помогите с созданием формы.

[Ruska132]

Sub Click(Source As Button)
Dim wsp As New NotesUIWorkspace
Dim currentUiDoc As NotesUIDocument
Dim newUiDoc As NotesUIDocument
Set currentUiDoc = wsp.CurrentDocument
Set newUiDoc = wsp.ComposeDocument("","","FBilet")
 
Call newUiDoc.FieldSetText("НазваниеПоля", currentUiDoc.FieldGetText("НазваниеПоля"))
 
Call currentUiDoc.Save
Call currentUiDoc.Close(True)
End Sub

Вроде работает. но вот только если форма Ф1 открыта просто на чтение, при отработке скрипта ругается: Document commands is not available/ потому, как я понимаю он не на редактировании. подскажите ПЖ как добавить условие.

 

[lmike]

нет тут что то не понятно (((

там нечего понимать...
а в полях дока кот. респонс @GetDocField(@InheritedDocumentUniqueID;@ThisName)
[DOUBLEPOST=1445609515,1445609286][/DOUBLEPOST]@PostedCommand([CloseWindow]) отработает до Compose но после всех промежуточных @Command