как открыть в новом окне только что созданный документ

Тема в разделе "Lotus - Программирование", создана пользователем Mikhail, 25 май 2007.

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

    Mikhail Гость

    Привет всем! Че-то не могу найти в хелпе нужную вещь. Подскажите плиз, как открыть в новом окне только что созданный документ(я так думаю,должно быть что-то типа: docm.Open). Вот текст моей Action:

    Sub Click(Source As Button)
    Dim workkspace As New NotesUIWorkspace
    Dim uuidoc As NotesUIDocument
    Set uuidoc = workkspace.CurrentDocument
    Set CurDoc = uuidoc.Document

    Dim session As New NotesSession
    Dim dbb As NotesDatabase
    Dim docm As NotesDocument
    Set dbb = session.CurrentDatabase

    Dim item01 As NotesItem
    Dim item02 As NotesItem
    Dim item03 As NotesItem
    Dim item04 As NotesItem
    Dim item05 As NotesItem
    Dim item06 As NotesItem
    Dim item07 As NotesItem
    Dim item08 As NotesItem
    Dim item09 As NotesItem
    Dim item10 As NotesItem

    Set item01 = CurDoc.GetFirstItem( "1" )
    Set item02 = CurDoc.GetFirstItem( "2" )
    Set item03 = CurDoc.GetFirstItem( "3" )
    Set item04 = CurDoc.GetFirstItem( "4" )
    Set item05 = CurDoc.GetFirstItem( "5" )
    Set item06 = CurDoc.GetFirstItem( "6" )
    Set item07 = CurDoc.GetFirstItem( "7" )

    Set docm = New NotesDocument( dbb )
    docm.Form = "Инспектирование"

    Call item01.CopyItemToDocument( docm, "1" )
    Call item02.CopyItemToDocument( docm, "2" )
    Call item03.CopyItemToDocument( docm, "3" )
    Call item04.CopyItemToDocument( docm, "4" )
    Call item05.CopyItemToDocument( docm, "5" )
    Call item06.CopyItemToDocument( docm, "6" )
    Call item07.CopyItemToDocument( docm, "7" )
    Set item08 = docm.AppendItemValue( "8", 1 )

    Call docm.Save( False, False )
    '''''

    ''''
    End Sub
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    workkspace.EditDocument
     
Загрузка...
Статус темы:
Закрыта.

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