Response Document

  • Автор темы NeoSimvolist
  • Дата начала
N

NeoSimvolist

Гость
#1
В общем хочу выделить во 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
Но не работает чтото. Почему? :)
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
#3
В кнопке исправить.
Код:
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
Остальное выкидываем.
 
N

NeoSimvolist

Гость
#4
В кнопке исправить.
Код:
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
Остальное выкидываем.
Во view всеравно почемуто все одним списком, хотя сделал по твоей рекомендации! Может там столбцы както настроить нада?

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