Тема: Удаление версии ТП со всем содержимым
Здравствуйте. Нужно удалить версию ТП со всеми операциями, переходами, параметрами и т.д. Т.е. со всем, что к ней относится. Может кто делал такое?
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
TechnologiCS → TechnologiCS → Использование TechnologiCS API → Удаление версии ТП со всем содержимым
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здравствуйте. Нужно удалить версию ТП со всеми операциями, переходами, параметрами и т.д. Т.е. со всем, что к ней относится. Может кто делал такое?
В демо-базе в библиотеке 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
В принципе эта процедура применима и к версиям спецификации.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
TechnologiCS → TechnologiCS → Использование TechnologiCS API → Удаление версии ТП со всем содержимым