1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

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

Статус темы:
Закрыта.
  1. Altaya

    Altaya Active Member

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

    hosm * so what *

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

    Altaya Active Member

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

    nvyush Well-Known Member
    Lotus team

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

    Altaya Active Member

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

    Altaya Active Member

    Репутация:
    0
    Регистрация:
    1 мар 2012
    Сообщения:
    34
    Симпатии:
    0
    Спасибо, вчера со всем разобралась. Тема закрыта
     
Загрузка...
Похожие Темы - Picklist Данные Документ
  1. abdurtim
    Ответов:
    8
    Просмотров:
    346
  2. OksanaS
    Ответов:
    6
    Просмотров:
    1.106
  3. Serduko
    Ответов:
    17
    Просмотров:
    2.758
  4. beloff
    Ответов:
    37
    Просмотров:
    6.043
  5. Реник
    Ответов:
    3
    Просмотров:
    1.372
Статус темы:
Закрыта.

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