egtbeamwall/EgtBEAMWALL.ViewerOptimizer/AddPartWnd/AddPartWndVM.vb

Imports EgtWPFLib5
Imports EgtUILib
Imports EgtBEAMWALL.Core

Public Class AddPartWndVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Friend Event m_CloseWindow(bDialogResult As Boolean)

   Private m_nPDN As Integer
   Public Property nPDN As Integer
      Get
         Return m_nPDN
      End Get
      Set(value As Integer)
         m_nPDN = value
      End Set
   End Property

   Private m_sNAM As String
   Public Property sNAM As String
      Get
         Return m_sNAM
      End Get
      Set(value As String)
         m_sNAM = value
      End Set
   End Property

   Private m_dL As Double
   Public ReadOnly Property dL As Double
      Get
         Return m_dL
      End Get
   End Property
   Public Property sL As String
      Get
         Return LenToString(m_dL, 3)
      End Get
      Set(value As String)
         Dim dTempL As Double
         If StringToLenAdv(value, dTempL, True) AndAlso dTempL > 0 Then
            m_dL = dTempL
         Else
            NotifyPropertyChanged("sL")
         End If
      End Set
   End Property

   Private m_dW As Double
   Public ReadOnly Property dW As Double
      Get
         Return m_dW
      End Get
   End Property
   Public Property sW As String
      Get
         Return LenToString(m_dW, 3)
      End Get
      Set(value As String)
         Dim dTempW As Double
         If StringToLenAdv(value, dTempW, True) AndAlso dTempW > 0 Then
            EgtDraw()
            m_dW = dTempW
         Else
            NotifyPropertyChanged("sW")
         End If
      End Set
   End Property

   Private m_dH As Double
   Public ReadOnly Property dH As Double
      Get
         Return m_dH
      End Get
   End Property
   Public Property sH As String
      Get
         Return LenToString(m_dH, 3)
      End Get
      Set(value As String)
         Dim dTempH As Double
         If StringToLenAdv(value, dTempH, True) AndAlso dTempH > 0 Then
            EgtDraw()
            m_dH = dTempH
         Else
            NotifyPropertyChanged("sH")
         End If
      End Set
   End Property

   Private m_WarehouseMaterialList As New List(Of String)
   Public ReadOnly Property WarehouseMaterialList As List(Of String)
      Get
         Return m_WarehouseMaterialList
      End Get
   End Property

   Private m_sSelWarehouseMaterial As String
   Public Property sSelWarehouseMaterial As String
      Get
         Return m_sSelWarehouseMaterial
      End Get
      Set(value As String)
         m_sSelWarehouseMaterial = value
      End Set
   End Property

   Private m_sNewMaterialName As String
   Public Property sNewMaterialName As String
      Get
         Return m_sNewMaterialName
      End Get
      Set(value As String)
         m_sNewMaterialName = value
      End Set
   End Property

   Private m_bNewName_IsChecked As Boolean = False
   Public Property bNewName_IsChecked As Boolean
      Get
         Return m_bNewName_IsChecked
      End Get
      Set(value As Boolean)
         m_bNewName_IsChecked = value
      End Set
   End Property

   Private m_nCNT As Integer
   Public ReadOnly Property nCNT As Integer
      Get
         Return m_nCNT
      End Get
   End Property
   Public Property sCNT As String
      Get
         Return m_nCNT
      End Get
      Set(value As String)
         Dim nTempCNT As Integer
         If Integer.TryParse(value, nTempCNT) AndAlso nTempCNT > 0 Then
            m_nCNT = nTempCNT
         Else
            NotifyPropertyChanged("sCNT")
         End If
      End Set
   End Property

   ' Definizione comandi
   Private m_cmdOk As ICommand

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New()
      ' recupero la lista dei materiali presenti in Warehouse
      Dim WhSectXMatList As List(Of SectionXMaterial) = WarehouseWndVM.GetSectionXMaterialsFromWarehouse()
      m_WarehouseMaterialList = WhSectXMatList.Select(Function(x) x.MaterialM.sWarehouseMaterial).Distinct().ToList()
      ' imposto valori di default
      If Not IsNothing(Map.refProjectVM.BTLStructureVM.BTLPartVMList) Then
         If Map.refProjectVM.BTLStructureVM.SelBTLParts.Count > 0 Then
            m_dW = Map.refProjectVM.BTLStructureVM.SelBTLParts(0).dW
            m_dH = Map.refProjectVM.BTLStructureVM.SelBTLParts(0).dH
            m_dL = Map.refProjectVM.BTLStructureVM.SelBTLParts(0).dL
            m_sSelWarehouseMaterial = m_WarehouseMaterialList.FirstOrDefault(Function(x) x = Map.refProjectVM.BTLStructureVM.SelBTLParts(0).sWAREHOUSEMATERIAL)
         ElseIf Map.refProjectVM.BTLStructureVM.BTLPartVMList.Count > 0 Then
            m_dW = Map.refProjectVM.BTLStructureVM.BTLPartVMList(0).dW
            m_dH = Map.refProjectVM.BTLStructureVM.BTLPartVMList(0).dH
            m_dL = Map.refProjectVM.BTLStructureVM.BTLPartVMList(0).dL
            m_sSelWarehouseMaterial = m_WarehouseMaterialList.FirstOrDefault(Function(x) x = Map.refProjectVM.BTLStructureVM.BTLPartVMList(0).sWAREHOUSEMATERIAL)
         End If
         m_nPDN = Map.refProjectVM.BTLStructureVM.BTLStructureM.NewPDN()
      End If
      m_nCNT = 1
   End Sub

#End Region    ' CONSTRUCTOR

#Region "COMMANDS"

#Region "Ok"

   Public ReadOnly Property Ok_Command As ICommand
      Get
         If m_cmdOk Is Nothing Then
            m_cmdOk = New Command(AddressOf Ok)
         End If
         Return m_cmdOk
      End Get
   End Property

   Public Sub Ok()
      'verifico che tutti i campi contengano un valore valido
      If Not IsNothing(m_dL) AndAlso m_dL > 0 AndAlso
         Not IsNothing(m_dW) AndAlso m_dW >= 0 AndAlso
         Not IsNothing(m_dH) AndAlso m_dH >= 0 Then
         RaiseEvent m_CloseWindow(True)
      Else
         MessageBox.Show(EgtMsg(61853), EgtMsg(30007))
      End If
   End Sub

#End Region ' Ok

#End Region    ' COMMANDS

End Class