Sub Test()
    Dim SingleProductionBOM
    Dim ProductionBOMList
    Dim I
    Dim NMks
    Dim NmkSpecVer
    Dim NmkVer_ID
    If TCSApp.Manufacturing.ProductionBOM.RunModuleForSelect("Выберите производственную спецификацию", False) Then
        Set ProductionBOMList = TCSApp.Manufacturing.ProductionBOM.Properties("ProductionBOMList").AsIDispatch
            If TCSApp.NmkClasses.RunModuleForSelect("Выберите класс", False) Then
                Set NMks = TCSApp.Nomenclatures(TCSApp.NmkClasses.Properties("ID").AsInteger)
                If NMks.RunModuleForSelect("Выберите номенклатуру", False) Then
                
                    ProductionBOMList.CreateNew
                    ProductionBOMList.Properties("NMK_ID").Value = NMks.Properties("ID").AsInteger
                    ProductionBOMList.SaveChanges
                
                    Set NmkSpecVer = TCSApp.NMkSpecificationVersions(NMks.Properties("ID").AsInteger)
                    If NmkSpecVer.RunModuleForSelect("Выберите версию спецификации", False) Then
                        NmkVer_ID = NmkSpecVer.Properties("ID").AsInteger
                        Call ProductionBOMList.LoadProductionBOMStructureFromVersion( NmkVer_ID )
                        I = ProductionBOMList.ShowModal("Перечень ПСп")
                    End If
                    Set NmkSpecVer = Nothing
                End If
                Set NMks = Nothing
            End If
        Set ProductionBOMList = Nothing
    End If
End Sub