Ls Picklist Данные В Документ

[Altaya]

Здравствуйте, форумчане.
Постоянно пользуюсь вашим форумом как пособием)
Лотус изучаю относительно недавно и столкнулась с проблемой.
Как через выбор из вида открывающегося по команде picklist создать новый документ (ответный к открытому на редактирование), и внести в него данные из документа, выбранного по picklist?
Мой код:

Dim s As New notesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim doc2 As NotesDocument
Dim picklist As Variant
'----------------------------------------------------------------------------------------------------------------------
' Присвоение данных объявленным переменным
Set db = s.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
'----------------------------------------------------------------------------------------------------------------------
' Вызов picklist
picklist = workspace.PickListStrings( _
PICKLIST_CUSTOM, _
True, _
"SERVER", _
"TEST", _
"PRICE", _
"Все цены", _
"Выберите цену", 3)
'----------------------------------------------------------------------------------------------------------------------
' Если нажато ОК создаем новый ответный документ
If picklist = 1 Then
Set doc2 = uidoc.Document
doc2.form = "cena2"
Call doc2.MakeResponse( doc )		'
Call doc2.Save(True, True)
Call uidoc.Reload
Call uidoc.Save
'		Call uidoc.Close(True)
'----------------------------------------------------------------------------------------------------------------------
' Сообщение о создании документа 
Forall plist In picklist
Messagebox "УСТАНОВЛЕНА " & plist & Chr(10)
End Forall
End If

 

[hosm]

посмотрите выбор через PickListCollection method и замените uidoc.Document на документы, полученные из коллекции

 

[Altaya]

посмотрите выбор через PickListCollection method и замените uidoc.Document на документы, полученные из коллекции

спс, полезла в хелп)
надеюсь, разберусь

 

[nvyush]

Для создания документа используйте

Set doc2 = db.CreateDocument

ws.PickListStrings при отмене возвращает Empty, соответственно в строке

If picklist = 1 Then

в этом случае будет возникать ошибка, нужно проверять значение функцией IsEmpty.
В коде не видно, где в doc2 сохраняется выбранное в PickListStrings значение. Возможно, следует использовать PickListCollection и копировать поля выбранного документа?

 

[Altaya]

Спасибо за советы, частично разобралась. В понедельник буду решать проблему с переносом данных в новый респонс)

 

[Altaya]

Спасибо, вчера со всем разобралась. Тема закрыта