Response Document

[NeoSimvolist]

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

Но не работает чтото. Почему?

 

[Akupaka]

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

 

[Medevic]

В кнопке исправить.

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

Остальное выкидываем.

 

[NeoSimvolist]

В кнопке исправить.

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№
Тема закрыта!