Тема: Удаление версии ТП со всем содержимым

Здравствуйте. Нужно удалить версию ТП со всеми операциями, переходами, параметрами и т.д. Т.е. со всем, что к ней относится. Может кто делал такое?

(изменено: Дмитрий Гамий, 16 марта 2011 18:30:28)

Re: Удаление версии ТП со всем содержимым

В демо-базе в библиотеке CSDN_DESEAN_Library есть процедура DelCurrentVer. Подключите в режиме работы с версиями техпроцесса такой макрос:

Sub FormMacro_DelCurrentVer(TCSActiveModule)'Удалить версию
    Call CSDN_DESEAN_Library.DelCurrentVer(TCSActiveModule)
End Sub

Единственное замечание: если у вас TechnologiCS версии 6 и выше, то нужно процедуру подправить:

Sub DelCurrentVer( INmkVersions )                         'Удалить версию
    If Not INmkVersions.IsEditVerState Then Call INmkVersions.MakeEdit
    If INmkVersions.IsEditVerState Then
        Dim CurrentVersion : Set CurrentVersion = INmkVersions.Properties(14).AsIDispatch
        If Not CurrentVersion Is Nothing Then 
            Call CurrentVersion.Last
            Do While Not CurrentVersion.Bof
                pbStr = CSDN_DESEAN_Library.ShowProgressBarNote( pbStr, "...Удаляем версию..." )        
                Call CurrentVersion.DeleteRecord( False )
            Loop
            Set CurrentVersion = Nothing
        End If
        Call INmkVersions.Refresh
        Call INmkVersions.DeleteRecord( False )
        Call TCSApp.HideProgressMessage
        Call INmkVersions.Refresh
    Else
        Call TCSApp.ShowErrorMessage( "Версия не допускает редактирования!" )
    End If
End Sub 

В принципе эта процедура применима и к версиям спецификации.

Re: Удаление версии ТП со всем содержимым

Спасибо.