Пересчёт формул в документе.

[Ferz]

Нужно пересчитать вычисляемое поле

@IfError(@Unique(@DbLookup("";"";"($Визирование)";@Text(@DocumentUniqueID);"Reader"));Author);

в документе не открывая его.

 

[Medevic]

value := @IfError(@Unique(@DbLookup("";"";"($Визирование)";@Text(@DocumentUniqueID);"Reader"));Author);
@SetField("field"; value)

или на скриптах:

Evaluate(value := @IfError(@Unique(@DbLookup("";"";"($Визирование)";@Text(@DocumentUniqueID);"Reader"));Author); @SetField("field"; value)}, doc)

Или NotesDocument.ComputeWithForm.
Или не понял вопрос.

 

[Ferz]

Для: Medevic
ComputeWithForm не помогает
можно и устанавлить значение, формулу только не хочется ее еще раз писать

Sub Querysave(Source As Notesuidocument, Continue As Variant)
On Error Goto Cancel
Dim result As Variant
Dim doc As NotesDocument
Dim Sesion As New NotesSession
Dim succes As Variant
Dim db As NotesDatabase
Set db = Sesion.CurrentDatabase
Set doc= Source.Document
'получаем самого верхнего родителя
While Trim(Cstr(doc.ParentDocumentUNID))<>""
Set doc=db.GetDocumentByUNID(doc.ParentDocumentUNID)	
Wend
Source.Document.ParentUNID=Cstr(doc.UniversalID)
..
..
[b]	success = doc.ComputeWithForm( False, False )
Call doc.Save(True,True)[/b]
Exit Sub
Cancel:
Msgbox Error$
Continue=False
Exit Sub		
End Sub

 

[Medevic]

Я бы ComputeWithForm не использовал. Только в крайнем случае.
Пересчитать нельзя. Можно только прописать значение. И это лучше.

 

[Ferz]

Для: Medevic
Прошу прошения за быстрые выводы использование
ComputeWithForm дало результаты просто запускал в Querysave и соответсвено документ формируюший значение для вычисляемого поля еще не сохранился.
перекинол в postSAve все ок- ComputeWithForm обновил вычиляемые поля