EgtDOORCreator/Order/OrderVM.vb

Imports EgtWPFLib5

Public Class OrderVM
   Inherits VMBase

#Region "Messages"

   Public ReadOnly Property Title As String
      Get
         Return "Order"
      End Get
   End Property

   Public ReadOnly Property CustomerMsg As String
      Get
         Return "Customer"
      End Get
   End Property
   Public ReadOnly Property ElevationMsg As String
      Get
         Return "Elevation"
      End Get
   End Property
   Public ReadOnly Property ProjectMsg As String
      Get
         Return "Project"
      End Get
   End Property
   Public ReadOnly Property POMsg As String
      Get
         Return "PO"
      End Get
   End Property
   Public ReadOnly Property LineMsg As String
      Get
         Return "Line"
      End Get
   End Property

   Public ReadOnly Property ConfigurationPageMsg As String
      Get
         Return "Configuration"
      End Get
   End Property

   Public ReadOnly Property SaveMsg As String
      Get
         Return "Save"
      End Get
   End Property

#End Region    ' Messages

   Public Property Customer As String
      Get
         If IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) Then Return Nothing
         Return Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.GetArrayPartDoor(0).Door.Customer
      End Get
      Set(value As String)
         Dim CurrAssembly As Assembly = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly
         CurrAssembly.GetArrayPartDoor(0).Door.Customer = value
         CurrAssembly.GetArrayPartDoor(1).Door.Customer = value
         CurrAssembly.LeftJamb.Customer = value
         CurrAssembly.RightJamb.Customer = value
         CurrAssembly.TopJamb.Customer = value
         CurrAssembly.BottomJamb.Customer = value
         Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
      End Set
   End Property

   Public Property Elevation As String
      Get
         If IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) Then Return Nothing
         Return Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.GetArrayPartDoor(0).Door.Elevation
      End Get
      Set(value As String)
         Dim CurrAssembly As Assembly = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly
         CurrAssembly.GetArrayPartDoor(0).Door.Elevation = value
         CurrAssembly.GetArrayPartDoor(1).Door.Elevation = value
         CurrAssembly.LeftJamb.Elevation = value
         CurrAssembly.RightJamb.Elevation = value
         CurrAssembly.TopJamb.Elevation = value
         CurrAssembly.BottomJamb.Elevation = value
         Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
      End Set
   End Property

   Public Property Project As String
      Get
         If IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) Then Return Nothing
         Return Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.GetArrayPartDoor(0).Door.Project
      End Get
      Set(value As String)
         Dim CurrAssembly As Assembly = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly
         CurrAssembly.GetArrayPartDoor(0).Door.Project = value
         CurrAssembly.GetArrayPartDoor(1).Door.Project = value
         CurrAssembly.LeftJamb.Project = value
         CurrAssembly.RightJamb.Project = value
         CurrAssembly.TopJamb.Project = value
         CurrAssembly.BottomJamb.Project = value
         Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
      End Set
   End Property

   Public Property PO As String
      Get
         If IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) Then Return Nothing
         Return Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.GetArrayPartDoor(0).Door.PO
      End Get
      Set(value As String)
         Dim CurrAssembly As Assembly = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly
         CurrAssembly.GetArrayPartDoor(0).Door.PO = value
         CurrAssembly.GetArrayPartDoor(1).Door.PO = value
         CurrAssembly.LeftJamb.PO = value
         CurrAssembly.RightJamb.PO = value
         CurrAssembly.TopJamb.PO = value
         CurrAssembly.BottomJamb.PO = value
         Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
      End Set
   End Property

   Public Property Line As String
      Get
         If IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) Then Return Nothing
         Return Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.GetArrayPartDoor(0).Door.Line
      End Get
      Set(value As String)
         Dim CurrAssembly As Assembly = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly
         CurrAssembly.GetArrayPartDoor(0).Door.Line = value
         CurrAssembly.GetArrayPartDoor(1).Door.Line = value
         CurrAssembly.LeftJamb.Line = value
         CurrAssembly.RightJamb.Line = value
         CurrAssembly.TopJamb.Line = value
         CurrAssembly.BottomJamb.Line = value
         Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
      End Set
   End Property

   Sub New()
      Map.SetRefOrderVM(Me)
   End Sub

End Class