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