egtbeamwall/EgtBEAMWALL.ViewerOptimizer/MachGroupPanel/MyMachGroupPanelVM.vb

Imports System.Collections.ObjectModel
Imports System.ComponentModel
Imports System.IO
Imports EgtBEAMWALL.Core
Imports EgtUILib
Imports EgtWPFLib5

Public Class MyMachGroupPanelVM
   Inherits NewMachGroupPanelVM

#Region "FIELDS & PROPERTIES"

   Public ReadOnly Property m_MyMachGroupPanelM As MyMachGroupPanelM
      Get
         Return m_MachGroupPanelM
      End Get
   End Property

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New(MachGroupPanelM As MachGroupPanelM)
      MyBase.New(MachGroupPanelM)
      ' Recupero la macchina di default
      Dim sDefaultMachine As String = String.Empty
      GetMainPrivateProfileString(S_MACH, K_CURRMACH, "", sDefaultMachine)
      ' Creo riferimento a questa classe in Map
      Map.SetRefMachGroupPanelVM(Me)
      ' elimino copie da cancellare
      DeleteDuplo()
   End Sub

#End Region    ' CONSTRUCTOR

#Region "METHODS"

   Protected Overrides Sub CreateMachGroupVMList()
      Dim all As List(Of MachGroupVM) = (From MachGroupM In m_MachGroupPanelM.GetMachGroups()
                                         Select If(DirectCast(MachGroupM, MyMachGroupM).nMachineType = MachineType.BEAM, New BeamMachGroupVM(MachGroupM), New MachGroupVM(MachGroupM))).ToList()

      For Each MachGroupvM As MachGroupVM In all
         AddHandler MachGroupvM.PropertyChanged, AddressOf OnMachGroupVMPropertyChanged
      Next

      MachGroupVMList = New ObservableCollection(Of MachGroupVM)(all)
      AddHandler MachGroupVMList.CollectionChanged, AddressOf OnMachGroupVMListChanged
   End Sub

   Public Overrides Function InitMachGroupList(Optional bUseDefaults As Boolean = False) As Boolean
      ' Svuoto precedente lista di MachGroup
      MachGroupVMList.Clear()
      ' aggiorno copie
      m_MyMachGroupPanelM.UpdateDuplo()
      ' verifico se esistono già gruppi di lavorazione o se devo creare il primo
      Dim bOk As Boolean = False
      Dim nId = EgtGetFirstMachGroup()
      If nId <> GDB_ID.NULL Then
         bOk = EgtSetCurrMachGroup(nId)
      End If
      If Not bOk Then Return True
      ' carico lista dei gruppi di lavorazione
      m_MachGroupPanelM.MachGroupMList = MyMachGroupPanelM.LoadMyMachGroups(Map.refMachinePanelVM.MachineList.ToList())
      ' elimino copie da cancellare
      m_MyMachGroupPanelM.DeleteDuplo()
      If bOk Then SelectedMachGroup = MachGroupVMList(0)
      EgtZoom(ZM.ALL)
      Return True
   End Function

   Public Function RefreshMachGroupList() As Boolean
      ' Svuoto precedente lista di MachGroup
      MachGroupVMList.Clear()
      ' carico lista dei gruppi di lavorazione
      For Each MachGroup As MyMachGroupM In MyMachGroupPanelM.UpdateFromNestingMyMachGroups(Map.refMachinePanelVM.MachineList.ToList())
         m_MachGroupPanelM.AddMachGroup(MachGroup)
      Next
      ' aggiorno contatore pezzi in produzione
      For Each MachGroup As MyMachGroupVM In MachGroupVMList
         For Each Part In MachGroup.PartVMList
            ' aggiorno calcolo pezzi in produzione
            Dim BTLPart As BTLPartVM = Part.RetrieveBTLPartFromPart()
            If Not IsNothing(BTLPart) Then BTLPart.RefreshPartInProd()
         Next
      Next
      ' seleziono primo MachGroup
      If MachGroupVMList.Count > 0 Then SelectedMachGroup = MachGroupVMList(0)
      EgtZoom(ZM.ALL)
      Return True
   End Function

   ' funzione che cancella tutti i pezzi segnati da eliminare
   Public Sub DeleteDuplo()
      ' reset necessario per poter accedere direttamente al grezzo dalle info pezzo e al MachGroup tramite la gerarchia Db geometrico
      EgtResetCurrMachGroup()
      Dim nPartId As Integer = EgtGetFirstPart()
      While nPartId <> GDB_ID.NULL
         Dim bIsToDelete As Boolean = False
         If DuploGetToDelete(nPartId, bIsToDelete) AndAlso bIsToDelete Then
            ' verifico se ci sono copie
            Dim nDuploCount As Integer = 0
            EgtDuploCount(nPartId, nDuploCount)
            Dim DuploList As New List(Of Integer)
            If nDuploCount > 0 AndAlso EgtDuploList(nPartId, DuploList) Then
               ' cancello tutti i pezzi copia nelle barre
               For Each nDuploId In DuploList
                  ' recupero grezzo cui appartiene
                  Dim nRawPartId As Integer
                  EgtGetInfo(nDuploId, "!LST", nRawPartId)
                  ' recupero gruppo di lavorazione 
                  Dim nMachGroupId As Integer = EgtGetParent(EgtGetParent(EgtGetParent(nRawPartId)))
                  ' lo setto come corrente
                  EgtSetCurrMachGroup(nMachGroupId)
                  ' elimino pezzo copia
                  EgtRemovePartFromRawPart(nDuploId)
                  EgtErase(nDuploId)
                  '' recupero gruppo di lavorazione e trave dell'interfaccia
                  Dim BeamMachGroup As BeamMachGroupVM = MachGroupVMList.FirstOrDefault(Function(x) x.Id = nMachGroupId)
                  Dim Beam As BeamVM = BeamMachGroup.PartVMList.FirstOrDefault(Function(x) x.nPartId = nDuploId)
                  EgtSetCurrMachGroup(BeamMachGroup.Id)
                  Beam.DeletePart()
               Next
            End If
            DuploResetToDelete(nPartId)
         End If
         nPartId = EgtGetNextPart(nPartId)
      End While
      EgtResetCurrMachGroup()
   End Sub

   Friend Shared Function DuploGetToDelete(nSouId As Integer, ByRef bToDelete As Boolean) As Boolean
      If IsNothing(nSouId) Then Return False
      Return EgtGetInfo(nSouId, DUPLO_TODELETE, bToDelete)
   End Function

   Public Shared Function DuploSetToDelete(nSouId As Integer) As Boolean
      If IsNothing(nSouId) Then Return False
      Return EgtSetInfo(nSouId, DUPLO_TODELETE, True)
   End Function

   Private Shared Function DuploResetToDelete(nSouId As Integer) As Boolean
      If IsNothing(nSouId) Then Return False
      Return EgtSetInfo(nSouId, DUPLO_TODELETE, "")
   End Function

   Public Overrides Sub AddMachGroup()
      Dim SelMyMachine As MyMachine = Map.refMachinePanelVM.SelectedMachine
      Dim MyMachGroupM As MyMachGroupM = m_MyMachGroupPanelM.NewMyMachGroup(SelMyMachine.Name, SelMyMachine.nType)
      '' creo oggetto gruppo creato
      'Dim sNewMachGroupName As String = String.Empty
      'Dim sNewMachGroupMachineName As String = String.Empty
      'EgtGetMachGroupName(nNewMachGroupID, sNewMachGroupName)
      'EgtGetMachGroupMachineName(nNewMachGroupID, sNewMachGroupMachineName)
      'Dim MyMachGroup As MyMachGroupM
      'If Map.refMachinePanelVM.SelectedMachine.nType = MachineType.BEAM Then
      '   MyMachGroup = New BeamMachGroupVM(nNewMachGroupID, sNewMachGroupName, sNewMachGroupMachineName)
      'Else
      '   MyMachGroup = New WallMachGroup(nNewMachGroupID, sNewMachGroupName, sNewMachGroupMachineName)
      'End If
      '' lo aggiungo alla lista
      'MachGroupList.Add(MyMachGroup)
      ' e lo seleziono
      SelectedMachGroup = MachGroupVMList.FirstOrDefault(Function(x) x.MachGroupM Is MyMachGroupM)
   End Sub

   Public Overrides Function OnPreSetCurrMachGroup() As Boolean
      EgtSetCurrentContext(Map.refSceneHostVM.MainScene.GetCtx())
      Return True
   End Function

   Public Overrides Function OnPostSetCurrMachGroup() As Boolean
      ' Imposto vista solo tavola
      EgtSetMachineLook(MCH_LOOK.TAB)
      EgtSetView(VT.ISO_SW, False)
      EgtZoom(ZM.ALL)
      Return True
   End Function

   ' funzione che seleziona primo gruppo
   Friend Sub SelFirstMachGroup()
      If Not IsNothing(Me) AndAlso Not IsNothing(MachGroupVMList) AndAlso MachGroupVMList.Count > 0 Then
         SelectedMachGroup = MachGroupVMList(0)
      Else
         SelectedMachGroup = Nothing
         EgtResetCurrMachGroup()
         ' nascondo tutti i pezzi
         Map.refProjectVM.BTLStructureVM.HideAll()
      End If
   End Sub

   ' funzione che seleziona ultimo gruppo
   Friend Sub SelLastMachGroup()
      If Not IsNothing(Me) AndAlso Not IsNothing(MachGroupVMList) AndAlso MachGroupVMList.Count > 0 Then
         SelectedMachGroup = MachGroupVMList(MachGroupVMList.Count - 1)
      End If
   End Sub

   Friend Function GetLastMachGroup() As MachGroupVM
      If Not IsNothing(Me) AndAlso Not IsNothing(MachGroupVMList) AndAlso MachGroupVMList.Count > 0 Then
         Return MachGroupVMList(MachGroupVMList.Count - 1)
      End If
      Return Nothing
   End Function

#End Region    ' METHODS

#Region "EVENTS"

   Protected Overrides Sub OnMachGroupAdded(sender As Object, e As MachGroupAddedEventArgs)
      Dim MachGroupVM As MachGroupVM = Nothing
      Select Case DirectCast(e.NewMachGroupM, MyMachGroupM).nMachineType
         Case Core.ConstBeam.MachineType.BEAM
            MachGroupVM = New BeamMachGroupVM(e.NewMachGroupM)
         Case Core.ConstBeam.MachineType.WALL
            'MachGroupVM = New wallMachGroupVM(e.NewMachGroupM)
         Case Core.ConstBeam.MachineType.NULL
            Return
      End Select
      MachGroupVMList.Add(MachGroupVM)
      NotifyPropertyChanged(NameOf(MachGroupVMList))
   End Sub

   Protected Overrides Sub OnMachGroupVMPropertyChanged(sender As Object, e As PropertyChangedEventArgs)
      Select Case e.PropertyName
         'Case nameof(sender.sMATERIAL)
      End Select
   End Sub

#End Region    ' EVENTS

End Class