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

Ruska132

Well-known member
21.01.2015
66
0
#1
Добрый день.
Подскажите в решении следующей проблемки:
Создается форма (Ф1), заполняются поля, затем ко кнопке создается ответная форма (Ф2).
Необходимо при нажатии кнопки создания Ф2, сохранить Ф1 и закрыть ее. Как при этом нужные поля передать из Ф1 в Ф2 ???
 

Ruska132

Well-known member
21.01.2015
66
0
#2
Добрый день.
Подскажите в решении следующей проблемки:
Создается форма (Ф1), заполняются поля, затем ко кнопке создается ответная форма (Ф2).
Необходимо при нажатии кнопки создания Ф2, сохранить Ф1 и закрыть ее. Как при этом нужные поля передать из Ф1 в Ф2 ???

Использую следующий код:

@If(@Command([FileSave]); ""; @Return(""));
@Command( [ViewRefreshFields] ) ;
@PostedCommand([Compose]; ""; "FBilet")
 

Xalet

Well-known member
08.08.2008
410
0
#5
Пример из хелпа:

Код:
dbname := @DbName;
@Command([FileSave]);
@Command([CloseWindow]);
@Command([Compose]; dbname; "FBilet")
Но если еще и значения полей надо передать, я бы делал не формалами, а скриптом. Смотреть:
NotesUIWorkspace
NotesUIDocument
 

Ruska132

Well-known member
21.01.2015
66
0
#6
Пример из хелпа:

Код:
dbname := @DbName;
@Command([FileSave]);
@Command([CloseWindow]);
@Command([Compose]; dbname; "FBilet")
Но если еще и значения полей надо передать, я бы делал не формалами, а скриптом. Смотреть:
NotesUIWorkspace
NotesUIDocument
форма Ф1 закрывается создается Ф2. но связь не передается (поля)
а по поводу скрипта, подскажите именно как.
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 586
272
#7
в полях Ф2 прописать имена полей Ф1 и поставить галку в форме - наследовать поля
 

Xalet

Well-known member
08.08.2008
410
0
#14
Код:
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
 

Ruska132

Well-known member
21.01.2015
66
0
#15
Код:
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
Данные поля передаются спасибо.
Но вот связь не сохраняется. т.е. Unid - $ref
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 586
272
#16

Ruska132

Well-known member
21.01.2015
66
0
#17
@If(@Command([FileSave]); @PostedCommand([CloseWindow]); @Return(""));
@Command( [ViewRefreshFields] ) ;
@PostedCommand([Compose]; ""; "FBilet")
[DOUBLEPOST=1445598806,1445598688][/DOUBLEPOST]
Для просмотра контента необходимо: Войти или зарегистрироваться
нет тут что то не понятно (((
а можно по предыдущему ответу, который писал Xalet