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

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

  1. LuMee

    LuMee Well-Known Member

    Репутация:
    0
    Регистрация:
    2 май 2006
    Сообщения:
    477
    Симпатии:
    0
    Стоит задача: по action'у на форме создать новый документ (ответ на текущий), причем с помощью диалога. Попытался:
    Код:
    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 Гость

    Репутация:
    0
    .....
    doc.Form = "ChildForm"
    Call doc.Save (True, False)
    .....
     
  3. LuMee

    LuMee Well-Known Member

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

    oshmianski Гость

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

    LuMee Well-Known Member

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

    Aleksey Ivahin Гость

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

    вот код для кнопки
    Код:
    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 Гость

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

    Gor Well-Known Member

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

    Aleksey Ivahin Гость

    Репутация:
    0
    такой вариант не прокатил, зато помогло
    Call uid.Refresh
     
  10. IRKIS

    IRKIS Гость

    Репутация:
    0

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

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

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

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

    IRKIS Гость

    Репутация:
    0
    пробовала не обновляет ! ... только после F9 ..

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

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

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

    IRKIS Гость

    Репутация:
    0
    ToxaRat
    Спасибо !))) ничего не сохранилось )))))) .... хотя очень странно , местами просто 2 строчки поменяла )
     
Загрузка...
Похожие Темы - Создать документ помощью
  1. z3RoTooL
    Ответов:
    4
    Просмотров:
    790
  2. Amfion
    Ответов:
    6
    Просмотров:
    1.019
  3. Kay
    Ответов:
    3
    Просмотров:
    1.868
  4. phantom76
    Ответов:
    4
    Просмотров:
    1.792
  5. Mikle77
    Ответов:
    4
    Просмотров:
    5.208

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