Response Document

Тема в разделе "Lotus - Программирование", создана пользователем NeoSimvolist, 30 июл 2010.

  1. NeoSimvolist

    NeoSimvolist Гость

    Репутация:
    0
    В общем хочу выделить во view документ и нажать на кнопочку.
    При нажатии на кнопочку чтобы создавался новый doc, а при сохранении этого дока, чтобы
    он стал ответным к тому на котором был фокус при нажати на кнопочку.

    В кнопку написал вот это:

    Код (Text):
    Dim ws As New NotesUIWorkspace
    Dim curDB As NotesDatabase
    Dim curDoc As NotesDocument
    Dim selDoc As NotesDocument

    Set curDB = ws.CurrentDatabase.Database
    Set curDoc = curDB.CreateDocument
    Set selDoc = curDB.UnprocessedDocuments.GetFirstDocument
    curDoc.Form = "Dep"
    If Not (selDoc Is Nothing) Then
    curDoc.Refrence = Cstr(selDoc.UniversalID)
    End If
    Call ws.EditDocument(True, curDoc)

    В доке на QuerySave вот это:
    Dim ws As New NotesUIWorkspace
    Dim curDb As NotesDatabase 
    Dim selDoc As NotesDocument
    Dim refDoc As NotesDocument
    Dim curDoc As NotesDocument
    Set curDoc = source.Document
    Set curDB = ws.CurrentDatabase.Database

    Set refDoc = curDB.GetDocumentByUNID(Cstr(curDoc.Refrence(0)))
    If Not (refDoc Is Nothing) Then
    Call curDoc.ReplaceItemValue("$RefOptions", "1")
    Call curDoc.MakeResponse(refDoc)   
    'Messagebox "",, ""
    End If
    Но не работает чтото. Почему? :)
     
  2. Akupaka

    Akupaka А че я?.. О.о

    Репутация:
    0
    Регистрация:
    4 окт 2007
    Сообщения:
    3.360
    Симпатии:
    2
    o_O

    Form type: response
    и даже кодить не надо
     
  3. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    В кнопке исправить.
    Код (Text):
    If Not (selDoc Is Nothing) Then
    Set curDoc = curDB.CreateDocument
    curDoc.Form = "Dep"
    Call curDoc.ReplaceItemValue("$RefOptions", "1")
    Call curDoc.MakeResponse(selDoc)
    Call ws.EditDocument(True, curDoc)
    End If
    Остальное выкидываем.
     
  4. NeoSimvolist

    NeoSimvolist Гость

    Репутация:
    0
    Во view всеравно почемуто все одним списком, хотя сделал по твоей рекомендации! Может там столбцы както настроить нада?

    Добавлено: ОЙ сам допернУл)) во view ставим галку на Show response documents in a hierarchy№
    Тема закрыта!
     
Загрузка...

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