Sub Test()
    Dim DepartmentID
    Dim BalanceNmkCardsByPlantDepartment
    If TCSApp.PlantDepartments.RunModuleForSelect("Выберите цех/участок", False) Then
        DepartmentID = TCSApp.PlantDepartments.Properties("ID").AsInteger
        
        Set BalanceNmkCardsByPlantDepartment = TCSApp.Inventory.BalanceNmkCardsByPlantDepartment( DepartmentID )
        I = BalanceNmkCardsByPlantDepartment.ShowModal("Общий список учетных карточек")
        Set BalanceNmkCardsByPlantDepartment = Nothing
    
    End If
End Sub