SimpleNomenclaturesSearching(NmkClassId As Long,NmkSearchConditions As ICSDNStrings) As ISimpleNomenclaturesSearching ( PropertyGet )

Поиск номенклатуры по значению параметров

Синтаксис:

objectvariable.SimpleNomenclaturesSearching( NmkClassId, NmkSearchConditions )

objectvariable - ITcs_Application2

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

NmkSearchConditions - условия поиска в виде массива строк CSDNStrings , где каждая строка условия должна состоять из: обозначение уникального кода параметра + "%=%" + значение параметра, вместо знака равенства "=" можно использовать другие знаки сравнения ( >, >= и т.п. )

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


Пример на VB Script:
' пример для режима Техпроцесс
Sub Test( TCSActiveModule )
Dim Nmks, SimpleNMK, Conditions, I, ClassId
    ClassId = 25
    Set Nmks = TCSApp.Nomenclatures( ClassId ) ' Класс Материалы
    
    If Nmks.RunModuleForSelect( "Выберите марку материала", False ) > 0 Then
    
        Set Conditions = TCSApp.CreateStrings
        
        I = Conditions.Add( "MARKA_MAT%=%" + Nmks.Properties("ID").AsString )
        
        Set SimpleNMK = TCSApp.SimpleNomenclaturesSearching( ClassId, Conditions )
        
        If SimpleNMK.RunModuleForSelect( "Выберите материал для добавления", False ) > 0 Then
        
            ' встанем на корень дерева
            TCSActiveModule.ShowOperation( 0 ) 
            
            ' добавим выбранный материал
            I = TCSActiveModule.AddNMkToTechnology( ClassId, SimpleNMK.Properties("ID").AsInteger, 0 )
            
        End If
        Set SimpleNMK = Nothing
        Set Conditions = Nothing
    
    End If
    Set Nmks = Nothing
End Sub