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 ReadOnly Property IsReadOnly As Boolean
      Get
         Return OptionModule.ReadOnlyDDF
      End Get
   End Property

   Public Property Customer As String
      Get
         If IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) AndAlso
            Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.ListPartDoor.Count > 0 Then Return Nothing
         Return Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.ListPartDoor(0).Door.Customer
      End Get
      Set(value As String)
         Dim CurrAssembly As Assembly = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly
         For Each ItemPartDoor In CurrAssembly.ListPartDoor
            ItemPartDoor.Door.Customer = value
         Next
         Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
      End Set
   End Property

   Public Property Elevation As String
      Get
         If IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) AndAlso
            Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.ListPartDoor.Count > 0 Then Return Nothing
         Return Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.ListPartDoor(0).Door.Elevation
      End Get
      Set(value As String)
         Dim CurrAssembly As Assembly = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly
         For Each ItemPartDoor In CurrAssembly.ListPartDoor
            ItemPartDoor.Door.Elevation = value
         Next
         Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
      End Set
   End Property

   Public Property Project As String
      Get
         If IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) AndAlso
            Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.ListPartDoor.Count > 0 Then Return Nothing
         Return Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.ListPartDoor(0).Door.Project
      End Get
      Set(value As String)
         Dim CurrAssembly As Assembly = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly
         For Each ItemPartDoor In CurrAssembly.ListPartDoor
            ItemPartDoor.Door.Project = value
         Next
         Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
      End Set
   End Property

   Public Property PO As String
      Get
         If IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) AndAlso
            Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.ListPartDoor.Count > 0 Then Return Nothing
         Return Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.ListPartDoor(0).Door.PO
      End Get
      Set(value As String)
         Dim CurrAssembly As Assembly = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly
         For Each ItemPartDoor In CurrAssembly.ListPartDoor
            ItemPartDoor.Door.PO = value
         Next
         Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
      End Set
   End Property

   Public Property Line As String
      Get
         If IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) AndAlso
            Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.ListPartDoor.Count > 0 Then Return Nothing
         Return Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly.ListPartDoor(0).Door.Line
      End Get
      Set(value As String)
         Dim CurrAssembly As Assembly = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.SelAssembly
         For Each ItemPartDoor In CurrAssembly.ListPartDoor
            ItemPartDoor.Door.Line = value
         Next
         Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
      End Set
   End Property

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

End Class