J
JohnLemon
Здравствуйте, пытаюсь реализовать историю изменения полей в RichText, есть такой код
Все нормально но вот, почему то в свойствах документа 3 поля History, в чем проблема ??
Код:
Sub Postsave(Source As Notesuidocument)
'----------------------------------------------------
Dim doc As NotesDocument
Dim rtHistory As NotesRichTextItem
'----------------------------------------------------
Set rtHistory = docs.GetFirstItem("History")
Set docs = Source.Document
'-----------------------------------------------------
i = 0
Forall value_field In docs.FiedlName
Call rtHistory.AppendText ( "Изменено "+masivtemp(i)+" на ---------> "+docs.Getitemvalue(value_field)(0))
Call rtHistory.AddNewLine(1)
Call docs.Save(True,False,False)
'-----------------
Messagebox("Старое значение "+masivtemp(i))
Messagebox("Новое значение "+docs.Getitemvalue(value_field)(0))
i=i+1
End Forall
End Sub