Imports System
Imports NorthwindVB.Models
Imports NorthwindVB.Domain
Imports NorthwindVB.BusinessObject
 
Namespace ViewModels.Base
 
     ''' <summary>
     ''' Base class for ProductsViewModel.  Do not make changes to this class,
     ''' instead, put additional code in the ProductsViewModel class 
     ''' </summary>
     Public Class ProductsViewModelBase
         Private _productsModel As Models.ProductsModel
         Private _operation As CrudOperation
         Private _viewControllerName As String
         Private _viewActionName As String
         Private _viewReturnUrl As String
         Private _suppliersDropDownListData As SuppliersCollection
         Private _categoriesDropDownListData As CategoriesCollection
 
         Public Property ProductsModel() As Models.ProductsModel
             Get
                 Return _productsModel
             End Get
             Set(ByVal value As Models.ProductsModel)
                 _productsModel = value
             End Set
         End Property
 
         Public Property Operation() As CrudOperation
             Get
                 Return _operation
             End Get
             Set(ByVal value As CrudOperation)
                 _operation = value
             End Set
         End Property
 
         Public Property ViewControllerName() As String
             Get
                 Return _viewControllerName
             End Get
             Set(ByVal value As String)
                 _viewControllerName = value
             End Set
         End Property
 
         Public Property ViewActionName() As String
             Get
                 Return _viewActionName
             End Get
             Set(ByVal value As String)
                 _viewActionName = value
             End Set
         End Property
 
         Public Property ViewReturnUrl() As String
             Get
                 Return _viewReturnUrl
             End Get
             Set(ByVal value As String)
                 _viewReturnUrl = value
             End Set
         End Property
 
         Public Property SuppliersDropDownListData() As SuppliersCollection
             Get
                 Return _suppliersDropDownListData
             End Get
             Set(ByVal value As SuppliersCollection)
                 _suppliersDropDownListData = value
             End Set
         End Property
 
         Public Property CategoriesDropDownListData() As CategoriesCollection
             Get
                 Return _categoriesDropDownListData
             End Get
             Set(ByVal value As CategoriesCollection)
                 _categoriesDropDownListData = value
             End Set
         End Property
     End Class 
End Namespace