Создать документ с помощью Dialogbox

Тема в разделе "Lotus - Программирование", создана пользователем LuMee, 7 авг 2006.

  1. LuMee

    LuMee Well-Known Member

    Регистрация:
    2 май 2006
    Сообщения:
    477
    Симпатии:
    0
    Стоит задача: по action'у на форме создать новый документ (ответ на текущий), причем с помощью диалога. Попытался:
    Код (Text):
    Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim doc As NotesDocument

    Set db = ws.CurrentDatabase.Database
    Set doc = New NotesDocument(db)

    Call ws.DialogBox("ChildForm", False, False, False, False, False, False, "Title", doc, False, False)
    Call doc.Save (True, False)
    End Sub
    Диалог с новым документом исправно открывается, однако после его закрытия (нажимаю ОК) документ остается "пустым", т.е. ничего из введенного в него не сохраняется. Подскажите, как это сделать правильно?
     
  2. oshmianski

    oshmianski Гость

    .....
    doc.Form = "ChildForm"
    Call doc.Save (True, False)
    .....
     
  3. LuMee

    LuMee Well-Known Member

    Регистрация:
    2 май 2006
    Сообщения:
    477
    Симпатии:
    0
    Спасибо, и впрямь сработало :)
     
  4. oshmianski

    oshmianski Гость

    оно у тя и раньше работало. посмотри, должны быть доки без формы.
     
  5. LuMee

    LuMee Well-Known Member

    Регистрация:
    2 май 2006
    Сообщения:
    477
    Симпатии:
    0
    Доки без формы появлялись, но "пустые" - т.е. ничего из введенного пользователем в них не сохранялось.
     
  6. Aleksey Ivahin

    Aleksey Ivahin Гость

    может я что-то недогоняю, но у меня не работает
    В главную форму помещаю View c формулой выборки по ответным документам SELECT (FORM = "OrgF")
    И еще кнопку для добавления ответных документов.

    вот код для кнопки
    Код (Text):
    Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim doc2 As NotesDocument
    Dim uid As notesuidocument

    Set uid = ws.currentdocument
    Set doc2 = uid.document
    Set db = ws.CurrentDatabase.Database
    Set doc = New NotesDocument(db)

    doc.Form = "OrgF"
    Call ws.DialogBox("OrgF", False, False, False, False, False, False, "Новая дислокация", doc, False, False)
    Call doc.MakeResponse(doc2)
    Call doc.Save (True, False)

    End Sub
    Ответные документы создаются, но они не являются ответными и не отображаются во View в принципе.
     
  7. Aleksey Ivahin

    Aleksey Ivahin Гость

    вроде заработало, но View обновляется только по F9 ?!
     
  8. Gor

    Gor Well-Known Member

    Регистрация:
    7 июн 2005
    Сообщения:
    517
    Симпатии:
    2
    После Call doc.Save (True, False) получи вьюху и поставь Refresh
    Set view1 = db.GetView("имя вьюхи")
    Call view1.Refresh
    должно помочь
     
  9. Aleksey Ivahin

    Aleksey Ivahin Гость

    такой вариант не прокатил, зато помогло
    Call uid.Refresh
     
  10. IRKIS

    IRKIS Гость


    если не секрет как посмотреть ??? во вьюехе ALL кроме вновь созданных ничего не отображается :(

    нашла способ обновления вьюшки Call notesUIWorkspace.ViewRebuild :YES:
     
  11. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.047
    Симпатии:
    18
    IRKIS
    ws.viewrefresh
     
  12. IRKIS

    IRKIS Гость

    пробовала не обновляет ! ... только после F9 ..

    а документы которые doc.save без формы у меня их должно быть очень много , но ничего не отображается, или они могли не сохраниться ? :please:
     
  13. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.047
    Симпатии:
    18
    IRKIS
    в свойстве вида выставить - автоматикал
    документы без формы могли НЕ попасть в селект вида, и из-за этого они там не светятся, смотрите лучше на свойство БД - количество документов
     
  14. IRKIS

    IRKIS Гость

    ToxaRat
    Спасибо !))) ничего не сохранилось )))))) .... хотя очень странно , местами просто 2 строчки поменяла )
     
Загрузка...

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