1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

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

Создания нового документа из Lotusscript

Тема в разделе "Lotus - Программирование", создана пользователем -, 15 фев 2008.

Статус темы:
Закрыта.
  1. Гость

    Репутация:
    0
    Можно ли по данным значением создавать новый документ, т.е переносить значения из PickListStrings для создания нового документа?
     
  2. Omh

    Omh Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Код:
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Set db = session.CurrentDatabase
    
    Set dc = ws.PickListCollection( PICKLIST_CUSTOM, False, db.server, db.Filepath, "ViewName", "Select ", "Please select ")
    if dc.count > 0 then
    Dim SelectedDoc as NotesDocument
    Set SelectedDoc = dc.getFirstDocument
    
    Dim newDoc as NotesDocument
    Set newDoc = db.CreateDocument
    Call newdoc.ReplaceItemValue("Form", "FORM")
    'тут копируем значения из SelectedDoc в NewDoc
    Call ws.EditDocument(True, Doc) 'ну или Save, смотря что надо
    end if
     
Загрузка...
Статус темы:
Закрыта.

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