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

[makaset]

как надоясь в документе обнавлят другой документ.
ситуация такова если документ совподает оприделденным условия то копиреум документ на другую базу.
нижеприведенном коде копирует но во вюхе не появляется пока документа вручную не пресахраняешь что надо дописать

				 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/ Пользуемся тегами кода

 

[Medevic]

Для: makaset
А форму указываешь ?
К тому же есть такой метод notesDocument.CopyAllItems. Может лучше его использовать?

 

[Akupaka]

два варианта:
- поправить поле "Form"
- поправить условие отбора для нужного вида, например, чтобы форма там не учитывалась...

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

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

зы: сумбурно, но надеюсь понятно