Как вытащить предыдущее значение поля?

[Omh]

Не понимаю, что там не работает!
Вот скрипт агента, с target = SelectedDocuments

Sub Initialize
On Error Goto Errh

Dim session As New NotesSession

Dim Agent As NotesAgent
Set Agent = Session.CurrentAgent

Dim Db As NotesDatabase
Set Db = Agent.Parent

Dim Coll As NotesDocumentCollection
Set Coll = Db.UnprocessedDocuments

Dim Total As Long
Total = Coll.Count 

If Total > 0 Then
Dim View As NotesView
Set view = db.GetView("UNIDS") 'view со всеми документами базы, первая колонка - отсортированный UNID

Dim Doc As NotesDocument
Dim OthDoc As NotesDocument

Const FLDNAME = "TMP_FLD"

Set Doc = Coll.GetFirstDocument
While Not Doc Is Nothing
Call Doc.ReplaceItemValue(FLDNAME, Cstr(Now))
Set OthDoc = view.GetDocumentByKey(doc.UniversalID, True)
Messagebox Doc.GetItemValue(FLDNAME)(0) + Chr(13) + OthDoc.GetItemValue(FLDNAME)(0), 0 + 64, "Information"
Call Doc.Save(True, False)
Set Doc = Coll.GetNextDocument(Doc)
Wend
End If

Exit Sub
errh:
Msgbox Error & | in line | & Erl(), 64, |Lotus Notes (| & Lsi_info(2) & |)|
Exit Sub
End Sub

Он возвращает различные значения для Doc и OthDoc.
Т.е. документ обрабатываемый в скрипте и документ из view - разные.
У кого-то не так?

 

[olegber]

Не понимаю, что там не работает!
-
Он возвращает различные значения для Doc и OthDoc.
Т.е. документ обрабатываемый в скрипте и документ из view - разные.
У кого-то не так?

Спасибо, проверил , на самом деле работает
Видимо вчера сделал что-то не так.
Удобный метод - буду использовать его

 

[Akupaka]

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

 

[Omh]

Согласен, копировать айтемы перед процессингом во временный док - менее затратное дело.
olegber, забей на view, копируй айтемы