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

Тема в разделе "Lotus - Программирование", создана пользователем Ferz, 31 авг 2006.

Статус темы:
Закрыта.
  1. Ferz

    Ferz Гость

    Нужно пересчитать вычисляемое поле
    Код (Text):
    @IfError(@Unique(@DbLookup("";"";"($Визирование)";@Text(@DocumentUniqueID);"Reader"));Author);
    в документе не открывая его.
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Код (Text):
    value := @IfError(@Unique(@DbLookup("";"";"($Визирование)";@Text(@DocumentUniqueID);"Reader"));Author);
    @SetField("field"; value)
    или на скриптах:
    Код (Text):
    Evaluate(value := @IfError(@Unique(@DbLookup("";"";"($Визирование)";@Text(@DocumentUniqueID);"Reader"));Author); @SetField("field"; value)}, doc)
    Или NotesDocument.ComputeWithForm.
    Или не понял вопрос.
     
  3. Ferz

    Ferz Гость

    Для: Medevic
    ComputeWithForm не помогает
    можно и устанавлить значение, формулу только не хочется ее еще раз писать
    Код (Text):
    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
     
  4. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Я бы ComputeWithForm не использовал. Только в крайнем случае.
    Пересчитать нельзя. Можно только прописать значение. И это лучше.
     
  5. Ferz

    Ferz Гость

    Для: Medevic
    Прошу прошения за быстрые выводы использование
    ComputeWithForm дало результаты просто запускал в Querysave и соответсвено документ формируюший значение для вычисляемого поля еще не сохранился.
    перекинол в postSAve все ок- ComputeWithForm обновил вычиляемые поля
     
Загрузка...
Похожие Темы - Пересчёт формул документе
  1. deeeman
    Ответов:
    1
    Просмотров:
    1.987
  2. DNT
    Ответов:
    3
    Просмотров:
    2.855
  3. Луиза
    Ответов:
    3
    Просмотров:
    368
  4. Ruslan280
    Ответов:
    8
    Просмотров:
    663
  5. motogarri
    Ответов:
    11
    Просмотров:
    828
Статус темы:
Закрыта.

Поделиться этой страницей