AddNMkToTechnology(NmkClassId As Long,NMkId As Long,ToTechId As Long) As Long ( PropertyGet )

Добавить номенклатуру к техпроцессу

Синтаксис:

objectvariable.AddNMkToTechnology( NmkClassId, NMkId, ToTechId )

objectvariable - INmkTechnology

NmkClassId - идентификатор класса

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

ToTechId - идентификатор позиции техпроцесса к которой нужно привязать добавляемую позицию ( 0 - к техпроцессу )

Возвращает: идентификатор позиции техпроцесса


Пример на VB Script:
Sub Test( TCSActiveModule )
    Dim NMks, NmkClassId, NMkId, ToTechId, ID
    
    If TCSActiveModule.ClassType <> 1 Then
        Call TCSApp.ShowErrorMessage("Нужно установить курсор на операцию!")
        Exit Sub
    End If
    
    If TCSApp.NmkClasses.RunModuleForSelect("Выберите класс", False) Then
    
        Set NMks = TCSApp.Nomenclatures(TCSApp.NmkClasses.Properties("ID").AsInteger)
    
        If NMks.RunModuleForSelect("Выберите номенклатуру", False) Then
        
            NmkClassId = TCSApp.NmkClasses.Properties("ID").AsInteger
            NMkId = NMks.Properties("ID").AsInteger
            ToTechId = TCSActiveModule.Properties("TECH_ID").AsInteger
            ID = TCSActiveModule.AddNMkToTechnology( NmkClassId, NMkId, ToTechId )
        
        End If
    
    End If
End Sub