1 Тема от admin

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

Тема: Сделать группу выбранных документов ответными во view.

Нужна была кнопочка, чтобы делала во view все выделенные документы ответными к главному.
UNID главного документа вводиться в диалогбокс.
Вот код:

Sub Click(Source As Button)
    On Error Goto ErrH    
    Dim session As New NotesSession, db As NotesDatabase, collection As NotesDocumentCollection    
    Dim doc As NotesDocument, maindoc As NotesDocument
    Dim ws As New NotesUIWorkspace
    Dim workspace As New NotesUIWorkspace
    Dim ss As String
    Dim i As Integer
    Set db = session.CurrentDatabase
    i=1
    Set collection=db.UnprocessedDocuments 'получаем коллекцию выбранных доков(могут быть и ответные и главные)
    If collection Is Nothing Then Exit Sub
    If collection.Count=0 Then Messagebox "Документы не выбраны":Exit Sub
    Print "collection.count:" collection.count
    
    ss = Trim(Inputbox$("Введите UNID главного", "----","524C6BF3718904C8432586EA003C08BD"))
    Set maindoc=db.GetDocumentByUNID(ss)
    
    Set doc=collection.GetFirstDocument
    While Not(doc Is Nothing)
        Print i ". " doc.header(0)
        i= i+1
        Call doc.MakeResponse(maindoc)
        doc.parent = ss
    '    Call doc.ComputeWithForm(False, False)
        Call doc.Save(True, False)
        Print  "сделан отв."
        Set doc = collection.GetNextdocument(doc)    
    Wend    
    
    
    Call workspace.ViewRefresh
    Msgbox "Документы сделаны ответными!"
    Exit Sub
ErrH:
    Print "Ошибка" & Error(Err) & " в строке " & Erl    
    Exit Sub
End Sub

Поделиться