Response Document

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

  1. NeoSimvolist

    NeoSimvolist Гость

    В общем хочу выделить во 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 А че я?.. О.о

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

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

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

    Регистрация:
    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 Гость

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

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

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