Тема: Перевести версию ТП в состояние редактирования
Set NmkTechnology = TCSApp.NmkTechnology(NmkId, VerId)
If Not NmkTechnology Is Nothing Then
Set Versions = NmkTechnology.Properties("Versions").AsIDispatch
If Not Versions Is Nothing Then
If Versions.Locate("ID", VerId, 0) Then
If Not Versions.Properties( "VER_STATE" ).IsEditVerState Then
Versions.MakeEdit
End If
...
На строчке Versions.MakeEdit ругается, что нет больше утвержденной версии.
Здесь есть только одна версия ТП. Неужели надо создать фиктивную версию ТП, сделать ее утвержденной(а потом ее удалить) для редактирования активной утвержденной версии.
Пробовала с CurrentVersion - то же самое
Или есть другой метод?
Вручную переводит нормально.