Sub Test()
    Dim NMks
    Dim NMkId
    Dim NomenclatureBatchs
    Dim SingleNomenclatureBatch
    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 NomenclatureBatchs = TCSApp.Inventory.NomenclatureBatchs( NMkId )
            If NomenclatureBatchs.RunModuleForSelect("Выберите номенклатурную партию", False) Then
            
                Set SingleNomenclatureBatch = TCSApp.Inventory.SingleNomenclatureBatchFromID( NomenclatureBatchs.Properties("ID").AsInteger )
                I = SingleNomenclatureBatch.ShowModal("Партия номенклатуры")
                Set SingleNomenclatureBatch = Nothing
            
            End If
            
            Set NomenclatureBatchs = Nothing
            
        End If
    End If
End Sub