Imports EgtUILib
Imports EgtWPFLib5

Public Class MySetUpWindowVM
   Inherits SetUpWindowVM

#Region "CONSTRUCTOR"

   Sub New(sMachineDir As String, sMachineName As String)
      MyBase.New(sMachineDir, sMachineName, "Stone")
   End Sub
#End Region    ' CONSTRUCTOR

#Region "METHODS"

   ' Funzione che crea la lista di utensili utilizzati dal gruppo di lavorazione corrente
   Public Overrides Sub CreateUsedToolList(UsedToolList As List(Of String))
      ' Lama
      Dim sTuuid As String = String.Empty
      If Not String.IsNullOrWhiteSpace(CurrentMachine.sCurrSawing) Then
         EgtMdbSetCurrMachining(CurrentMachine.sCurrSawing)
         EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
         UsedToolList.Add(sTuuid)
      End If
      ' Fresa
      If Not String.IsNullOrWhiteSpace(CurrentMachine.sCurrMilling) Then
         EgtMdbSetCurrMachining(CurrentMachine.sCurrMilling)
         sTuuid = String.Empty
         EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
         UsedToolList.Add(sTuuid)
      End If
      ' Foretto
      If Not String.IsNullOrWhiteSpace(CurrentMachine.sCurrDrilling) Then
         EgtMdbSetCurrMachining(CurrentMachine.sCurrDrilling)
         sTuuid = String.Empty
         EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
         UsedToolList.Add(sTuuid)
      End If
      ' Scasso
      If Not String.IsNullOrWhiteSpace(CurrentMachine.sCurrPocketing) Then
         EgtMdbSetCurrMachining(CurrentMachine.sCurrPocketing)
         sTuuid = String.Empty
         EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
         UsedToolList.Add(sTuuid)
      End If
      ' Waterjet
      If Not String.IsNullOrWhiteSpace(CurrentMachine.sCurrWaterJetting) Then
         EgtMdbSetCurrMachining(CurrentMachine.sCurrWaterJetting)
         sTuuid = String.Empty
         EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
         UsedToolList.Add(sTuuid)
      End If
   End Sub

#End Region    ' METHODS

End Class