G
Gor
Код:
Sub Postopen(Source As Notesuidocument)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim db As NotesDatabase
Dim s As New NotesSession
Set db = s.GetDatabase("SRVCLST", "INFO.nsf", False)
Dim view As NotesView
Set view = db.GetView("TabNOM2")
Dim doc As NotesDocument
p = uidoc.FieldGetText("zak")
p2 = uidoc.FieldGetText("dep")
If p2 = "" Then
p = Fulltrim(p)
Set doc = view.GetDocumentByKey(p, True)
p1 = doc.GetItemValue("otdlot")
Call uidoc.FieldSetText("dep",p1(0))
End If
End Sub
Работает быстро если рядом в клиенте открыта вьюха TabNOM2 из базы INFO.nsf
Почему тааак долго?? Вопрос индексации чувствую=)) Как исправить? Какие то настройки на вьюхе?
Или не прав? Что то другое? И это у меня уже не первый раз такая проблема...( Долго этот способ отрабатывается у меня когда ищу по ключу в сторонней базе на сервере...