Sub Test()
    Dim ProductionBOMStructure
    Dim I
    If TCSApp.Manufacturing.ProductionBOM.RunModuleForSelect("Выберите производственную спецификацию", False) Then
        Set ProductionBOMStructure = TCSApp.Manufacturing.ProductionBOM.Properties("ProductionBOMStructure").AsIDispatch
        I = ProductionBOMStructure.ShowModal("Состав ПСп")
        Set ProductionBOMStructure = Nothing
    End If
    
End Sub