Imports EgtUILib

Public Class ChooseMachining

   ' Riferimento alla MainWindow
   Private m_MainWindow As MainWindow = Application.Current.MainWindow
   Private m_CurrentMachine As CurrentMachine = m_MainWindow.m_CurrentMachine
   ' Liste che contengono gli elementi appartenenti alle ComboBox
   Private m_SawingList As New List(Of String)
   Private m_AuxMachTypeList As New List(Of StringIdCmBx)
   Private m_DrillingList As New List(Of String)
   Private m_MillingList As New List(Of String)
   ' Numero righe della finestra, necessario per non ridimensionarla quando si cambia il tipo di utensile ausiliario
   Private m_RowNumber As Integer = 6

   Sub New(Owner As Window)
      Me.Owner = Owner
      InitializeComponent()
      ShowDialog()
   End Sub

   Private Sub ChooseMachining_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
      Me.Top = Owner.Top + Owner.Height / 2 - Me.Height / 2
      Me.Left = Owner.Left + Owner.Width / 2 - Me.Width / 2
      CurrSawingCmBx.ItemsSource = m_SawingList
      AuxiliaryMachiningCmBx.ItemsSource = m_AuxMachTypeList
      CurrDrillingCmBx.ItemsSource = m_DrillingList
      CurrMillingCmBx.ItemsSource = m_MillingList

      CurrSawingTxBl.Text = EgtMsg(MSG_CHOOSEMACHININGPAGEUC + 1)
      AuxiliaryMachiningTxBl.Text = EgtMsg(MSG_CHOOSEMACHININGPAGEUC + 2)
      CurrDrillingTxBl.Text = EgtMsg(MSG_CHOOSEMACHININGPAGEUC + 3)
      CurrMillingTxBl.Text = EgtMsg(MSG_CHOOSEMACHININGPAGEUC + 4)

   End Sub

   Private Sub ChooseMachining_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
      InitializeMachiningLists()
   End Sub

   Private Sub InitializeMachiningLists()

      'Creo lista lavorazioni di lama
      CreateMachiningList(MCH_MY.SAWING, m_CurrentMachine.sCurrSaw, m_SawingList)

      ' Verifico la configurazione della macchina per creare i combobox
      Select Case m_CurrentMachine.MountedToolConfig
         Case CurrentMachine.MountedToolConfigs.SAW
            ChooseMachiningGrid.Children.Remove(AuxiliaryMachiningTxBl)
            ChooseMachiningGrid.Children.Remove(AuxiliaryMachiningCmBx)
         Case CurrentMachine.MountedToolConfigs.SAWANDAUXTOOL, CurrentMachine.MountedToolConfigs.MANUALTOOLCHANGER, CurrentMachine.MountedToolConfigs.TOOLCHANGER
            'Creo lista lavorazioni froretto e fresa
            If m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.SAWANDAUXTOOL Then
               CreateMachiningList(MCH_MY.DRILLING, m_CurrentMachine.sCurrDrill, m_DrillingList)
               CreateMachiningList(MCH_MY.MILLING, m_CurrentMachine.sCurrMill, m_MillingList)
            ElseIf m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.MANUALTOOLCHANGER Or m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.TOOLCHANGER Then
               CreateMachiningList(MCH_MY.DRILLING, m_DrillingList)
               CreateMachiningList(MCH_MY.MILLING, m_MillingList)
            End If
            ' Definizione di due righe della tabella con la giusta altezza
            For Index = 0 To 1
               Dim Row As New RowDefinition
               Row.Height = New GridLength(0.5, GridUnitType.Star)
               ChooseMachiningGrid.RowDefinitions.Add(Row)
            Next
            AuxiliaryMachiningTxBl.SetValue(Grid.RowProperty, 2)
            AuxiliaryMachiningCmBx.SetValue(Grid.RowProperty, 3)
            ButtonsGrid.SetValue(Grid.RowProperty, 5)
            AuxiliaryMachiningTxBl.Visibility = Windows.Visibility.Visible
            AuxiliaryMachiningCmBx.Visibility = Windows.Visibility.Visible
            Me.Height = 341.2
            m_RowNumber += 2
      End Select
      CurrSawingCmBx.SelectedItem = If(Not IsNothing(m_SawingList(0)), m_SawingList(0), Nothing)

      If Not m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.SAW Then
         If m_CurrentMachine.bDrilling Then
            m_AuxMachTypeList.Add(New StringIdCmBx(2, EgtMsg(MSG_CHOOSEMACHININGPAGEUC + 12)))
            If m_CurrentMachine.bMilling Then
               m_AuxMachTypeList.Add(New StringIdCmBx(1, EgtMsg(MSG_CHOOSEMACHININGPAGEUC + 11)))
               If m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.MANUALTOOLCHANGER Or m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.TOOLCHANGER Then
                  m_AuxMachTypeList.Add(New StringIdCmBx(3, EgtMsg(MSG_CHOOSEMACHININGPAGEUC + 13)))
               End If
            End If
         Else
            If m_CurrentMachine.bMilling Then
               m_AuxMachTypeList.Add(New StringIdCmBx(1, EgtMsg(MSG_CHOOSEMACHININGPAGEUC + 11)))
            End If
         End If
         ' Aggiungo nessuna come ultimo elemento della lista
         m_AuxMachTypeList.Add(New StringIdCmBx(0, EgtMsg(MSG_CHOOSEMACHININGPAGEUC + 10)))

         If m_CurrentMachine.sCurrDrilling <> String.Empty Then
            If m_CurrentMachine.sCurrMilling <> String.Empty Then
               AuxiliaryMachiningCmBx.SelectedItem = StringIdCmBx.FromIdToStringIdCmBx(3, m_AuxMachTypeList)
            Else
               AuxiliaryMachiningCmBx.SelectedItem = StringIdCmBx.FromIdToStringIdCmBx(1, m_AuxMachTypeList)
            End If
         Else
            If m_CurrentMachine.sCurrMilling <> String.Empty Then
               AuxiliaryMachiningCmBx.SelectedItem = StringIdCmBx.FromIdToStringIdCmBx(2, m_AuxMachTypeList)
            Else
               AuxiliaryMachiningCmBx.SelectedItem = StringIdCmBx.FromIdToStringIdCmBx(0, m_AuxMachTypeList)
            End If
         End If
      End If

   End Sub

   Private Sub CreateMachiningList(MachiningType As Integer, CurrTool As String, MachiningList As List(Of String))
      'Cerco tutte le lavorazioni che utilizzano l'utensile corrente e le aggiungo alla lista
      Dim MachiningTool As String = String.Empty
      Dim MachiningName As String = String.Empty
      If EgtMdbGetFirstMachining(MachiningType, MachiningName) Then
         EgtMdbSetCurrMachining(MachiningName)
         EgtMdbGetCurrMachiningParam(MCH_MP.TOOL, MachiningTool)
         If MachiningTool = CurrTool Then
            MachiningList.Add(MachiningName)
         End If
         While EgtMdbGetNextMachining(MachiningType, MachiningName)
            EgtMdbSetCurrMachining(MachiningName)
            EgtMdbGetCurrMachiningParam(MCH_MP.TOOL, MachiningTool)
            If MachiningTool = CurrTool Then
               MachiningList.Add(MachiningName)
            End If
         End While
      End If

   End Sub

   Private Sub CreateMachiningList(MachiningType As Integer, MachiningList As List(Of String))
      'Cerco tutte le lavorazioni che utilizzano un utensile presente nel portautensile e le aggiungo alla lista
      Dim MachiningTool As String = String.Empty
      Dim MachiningName As String = String.Empty
      Dim ToolFound As Boolean = False
      If EgtMdbGetFirstMachining(MachiningType, MachiningName) Then
         EgtMdbSetCurrMachining(MachiningName)
         EgtMdbGetCurrMachiningParam(MCH_MP.TOOL, MachiningTool)
         For Each ToolChangerPos In m_CurrentMachine.ToolChanger
            If MachiningTool = ToolChangerPos.sTool Then
               MachiningList.Add(MachiningName)
               ToolFound = True
               Exit For
            End If
         Next
         If Not ToolFound Then
            For Each ToolChangerPos In m_CurrentMachine.ManualToolChanger
               If MachiningTool = ToolChangerPos.sTool Then
                  MachiningList.Add(MachiningName)
                  Exit For
               End If
            Next
         End If
         While EgtMdbGetNextMachining(MachiningType, MachiningName)
            ToolFound = False
            EgtMdbSetCurrMachining(MachiningName)
            EgtMdbGetCurrMachiningParam(MCH_MP.TOOL, MachiningTool)
            For Each ToolChangerPos In m_CurrentMachine.ToolChanger
               If MachiningTool = ToolChangerPos.sTool Then
                  MachiningList.Add(MachiningName)
                  ToolFound = True
                  Exit For
               End If
            Next
            If Not ToolFound Then
               For Each ToolChangerPos In m_CurrentMachine.ManualToolChanger
                  If MachiningTool = ToolChangerPos.sTool Then
                     MachiningList.Add(MachiningName)
                     Exit For
                  End If
               Next
            End If
         End While
      End If

   End Sub

   Private Sub AuxiliaryMachiningCmBx_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles AuxiliaryMachiningCmBx.SelectionChanged
      Dim SelectedItem As StringIdCmBx = AuxiliaryMachiningCmBx.SelectedItem
      Select Case SelectedItem.nId
         Case 0
            If m_RowNumber > 8 Then
               For Index = m_RowNumber - 1 To 8 Step -1
                  ChooseMachiningGrid.RowDefinitions.RemoveAt(Index)
               Next
               m_RowNumber = 8
            End If
            ButtonsGrid.SetValue(Grid.RowProperty, 5)
            m_MainWindow.m_CurrentMachine.sCurrDrilling = String.Empty
            m_MainWindow.m_CurrentMachine.sCurrMilling = String.Empty
            CurrDrillingTxBl.Visibility = Windows.Visibility.Hidden
            CurrDrillingCmBx.Visibility = Windows.Visibility.Hidden
            CurrMillingTxBl.Visibility = Windows.Visibility.Hidden
            CurrMillingCmBx.Visibility = Windows.Visibility.Hidden
            Me.Height = 341.2
         Case 1
            ' Definizione di due righe della tabella con la giusta altezza
            If m_RowNumber < 10 Then
               For Index = 1 To 10 - m_RowNumber
                  Dim Row As New RowDefinition
                  Row.Height = New GridLength(0.5, GridUnitType.Star)
                  ChooseMachiningGrid.RowDefinitions.Add(Row)
               Next
               m_RowNumber = 10
            End If
            CurrDrillingTxBl.SetValue(Grid.RowProperty, 4)
            CurrDrillingCmBx.SetValue(Grid.RowProperty, 5)
            ButtonsGrid.SetValue(Grid.RowProperty, 7)
            If m_CurrentMachine.sCurrDrilling <> String.Empty Then
               CurrDrillingCmBx.SelectedItem = m_CurrentMachine.sCurrDrilling
            End If
            m_MainWindow.m_CurrentMachine.sCurrMilling = String.Empty
            CurrDrillingTxBl.Visibility = Windows.Visibility.Visible
            CurrDrillingCmBx.Visibility = Windows.Visibility.Visible
            CurrMillingTxBl.Visibility = Windows.Visibility.Hidden
            CurrMillingCmBx.Visibility = Windows.Visibility.Hidden
            Me.Height = 426.5
         Case 2
            ' Definizione di due righe della tabella con la giusta altezza
            If m_RowNumber < 10 Then
               For Index = 1 To 10 - m_RowNumber
                  Dim Row As New RowDefinition
                  Row.Height = New GridLength(0.5, GridUnitType.Star)
                  ChooseMachiningGrid.RowDefinitions.Add(Row)
               Next
               m_RowNumber = 10
            End If
            CurrMillingTxBl.SetValue(Grid.RowProperty, 4)
            CurrMillingCmBx.SetValue(Grid.RowProperty, 5)
            ButtonsGrid.SetValue(Grid.RowProperty, 7)
            If m_CurrentMachine.sCurrMilling <> String.Empty Then
               CurrMillingCmBx.SelectedItem = m_CurrentMachine.sCurrMilling
            End If
            m_MainWindow.m_CurrentMachine.sCurrDrilling = String.Empty
            CurrDrillingTxBl.Visibility = Windows.Visibility.Hidden
            CurrDrillingCmBx.Visibility = Windows.Visibility.Hidden
            CurrMillingTxBl.Visibility = Windows.Visibility.Visible
            CurrMillingCmBx.Visibility = Windows.Visibility.Visible
            Me.Height = 426.5
         Case 3
            ' Definizione di quattro righe della tabella con la giusta altezza
            If m_RowNumber < 12 Then
               For Index = 1 To 12 - m_RowNumber
                  Dim Row As New RowDefinition
                  Row.Height = New GridLength(0.5, GridUnitType.Star)
                  ChooseMachiningGrid.RowDefinitions.Add(Row)
               Next
               m_RowNumber = 12
            End If
            If m_CurrentMachine.sCurrDrilling <> String.Empty Then
               CurrDrillingCmBx.SelectedItem = m_CurrentMachine.sCurrDrilling
            End If
            If m_CurrentMachine.sCurrMilling <> String.Empty Then
               CurrMillingCmBx.SelectedItem = m_CurrentMachine.sCurrMilling
            End If
            CurrDrillingTxBl.SetValue(Grid.RowProperty, 4)
            CurrDrillingCmBx.SetValue(Grid.RowProperty, 5)
            CurrMillingTxBl.SetValue(Grid.RowProperty, 6)
            CurrMillingCmBx.SetValue(Grid.RowProperty, 7)
            ButtonsGrid.SetValue(Grid.RowProperty, 9)
            CurrDrillingTxBl.Visibility = Windows.Visibility.Visible
            CurrDrillingCmBx.Visibility = Windows.Visibility.Visible
            CurrMillingTxBl.Visibility = Windows.Visibility.Visible
            CurrMillingCmBx.Visibility = Windows.Visibility.Visible
            Me.Height = 511.8
      End Select
   End Sub

   Private Sub CurrSawingCmBx_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles CurrSawingCmBx.SelectionChanged
      m_MainWindow.m_CurrentMachine.sCurrSawing = CurrSawingCmBx.SelectedItem
   End Sub

   Private Sub CurrDrillingCmBx_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles CurrDrillingCmBx.SelectionChanged
      m_MainWindow.m_CurrentMachine.sCurrDrilling = CurrDrillingCmBx.SelectedItem
   End Sub

   Private Sub CurrMillingCmBx_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles CurrMillingCmBx.SelectionChanged
      m_MainWindow.m_CurrentMachine.sCurrMilling = CurrMillingCmBx.SelectedItem
   End Sub

   Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
      DialogResult = True
   End Sub

   Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
      DialogResult = False
   End Sub

End Class

Class StringIdCmBx

   Private m_nId As Integer
   Private m_sName As String

   Friend Shared Function FromIdToStringIdCmBx(nId As Integer, List As List(Of StringIdCmBx)) As StringIdCmBx
      For Each Item In List
         If Item.nId = nId Then
            Return Item
         End If
      Next
      Return Nothing
   End Function

   Friend ReadOnly Property nId As Integer
      Get
         Return m_nId
      End Get
   End Property

   Public ReadOnly Property sName As String
      Get
         Return m_sName
      End Get
   End Property

   Sub New(Id As Integer, sName As String)
      m_nId = Id
      m_sName = sName
   End Sub

End Class