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

Тема в разделе "Lotus - Программирование", создана пользователем Ruska132, 23 окт 2015.

  1. Ruska132

    Ruska132 Well-Known Member

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

    Ruska132 Well-Known Member

    Регистрация:
    21 янв 2015
    Сообщения:
    67
    Симпатии:
    0

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

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

    Xalet Well-Known Member

    Регистрация:
    8 авг 2008
    Сообщения:
    410
    Симпатии:
    0
    И как по вашему это должно вам помочь?
     
  4. Ruska132

    Ruska132 Well-Known Member

    Регистрация:
    21 янв 2015
    Сообщения:
    67
    Симпатии:
    0
    Вот мне и нужна ваша помощь.
    мой код мне не помогает.
     
  5. Xalet

    Xalet Well-Known Member

    Регистрация:
    8 авг 2008
    Сообщения:
    410
    Симпатии:
    0
    Пример из хелпа:

    Код (Text):

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

    Ruska132 Well-Known Member

    Регистрация:
    21 янв 2015
    Сообщения:
    67
    Симпатии:
    0
    форма Ф1 закрывается создается Ф2. но связь не передается (поля)
    а по поводу скрипта, подскажите именно как.
     
  7. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.082
    Симпатии:
    300
    в полях Ф2 прописать имена полей Ф1 и поставить галку в форме - наследовать поля
     
  8. Xalet

    Xalet Well-Known Member

    Регистрация:
    8 авг 2008
    Сообщения:
    410
    Симпатии:
    0
    при условии, что названия совпадают =)
     
  9. Ruska132

    Ruska132 Well-Known Member

    Регистрация:
    21 янв 2015
    Сообщения:
    67
    Симпатии:
    0
    Поля совпадают данные наследуются, но в Ф2 не отображаются. т.к. Ф1 закрывается.
     
  10. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.082
    Симпатии:
    300
    когда?
     
  11. Ruska132

    Ruska132 Well-Known Member

    Регистрация:
    21 янв 2015
    Сообщения:
    67
    Симпатии:
    0
    В тот момент когда надо создать ответную Ф2.
    @If(@Command([FileSave]); ""; @Return(""));
    @Command( [ViewRefreshFields] ) ;
    @PostedCommand([Compose]; ""; "FBilet")
     
  12. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.082
    Симпатии:
    300
    здесь нет закрытия
     
  13. Ruska132

    Ruska132 Well-Known Member

    Регистрация:
    21 янв 2015
    Сообщения:
    67
    Симпатии:
    0

    сори:
    @Command([FileSave]);
    @Command([CloseWindow]);
    @Command([Compose]; ""; "FBilet")
     
  14. Xalet

    Xalet Well-Known Member

    Регистрация:
    8 авг 2008
    Сообщения:
    410
    Симпатии:
    0
    Код (LotusScript):
    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
     
  15. Ruska132

    Ruska132 Well-Known Member

    Регистрация:
    21 янв 2015
    Сообщения:
    67
    Симпатии:
    0
    Данные поля передаются спасибо.
    Но вот связь не сохраняется. т.е. Unid - $ref
     
  16. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.082
    Симпатии:
    300
    @If(@Command([FileSave]); @PostedCommand([CloseWindow]); @Return(""));
    @Command( [ViewRefreshFields] ) ;
    @PostedCommand([Compose]; ""; "FBilet")
    [DOUBLEPOST=1445598806,1445598688][/DOUBLEPOST]
    doc.MakeResponse
     
  17. Ruska132

    Ruska132 Well-Known Member

    Регистрация:
    21 янв 2015
    Сообщения:
    67
    Симпатии:
    0
    нет тут что то не понятно (((
    а можно по предыдущему ответу, который писал Xalet
     
  18. Xalet

    Xalet Well-Known Member

    Регистрация:
    8 авг 2008
    Сообщения:
    410
    Симпатии:
    0
    кстати, а где писалось, что это надо сделать? =)

    Не уверен, но вроде достаточно сделать форме "fBilet" тип Response.
     
  19. Ruska132

    Ruska132 Well-Known Member

    Регистрация:
    21 янв 2015
    Сообщения:
    67
    Симпатии:
    0
    Вроде раннее писал (кнопке создается ответная форма (Ф2).)
     
  20. garrick

    garrick Lotus team
    Lotus team

    Регистрация:
    26 окт 2009
    Сообщения:
    773
    Симпатии:
    52
Загрузка...

Поделиться этой страницей