egtbeamwall/EgtBEAMWALL.Core/Utility/SectionXMaterial.vb

Imports System.Windows
Imports EgtUILib
Imports EgtWPFLib5

Public Class SectionXMaterial
   Inherits VMBase

   Private Shared m_nType As BWType
   Public Shared ReadOnly Property nType As BWType
      Get
         Return m_nType
      End Get
   End Property
   Public Shared Sub SetType(nType As BWType)
      m_nType = nType
   End Sub

   Public ReadOnly Property sMaterial As String
      Get
         Return m_MaterialM.sMaterial
      End Get
   End Property

   Public ReadOnly Property sWarehouseMaterial As String
      Get
         Return m_MaterialM.sWarehouseMaterial
      End Get
   End Property

   'Protected m_MaterialForSameSection_List As New List(Of String)
   'Public Property MaterialForSameSection_List As List(Of String)
   '   Get
   '      Return m_MaterialForSameSection_List
   '   End Get
   '   Set(value As List(Of String))
   '      m_MaterialForSameSection_List = value
   '   End Set
   'End Property

   'Protected m_SelMaterialForSameSection As String
   'Public Property SelMaterialForSameSection As String
   '   Get
   '      Return m_SelMaterialForSameSection
   '   End Get
   '   Set(value As String)
   '      m_SelMaterialForSameSection = value
   '   End Set
   'End Property

   Protected m_MaterialM As MaterialM
   Public ReadOnly Property MaterialM As MaterialM
      Get
         Return m_MaterialM
      End Get
   End Property

   Public ReadOnly Property dW As Double
      Get
         Return m_MaterialM.dW
      End Get
   End Property

   Public ReadOnly Property dH As Double
      Get
         Return m_MaterialM.dH
      End Get
   End Property

   Public ReadOnly Property dL As Double
      Get
         Return m_MaterialM.dL
      End Get
   End Property

   Public ReadOnly Property sSectionXMaterial As String
      Get
         If Me = Empty Then
            Return ""
         ElseIf m_nType = MachineType.BEAM Then
            Return LenToString(m_MaterialM.dW, 3) & " x " & LenToString(m_MaterialM.dH, 3) & " " & If(GetMainPrivateProfileInt(S_WAREHOUSE, K_SHOWWAREHOUSEMATERIAL, 0) = 1, sWarehouseMaterial, sMaterial)
         ElseIf m_nType = MachineType.WALL Then
            Return LenToString(m_MaterialM.dH, 3) & " " & If(GetMainPrivateProfileInt(S_WAREHOUSE, K_SHOWWAREHOUSEMATERIAL, 0) = 1, sWarehouseMaterial, sMaterial)
         Else Return ""
         End If
      End Get
   End Property

   Public ReadOnly Property sWarehouseSectionXMaterial As String
      Get
         If Me = Empty Then
            Return ""
         ElseIf m_nType = MachineType.BEAM Then
            Return LenToString(m_MaterialM.dW, 3) & " x " & LenToString(m_MaterialM.dH, 3) & " " & sWarehouseMaterial
         ElseIf m_nType = MachineType.WALL Then
            Return LenToString(m_MaterialM.dH, 3) & " " & sWarehouseMaterial
         Else Return ""
         End If
      End Get
   End Property

   Shared Operator =(ByVal S1 As SectionXMaterial, ByVal S2 As SectionXMaterial) As Boolean
      Return S1.m_MaterialM = S2.m_MaterialM
   End Operator

   Shared Operator <>(ByVal S1 As SectionXMaterial, ByVal S2 As SectionXMaterial) As Boolean
      Return Not S1 = S2
   End Operator

   Public Overrides Function Equals(ByVal obj As Object) As Boolean
      If TypeOf obj Is SectionXMaterial Then
         Return Me = DirectCast(obj, SectionXMaterial) '(m_dH = obj.dH AndAlso m_dW = obj.dW AndAlso m_dL = obj.dL AndAlso m_Material.Any(Function(x) DirectCast(obj.sMaterial, List(Of String)).Any(Function(y) y = x)))
      End If
      Return False
   End Function

   Sub New(dW As Double, dH As Double, dL As Double, sMaterial As String, sWarehouseMaterial As String)
      If m_nType = BWType.BEAM Then
         m_MaterialM = New MaterialM(dW, dH, 0, sMaterial, sWarehouseMaterial)
      ElseIf m_nType = BWType.WALL Then
         m_MaterialM = New MaterialM(0, dH, 0, sMaterial, sWarehouseMaterial)
      Else
         m_MaterialM = New MaterialM(dW, dH, dL, sMaterial, sWarehouseMaterial)
      End If
   End Sub

   Sub New(MaterialM As MaterialM)
      m_MaterialM = MaterialM
   End Sub

   Public Shared Empty As New SectionXMaterial(-1, -1, -1, "", "")

   '#Region "Import BTL <-> Warehouse"

   '   Private m_dNewW As Double
   '   Public Property dNewW As Double
   '      Get
   '         Return m_dNewW
   '      End Get
   '      Set(value As Double)
   '         m_dNewW = value
   '      End Set
   '   End Property

   '   Private m_dNewL As Double
   '   Public Property dNewL As Double
   '      Get
   '         Return m_dNewL
   '      End Get
   '      Set(value As Double)
   '         m_dNewL = value
   '      End Set
   '   End Property

   '   Private m_nQuantity As Integer
   '   Public Property nQuantity As Integer
   '      Get
   '         Return m_nQuantity
   '      End Get
   '      Set(value As Integer)
   '         m_nQuantity = value
   '      End Set
   '   End Property

   '   Private m_Alias_IsEnabled As Boolean
   '   Public Property Alias_IsEnabled As Boolean
   '      Get
   '         Return m_Alias_IsEnabled
   '      End Get
   '      Set(value As Boolean)
   '         m_Alias_IsEnabled = value
   '      End Set
   '   End Property

   '   Private m_Alias_IsChecked As Boolean
   '   Public Overridable Property Alias_IsChecked As Boolean
   '      Get
   '         Return m_Alias_IsChecked
   '      End Get
   '      Set(value As Boolean)
   '         m_Alias_IsChecked = value
   '      End Set
   '   End Property

   '   Public ReadOnly Property L_Msg As String
   '      Get
   '         Return EgtMsg(61604)
   '      End Get
   '   End Property

   '   Public ReadOnly Property W_Msg As String
   '      Get
   '         Return EgtMsg(61605)
   '      End Get
   '   End Property

   '   Public ReadOnly Property H_Msg As String
   '      Get
   '         Return EgtMsg(61606)
   '      End Get
   '   End Property

   '   Public ReadOnly Property Quantity_Msg As String
   '      Get
   '         Return EgtMsg(61774)
   '      End Get
   '   End Property

   '   Sub New(dW As Double, dH As Double, dL As Double, sMaterial As String, nQuantity As Integer, sWarehouseMaterial As String)
   '      If m_nType = BWType.BEAM Then
   '         m_MaterialM = New MaterialM(dW, dH, 0, sMaterial, sWarehouseMaterial)
   '      ElseIf m_nType = BWType.WALL Then
   '         m_MaterialM = New MaterialM(0, dH, 0, sMaterial, sWarehouseMaterial)
   '      Else
   '         m_MaterialM = New MaterialM(dW, dH, dL, sMaterial, sWarehouseMaterial)
   '      End If
   '      m_nQuantity = nQuantity
   '   End Sub

   '#End Region ' Import BTL <-> Warehouse

End Class