1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Response Document

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

  1. NeoSimvolist

    NeoSimvolist Гость

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

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

    Код:
    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
    В кнопке исправить.
    Код:
    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№
    Тема закрыта!
     
Загрузка...

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