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

Тема в разделе "Lotus - Программирование", создана пользователем Altaya, 2 мар 2012.

Наш партнер Genesis Hackspace
Статус темы:
Закрыта.
  1. Altaya

    Altaya Active Member

    Регистрация:
    1 мар 2012
    Сообщения:
    34
    Симпатии:
    0
    Здравствуйте, форумчане.
    Постоянно пользуюсь вашим форумом как пособием)
    Лотус изучаю относительно недавно и столкнулась с проблемой.
    Как через выбор из вида открывающегося по команде picklist создать новый документ (ответный к открытому на редактирование), и внести в него данные из документа, выбранного по picklist?
    Мой код:
    Код (LotusScript):
    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
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.445
    Симпатии:
    7
    посмотрите выбор через PickListCollection method и замените uidoc.Document на документы, полученные из коллекции
     
  3. Altaya

    Altaya Active Member

    Регистрация:
    1 мар 2012
    Сообщения:
    34
    Симпатии:
    0
    спс, полезла в хелп)
    надеюсь, разберусь
     
  4. nvyush

    nvyush Well-Known Member
    Lotus team

    Регистрация:
    22 апр 2009
    Сообщения:
    2.317
    Симпатии:
    0
    Для создания документа используйте
    Код (LotusScript):
    Set doc2 = db.CreateDocument
    ws.PickListStrings при отмене возвращает Empty, соответственно в строке
    Код (LotusScript):
    If picklist = 1 Then
    в этом случае будет возникать ошибка, нужно проверять значение функцией IsEmpty.
    В коде не видно, где в doc2 сохраняется выбранное в PickListStrings значение. Возможно, следует использовать PickListCollection и копировать поля выбранного документа?
     
  5. Altaya

    Altaya Active Member

    Регистрация:
    1 мар 2012
    Сообщения:
    34
    Симпатии:
    0
    Спасибо за советы, частично разобралась. В понедельник буду решать проблему с переносом данных в новый респонс)
     
  6. Altaya

    Altaya Active Member

    Регистрация:
    1 мар 2012
    Сообщения:
    34
    Симпатии:
    0
    Спасибо, вчера со всем разобралась. Тема закрыта
     
Загрузка...
Похожие Темы - Picklist Данные Документ
  1. OksanaS
    Ответов:
    6
    Просмотров:
    1.042
  2. Serduko
    Ответов:
    17
    Просмотров:
    2.610
  3. beloff
    Ответов:
    37
    Просмотров:
    5.905
  4. Реник
    Ответов:
    3
    Просмотров:
    1.325
  5. maks00793
    Ответов:
    1
    Просмотров:
    1.163
Статус темы:
Закрыта.

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