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

Статус
Закрыто для дальнейших ответов.

Altaya

Active member
01.03.2012
34
0
#1
Здравствуйте, форумчане.
Постоянно пользуюсь вашим форумом как пособием)
Лотус изучаю относительно недавно и столкнулась с проблемой.
Как через выбор из вида открывающегося по команде 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

* so what *
18.05.2009
2 442
6
#2
посмотрите выбор через PickListCollection method и замените uidoc.Document на документы, полученные из коллекции
 

nvyush

Lotus team
22.04.2009
2 317
0
#4
Для создания документа используйте
Код:
Set doc2 = db.CreateDocument
ws.PickListStrings при отмене возвращает Empty, соответственно в строке
Код:
If picklist = 1 Then
в этом случае будет возникать ошибка, нужно проверять значение функцией IsEmpty.
В коде не видно, где в doc2 сохраняется выбранное в PickListStrings значение. Возможно, следует использовать PickListCollection и копировать поля выбранного документа?
 

Altaya

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

Altaya

Active member
01.03.2012
34
0
#6
Спасибо, вчера со всем разобралась. Тема закрыта
 
Статус
Закрыто для дальнейших ответов.