Sign2(SilentMode As Boolean,DoRoute As Boolean,DoCancel As Boolean,Comment As String) As Boolean ( Function )


Поставить подпись и выполнить переход, если подпись автоматически осуществляет переход

Синтаксис:

objectvariable.Sign2( SilentMode, DoRoute, DoCancel, Comment )

objectvariable - IActualWorkFlowItemSigns2

SilentMode - флаг: True - не показывать диалог и других окон сообщений, False - показывать

DoRoute - выполнить переход, если подпись автоматически осуществляет переход.

DoCancel - отменить подписание, если произошла ошибка при осуществлении перехода

Comment - комментарий

Возвращает: логическое значение - признак успешного выполнения


Пример на VB Script:
Sub Test()
    
    Dim I
    Dim Archive
    Dim ActualWorkFlowItems
    Dim ActualWorkFlowItemSigns
    
    Set Archive = TCSApp.Archive
    If Archive.RunModuleForSelect("Выберите документ", False) Then
        Set ActualWorkFlowItems = Archive.Properties( "ACTUAL_WORKFLOW_ITEMS" ).AsIDispatch
            Set ActualWorkFlowItemSigns = ActualWorkFlowItems.Properties( "SIGNS" ).AsIDispatch
            If ActualWorkFlowItemSigns.RunModuleForSelect("Выберите подпись, которую необходимо проставить", False) Then
                SilentMode = True 'не показывать диалог и других окон сообщений
                DoRoute = False 'выполнить переход, если подпись автоматически осуществляет переход.
                DoCancel = False 'отменить подписание, если произошла ошибка при осуществлении перехода
                Comment = "текст комментария"
                If ActualWorkFlowItemSigns.Sign2( SilentMode, DoRoute, DoCancel, Comment ) Then
                    Call TCSApp.ShowMessageBox("Сообщение", "Подпись проставлена.")
                Else
                    Call TCSApp.ShowMessageBox("Сообщение", "Подпись не проставлена!")
                End If
            End If
            Set ActualWorkFlowItemSigns = Nothing
        Set ActualWorkFlowItems = Nothing
    End If
    Set Archive = Nothing
End Sub