SingleNomenclatureSerialNumberFromID(NomenclatureSerialNumberID As Long) As ISingleNomenclatureSerialNumber ( PropertyGet )

Получить интерфейс одного серийного номера по его идентификатору

Синтаксис:

objectvariable.SingleNomenclatureSerialNumberFromID( NomenclatureSerialNumberID )

objectvariable - ITcs_Inventory

NomenclatureSerialNumberID - идентификатор серийного номера

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


Пример на VB Script:
Sub Test()
    Dim NMks
    Dim NMkId
    Dim NomenclatureSerialNumbers
    Dim SingleNomenclatureSerialNumber
    Dim I
    If TCSApp.NmkClasses.RunModuleForSelect("Выберите класс", False) Then
    
        Set NMks = TCSApp.Nomenclatures(TCSApp.NmkClasses.Properties("ID").AsInteger)
        
        If NMks.RunModuleForSelect("Выберите номенклатуру", False) Then
            NMkId = NMks.Properties("ID").AsInteger
    
            Set NomenclatureSerialNumbers = TCSApp.Inventory.NomenclatureSerialNumbers( NMkId )
            
            If NomenclatureSerialNumbers.RunModuleForSelect("Выберите серийный номер", False) Then
                
                Set SingleNomenclatureSerialNumber = TCSApp.Inventory.SingleNomenclatureSerialNumberFromID( NomenclatureSerialNumbers.Properties("ID").AsInteger )
    
                I = SingleNomenclatureSerialNumber.ShowModal("Серийный номер")
                
                Set SingleNomenclatureSerialNumber = Nothing
            
            End If
            Set NomenclatureSerialNumbers = Nothing
            
        End If
    End If
End Sub