EgtDOORCreator/Order/OrderVM.vb

Imports EgtWPFLib5
Imports EgtUILib

Public Class OrderVM
   Inherits VMBase

#Region "Messages"

   Public ReadOnly Property Title As String
      Get
         ' Order
         Return EgtMsg(50068)
      End Get
   End Property

   Public ReadOnly Property CustomerMsg As String
      Get
         ' Customer
         Return EgtMsg(50070)
      End Get
   End Property
   Public ReadOnly Property ElevationMsg As String
      Get
         ' Elevation
         Return EgtMsg(50406)
      End Get
   End Property
   Public ReadOnly Property ProjectMsg As String
      Get
         ' Project
         Return EgtMsg(50407)
      End Get
   End Property
   Public ReadOnly Property POMsg As String
      Get
         ' PO
         Return EgtMsg(50408)
      End Get
   End Property
   Public ReadOnly Property LineMsg As String
      Get
         ' Line
         Return EgtMsg(50409)
      End Get
   End Property

   Public ReadOnly Property WeightMsg As String
      Get
         ' Weight
         Return EgtMsg(50047)
      End Get
   End Property

   Public ReadOnly Property SaveMsg As String
      Get
         ' Save 
         Return EgtMsg(50410)
      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