CopyVersion(VerName As String) As Long ( PropertyGet )
Копировать текущую версию
Синтаксис:
objectvariable.CopyVersion( VerName )
objectvariable -
INmkVersions
VerName - наименование новой версии
Возвращает: идентификатор новой версии
Пример на VB:
Dim TcsObj As CSDN.TCS
Dim App As CSDN.Tcs_Application
Dim NMks As CSDN.Nomenclatures
Dim NmkTechVer As CSDN.NMkVersions
Dim TechVer As CSDN.NmkVersion
Set TcsObj = CreateObject("CSDN.TCS")
Set App = TcsObj.Login
If App.NmkClasses.RunModuleForSelect("Выберите класс", False) Then
Set NMks = App.Nomenclatures(App.NmkClasses.Properties("ID").AsInteger)
If NMks.RunModuleForSelect("Выберите номенклатуру", False) Then
Set NmkTechVer = App.NmkTechnologyVersions(NMks.Properties("ID").AsInteger)
If NmkTechVer.RunModuleForSelect("Выберите версию техпроцесса для копирования", False) Then
IdNewVer = NmkTechVer.CopyVersion("Новая версия")
Set TechVer = App.NmkVersion(IdNewVer)
I = TechVer.ShowModal("Скопированная версия")
Set TechVer = Nothing
End If
Set NmkTechVer = Nothing
End If
Set NMks = Nothing
End If
Set App = Nothing
Set TcsObj = Nothing