NmkTechnology(NMK_ID As Long,VER_ID As Long) As NmkTechnology ( PropertyGet )

Получить техпроцесс по идентификатору версии или идентификатору номенклатуры

Синтаксис:

objectvariable.NmkTechnology( NMkID, VerID )

objectvariable - ITcs_Application

NMkID - идентификатор номенклатуры

VerID - идентификатор версии

Если VerID = -1, то по указанному NMkID ищется активная версия техпроцесса

Возвращает: указатель на NmkTechnology


Пример на VB:
Dim TcsObj As CSDN.TCS
Dim App As CSDN.Tcs_Application
Dim NMks As CSDN.Nomenclatures
Dim NmkTech As CSDN.NmkTechnology
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 NmkTech = App.NmkTechnology(NMks.Properties("ID").AsInteger, -1)
       
       ...
        
        Set NmkTech = Nothing
    End If
    
    Set NMks = Nothing
End If
Set App = Nothing
Set TcsObj = Nothing