NmkSpecification(NMK_ID As Long,VER_ID As Long) As NmkSpecification ( PropertyGet )
Получить спецификацию по идентификатору версии или идентификатору номенклатуры
Синтаксис:
objectvariable.NmkSpecification( NMkID, VerID )
objectvariable -
ITcs_Application
NMkID - идентификатор номенклатуры
VerID - идентификатор версии
Если VerID = -1, то по указанному NMkID ищется активная версия спецификации
Возвращает: указатель на
NmkSpecification
Пример на VB:
Dim TcsObj As CSDN.TCS
Dim App As CSDN.Tcs_Application
Dim NMks As CSDN.Nomenclatures
Dim NmkSpec As CSDN.NmkSpecification
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 NmkSpec = App.NmkSpecification(NMks.Properties("ID").AsInteger, -1)
...
Set NmkSpec = Nothing
End If
Set NMks = Nothing
End If
Set App = Nothing
Set TcsObj = Nothing