Imports EgtUILib

Public Class MultiSelectionVM
   Inherits VMBase

   Private m_sRefGuidOfPart As String = String.Empty

   Public ReadOnly Property TitleMsg As String
      Get
         Return EgtMsg(91681)    ' Multiple selection
      End Get
   End Property
   Public ReadOnly Property SelectionMsg As String
      Get
         Return EgtMsg(91682)    ' Number of Parts
      End Get
   End Property

   Public ReadOnly Property OkMsg As String
      Get
         Return EgtMsg(91651)    ' Ok
      End Get
   End Property

   Public ReadOnly Property CancelMsg As String
      Get
         Return EgtMsg(91652)    ' Cancel
      End Get
   End Property

   Private m_MultiSelectionV As MultiSelectionV
   Public Sub SetMultiSelectionV(MultiSel As MultiSelectionV)
      m_MultiSelectionV = MultiSel
   End Sub

   Private m_nNbrOfParts As Integer
   Public Property nNbrOfParts As String
      Get
         Return m_nNbrOfParts.ToString
      End Get
      Set(value As String)
         Dim nVal As Integer = 0
         StringToInt(value, nVal)
         m_nNbrOfParts = nVal
         NotifyPropertyChanged("nNbrOfParts")
      End Set
   End Property

   Private m_cmdOk As ICommand
   Private m_cmdCancel As ICommand

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

   Public Sub OkCmd(ByVal param As Object)
      ' il numero di elementi indicato è corretto
      ' deseleziono il pezzo corrente
      DeselectPartInFaimily(m_sRefGuidOfPart)
      Select Case m_nNbrOfParts
         Case 0    ' Annulla
            ' continuo senza eseguire niente
         Case Else
            ' seleziono il numero di pezzi indicati
            SelectPartInFaimily(m_sRefGuidOfPart, m_nNbrOfParts)
      End Select
      ' chiudo la finestra
      m_MultiSelectionV.Close()
      EgtDraw()
   End Sub

   Public ReadOnly Property CancelCommand As ICommand
      Get
         If m_cmdCancel Is Nothing Then
            m_cmdCancel = New Command(AddressOf CancelCmd)
         End If
         Return m_cmdCancel
      End Get
   End Property

   Public Sub CancelCmd(ByVal param As Object)
      ' chiudo la fiestra senza eseguire niente
      m_MultiSelectionV.Close()
      EgtDraw()
   End Sub

   Sub New(CurrNumberOfParts As Integer, sRefGuid As String)
      m_nNbrOfParts = CurrNumberOfParts
      m_sRefGuidOfPart = sRefGuid
   End Sub
End Class