Изменение статуса версии документа Архива с помощью TechnologiCS API

Sub WorkFlowExecute(oDoc, WorkFlowName) ' Выполнить заданный переход в документе
    ' oDoc As ISingleDoc Экземпляр документа
    ' WorkFlowName As String Название перехода
    
    Dim ActualWorkFlow ' Текущие переходы обработки документа 
    Dim DocWorkFlow ' Переходы способа обработки документа
    
    oDoc.Refresh
    'Проверяем, есть ли такой переход
    Set DocWorkFlow = oDoc.Properties("WORKFLOW_ITEMS").AsIDispatch
    If Not DocWorkFlow Is Nothing Then
        DocWorkFlow.Refresh
        If Not DocWorkFlow.Locate("NAME", WorkFlowName, 0) Then            
            Call TCSApp.ShowErrorMessage("Переход <"  & WorkFlowName & "> для текущего документа отсутствует!")            
            Exit Sub
        End If
    End If
    Set DocWorkFlow =  Nothing
    
    'Ищем нужный переход и выполняем 
    Set ActualWorkFlow = oDoc.Properties("ACTUAL_WORKFLOW_ITEMS").AsIDispatch
    If Not ActualWorkFlow Is Nothing Then
        If Not ActualWorkFlow.Locate("NAME", WorkFlowName, 0) Then            
            Call TCSApp.ShowErrorMessage("Выполнение перехода <"  & WorkFlowName & ">в текущем статусе документа невозможно!")            
            Exit Sub
        Else
            Call ActualWorkFlow.Execute(True, "")
        End If
    End If
    Set ActualWorkFlow =  Nothing    
End Sub