1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,192
  • Репутация : 0

Тема: Открывать документ на чтение, если документ уже открыт

Скрипт, который делает и открывает копию документа на чтение, если документ уже открыт на редактирование у другого пользователя.
Событие Postopen на форме.

Sub Postopen(Source As Notesuidocument)

    Dim session As New NotesSession
    Dim ws As New notesuiworkspace
    Dim doc As notesdocument, curdoc As notesdocument

....
        Source.EditMode = True    
        
If source.EditMode=False Then            
source.close                    
answer% = Messagebox("Открыть КОПИЮ документа ДЛЯ ЧТЕНИЯ ?  Изменения в документе не будут сохранены ! ", 1, "Внимание!")
    If answer%=1 Then
    Set doc=db.CreateDocument
    Call source.Document.CopyAllItems(doc)
    doc.saveoptions="0"
    Call ws.EditDocument(True, doc)
    End If                        
End If

Поделиться