перенос документа

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

  1. makaset

    makaset Well-Known Member

    Регистрация:
    14 мар 2007
    Сообщения:
    126
    Симпатии:
    0
    как надоясь в документе обнавлят другой документ.
    ситуация такова если документ совподает оприделденным условия то копиреум документ на другую базу.
    нижеприведенном коде копирует но во вюхе не появляется пока документа вручную не пресахраняешь что надо дописать
    Код (Text):
                     Sub Click(Source As Button)
    Dim db1 As notesdatabase
    Dim db2 As notesdatabase
    Dim doc1 As notesdocument
    Dim doc2 As notesdocument
    Dim uidoc As notesuidocument
    Dim item As NotesItem  
    Dim server As String
    Dim dbfile As String
    Dim ws As New notesuiworkspace 
    Set uidoc = ws.CurrentDocument
    Set Gdoc = uidoc.Document
    Dim session As New NotesSession
    Set doc1 = ws.currentdocument.document
    Set db1 = doc.parentDatabase
    Set item = doc1.GetFirstItem("Arhiv1")
    dbfile = "citizen.nsf"
    Set db2 = New NotesDatabase( server, dbfile )

    If doc1.getItemvalue("vid")(0) = "Заявление" Then
    Set doc2 = New NotesDocument (db2)
    doc2.Vn=doc1.VN ' рег ном
    doc2.KodSource=doc1.kodkorr1 'корресподент
    doc2.Source= doc1.KorrDisplay

    doc2.Poluch=doc1.Poluch ' получатель
    doc2.Poluch=    doc1.Poluch

    ...........
    ..........     
    Set item = doc1.GetFirstItem("Arhiv1")
    Call item.CopyItemToDocument(doc2, "Arhiv1")
    Call doc2.Save( True, True )
    Call ws.viewrefresh()
    End If
    End Sub
    /Moderated By Morpheus/ Пользуемся тегами кода
     
  2. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: makaset
    А форму указываешь ?
    К тому же есть такой метод notesDocument.CopyAllItems. Может лучше его использовать?
     
  3. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    два варианта:
    - поправить поле "Form"
    - поправить условие отбора для нужного вида, например, чтобы форма там не учитывалась...

    notesDocument.CopyAllItems может не всегда быть лучше, особенно, если нужно потом большую часть итемов вычищать :D, говоря проще, если нужно перенести небольшое кол-во итемов, то лучше перенести каждый отдельно, а если перенести большую часть, то после вызова notesDocument.CopyAllItems вытереть ненужные...

    для управления массивами полей можно написать цикл, а имена задавать в виде массива, кот. будет этим циклом обрабатываться...

    зы: сумбурно, но надеюсь понятно :)
     
Загрузка...

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