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

  • Автор темы Ruska132
  • Дата начала
R

Ruska132

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

Ruska132

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


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

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

Xalet

Пример из хелпа:

Код:
dbname := @DbName;
@Command([FileSave]);
@Command([CloseWindow]);
@Command([Compose]; dbname; "FBilet")

Но если еще и значения полей надо передать, я бы делал не формалами, а скриптом. Смотреть:
NotesUIWorkspace
NotesUIDocument
 
R

Ruska132

Пример из хелпа:

Код:
dbname := @DbName;
@Command([FileSave]);
@Command([CloseWindow]);
@Command([Compose]; dbname; "FBilet")

Но если еще и значения полей надо передать, я бы делал не формалами, а скриптом. Смотреть:
NotesUIWorkspace
NotesUIDocument

форма Ф1 закрывается создается Ф2. но связь не передается (поля)
а по поводу скрипта, подскажите именно как.
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 985
611
BIT
471
в полях Ф2 прописать имена полей Ф1 и поставить галку в форме - наследовать поля
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 985
611
BIT
471
здесь нет закрытия
 
X

Xalet

Код:
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
 
R

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

Данные поля передаются спасибо.
Но вот связь не сохраняется. т.е. Unid - $ref
 
R

Ruska132

@If(@Command([FileSave]); @PostedCommand([CloseWindow]); @Return(""));
@Command( [ViewRefreshFields] ) ;
@PostedCommand([Compose]; ""; "FBilet")
[DOUBLEPOST=1445598806,1445598688][/DOUBLEPOST]

нет тут что то не понятно (((
а можно по предыдущему ответу, который писал Xalet
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!