Imports System.Collections.ObjectModel
Imports System.IO
Imports EgtUILib
Imports EgtWPFLib5

Public Class MachGroupPanelVM
   Inherits EgtWPFLib5.EgtMachGroupPanelVM

#Region "CONSTRUCTOR"

   Sub New()
      MyBase.New()
      ' Recupero la macchina di default
      Dim sDefaultMachine As String = String.Empty
      GetMainPrivateProfileString(S_MACH, K_CURRMACH, "", sDefaultMachine)
      ' Creo riferimento a questa classe in OmagOFFICEMap
      OmagOFFICEMap.SetRefMachGroupPanelVM(Me)
      InitMachGroups(True, OmagOFFICEMap.refMachinePanelVM.MachineList.ToList(),
                     sDefaultMachine, BASE_MACH_GROUP & "1")
   End Sub

#End Region    ' CONSTRUCTOR

#Region "METHODS"

   Public Overrides Function OnPreNewMachGroup() As Boolean
      EgtSetCurrentContext(OmagOFFICEMap.refSceneHostV.OmagOFFICEScene.GetCtx())
      Return True
   End Function

   Public Overrides Function OnPostNewMachGroup() As Boolean
      ' !!! GESTIRE MACCHINE CON DUE TAVOLE !!!
      EgtSetTable("MainTab")
      ' Aggiorno grezzo iniziale
      EstCalc.UpdateRawPart()
      ' Salvo macchina del gruppo come nuovo default
      WriteMainPrivateProfileString(S_MACH, K_CURRMACH, DefaultMachine)
      Return True
   End Function

   Public Overrides Function OnPreSetCurrMachGroup() As Boolean
      EgtSetCurrentContext(OmagOFFICEMap.refSceneHostV.OmagOFFICEScene.GetCtx())
      Return True
   End Function

   Public Overrides Function OnPostSetCurrMachGroup() As Boolean
      ' Imposto vista solo tavola
      EgtSetMachineLook(MCH_LOOK.TAB)
      ' Ricarico la macchina corrente
      InitCurrentMachine(OmagOFFICEMap.refMachinePanelVM.sMachinesRoot, SelectedMachGroup.Machine,
                         OmagOFFICEMap.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.PROCUCTION_LINE),
                         OmagOFFICEMap.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.ENABLE_MILL))
      ' Imposto tab Disposizione
      OmagOFFICEMap.refOptionPanelVM.SelItem = OptionPanelVM.Tabs.NESTING
      ' Aggiorno grezzo iniziale
      EstCalc.UpdateRawPart()
      Return True
   End Function

   Public Overrides Function OnPreRemoveCurrMachGroup() As Boolean
      EgtSetCurrentContext(OmagOFFICEMap.refSceneHostV.OmagOFFICEScene.GetCtx())
      ' Seleziono tutti i pezzi in tavola
      Dim nPartId As Integer = EgtGetFirstPartInRawPart(GetRawId())
      While nPartId <> GDB_ID.NULL
         ' Recupero identificativo del successivo
         Dim nNextPartId As Integer = EgtGetNextPartInRawPart(nPartId)
         ' Metto in parcheggio
         StoreOnePart(nPartId)
         ' Eventuale notifica al VeinMatching
         VeinMatching.OnRemovePartFromRaw(nPartId)
         ' Passo al successivo
         nPartId = nNextPartId
      End While

      Return True
   End Function

#End Region    ' METHODS

End Class