egtbeamwall/EgtBEAMWALL.Optimizer/MachGroupPanel/PartVM.vb

Imports System.Collections.ObjectModel
Imports System.ComponentModel
Imports EgtBEAMWALL.Core
Imports EgtBEAMWALL.DataLayer.DatabaseModels
Imports EgtUILib
Imports EgtWPFLib5

Public Class PartVM
   Inherits Core.PartVM

#Region "FIELDS & PROPERTIES"

#Region "General"

   ' variabile che indica se almeno un pezzo e' stato modificato durante il caricamento del progetto
   Private Shared m_PartModifiedOnLoading As Boolean = False

   Public Overloads ReadOnly Property dVolume As Double
      Get
         Return dVolume
      End Get
   End Property

   Private m_bSearchFound As Boolean
   Public ReadOnly Property bSearchFound As Boolean
      Get
         Return m_bSearchFound
      End Get
   End Property
   Friend Sub SetSearchFound()
      m_bSearchFound = True
      NotifyPropertyChanged(NameOf(Search_Background))
   End Sub
   Friend Sub ResetSearchFound()
      m_bSearchFound = False
      NotifyPropertyChanged(NameOf(Search_Background))
   End Sub

   Public ReadOnly Property Search_Background As SolidColorBrush
      Get
         Return If(m_bSearchFound, Brushes.Gold, Brushes.Transparent)
      End Get
   End Property

#End Region    ' General

#Region "Beam"

   Public Overrides Property sOffset As String
      Get
         Return LenToString(m_PartM.dOffset, 3)
      End Get
      Set(value As String)
         Dim dValue As Double
         If StringToLenAdv(value, dValue, True) Then
            Dim dOldValue As Double = m_PartM.dOffset
            Dim BeamMachGroup As MyMachGroupVM = DirectCast(ParentMachGroupVM, MyMachGroupVM)
            ' se prima trave della barra sostituisco valore anche a startoffset
            If ParentMachGroupVM.PartVMList(0) Is Me Then
               m_PartM.dOffset = dValue
               BeamMachGroup.dStartCut = dValue
            ElseIf dValue > CurrentMachine.dMinOffset Then
               m_PartM.dOffset = dValue
            Else
               m_PartM.dOffset = CurrentMachine.dMinOffset
            End If
            If Not BeamMachGroup.ReDrawBeamMachgroup() Then
               ' rispristino vecchio valore
               m_PartM.dOffset = dOldValue
               BeamMachGroup.dStartCut = dOldValue
               BeamMachGroup.ReDrawBeamMachgroup()
            End If
            EgtDraw()
            ' resetto validazione del pezzo
            ResetCalcPart()
            ParentMachGroupVM.UpdateUsage()
         Else
            NotifyPropertyChanged(NameOf(sOffset))
         End If
      End Set
   End Property

#End Region    ' Beam

#Region "Wall"

   Public Overrides Property sPOSX As String
      Get
         Select Case Map.refProjectVM.BTLStructureVM.nPROJTYPE
            Case BWType.WALL
               ' se parete, valuto angolo di posizionamento
               Select Case CurrentMachine.NestingCorner
                  Case MCH_CR.TL, MCH_CR.BL
                     Return LenToString(m_PartM.dPOSX, 3)
                  Case Else ' MCH_CR.TR, MCH_CR.BR
                     Return LenToString(m_ParentMachGroupVM.dL - dL - m_PartM.dPOSX, 3)
               End Select
            Case Else
               Return LenToString(m_PartM.dPOSX, 3)
         End Select
      End Get
      Set(value As String)
         Dim dValue As Double
         If StringToLenAdv(value, dValue, True) Then
            Dim dOldValue As Double = m_PartM.dPOSX
            Dim dNewValue As Double = dValue
            Select Case Map.refProjectVM.BTLStructureVM.nPROJTYPE
               Case BWType.WALL
                  ' se parete, valuto angolo di posizionamento
                  Select Case CurrentMachine.NestingCorner
                     Case MCH_CR.TL, MCH_CR.BL
                        dNewValue = dValue
                     Case Else ' MCH_CR.TR, MCH_CR.BR
                        dNewValue = m_ParentMachGroupVM.dL - dL - dValue
                  End Select
               Case Else
                  m_PartM.dPOSX = dValue
            End Select
            If EgtMovePartInRawPart(nPartId, New Vector3d(dNewValue - dOldValue, 0, 0)) Then
               EgtSetInfo(nPartId, MGR_PRT_POSX, dValue)
               NotifyPropertyChanged(NameOf(sPOSX))
               ' resetto validazione del pezzo
               ResetCalcPart()
            Else
               ' ripristino vecchio valore
               m_PartM.dPOSX = dOldValue
            End If
            EgtDraw()
         Else
            NotifyPropertyChanged(NameOf(sPOSX))
         End If
      End Set
   End Property

   Public Overrides Property sPOSY As String
      Get
         Select Case Map.refProjectVM.BTLStructureVM.nPROJTYPE
            Case BWType.WALL
               ' valuto angolo di posizionamento
               Select Case CurrentMachine.NestingCorner
                  Case MCH_CR.TL, MCH_CR.TR
                     Return LenToString(m_ParentMachGroupVM.dW - dW - m_PartM.dPOSY, 3)
                  Case Else ' MCH_CR.BL, MCH_CR.BR
                     Return LenToString(m_PartM.dPOSY, 3)
               End Select
            Case Else
               Return LenToString(m_PartM.dPOSY, 3)
         End Select
      End Get
      Set(value As String)
         Dim dValue As Double
         If StringToLenAdv(value, dValue, True) Then
            Dim dOldValue As Double = m_PartM.dPOSY
            Dim dNewValue As Double = dValue
            ' valuto angolo di posizionamento
            Select Case Map.refProjectVM.BTLStructureVM.nPROJTYPE
               Case BWType.WALL
                  Select Case CurrentMachine.NestingCorner
                     Case MCH_CR.TL, MCH_CR.TR
                        dNewValue = m_ParentMachGroupVM.dW - dW - dValue
                     Case MCH_CR.BL, MCH_CR.BR
                        dNewValue = dValue
                  End Select
               Case Else
                  m_PartM.dPOSY = dValue
            End Select
            If EgtMovePartInRawPart(nPartId, New Vector3d(0, dNewValue - dOldValue, 0)) Then
               EgtSetInfo(nPartId, MGR_PRT_POSY, dValue)
               NotifyPropertyChanged(NameOf(sPOSY))
               ' resetto validazione del pezzo
               ResetCalcPart()
            Else
               ' ripristino vecchio valore
               m_PartM.dPOSY = dOldValue
            End If
            EgtDraw()
         Else
            NotifyPropertyChanged(NameOf(sPOSY))
         End If
      End Set
   End Property

   Public Property bFLIP As Boolean
      Get
         Return m_PartM.nFLIP <> 0
      End Get
      Set(value As Boolean)
         If Map.refProjectVM.bCalcRunning Then Return
         ' se MachGroup gia' mandato in produzione, esco
         If m_ParentMachGroupVM.nProduction_State >= ItemState.Assigned Then Return
         If (value And m_PartM.nFLIP = 0) OrElse (Not value And m_PartM.nFLIP <> 0) Then
            ' salvo posizione 
            Dim dTempPosX As Double = m_PartM.dPOSX
            Dim dTempPosY As Double = m_PartM.dPOSY
            ' tolgo il pezzo dal grezzo
            EgtRemovePartFromRawPart(nPartId)
            ' recupero layer del box
            Dim nBoxLayerId As Integer = EgtGetFirstNameInGroup(nPartId, "Box")
            ' recupero box del layer box
            Dim b3Box As New BBox3d
            EgtGetBBoxGlob(nBoxLayerId, GDB_BB.STANDARD, b3Box)
            Dim vtAxes As Vector3d
            ' se travi ruoto attorno all'asse Z
            If Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.BEAM Then
               vtAxes = Vector3d.Z_AX
               ' se pareti ruoto attorno all'asse X
            ElseIf Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.WALL Then
               vtAxes = Vector3d.X_AX
            End If
            If EgtRotate(nPartId, b3Box.Center, vtAxes, 180, GDB_RT.GLOB) Then
               m_PartM.nFLIP = If(value, 180, 0)
               EgtSetInfo(nPartId, MGR_PRT_FLIP, If(value, 180, 0))
            Else
               NotifyPropertyChanged(NameOf(bFLIP))
            End If
            If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.WALL Then
               ' recupero box del pezzo
               Dim b3Part As New BBox3d
               EgtGetBBoxGlob(nPartId, GDB_BB.STANDARD, b3Part)
               ' calcolo distanza tra i box
               Dim vtDeltaBox As Vector3d = b3Box.Min - b3Part.Min
               ' reinserisco il pezzo nel grezzo
               EgtAddPartToRawPart(nPartId, New Point3d(dTempPosX - vtDeltaBox.x, dTempPosY - vtDeltaBox.y, 0), ParentMachGroupVM.MyMachGroupM.nRawPartId)
            ElseIf Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
               ' elimino vecchio grezzo ed eseguo script creazione nuovo
               DeleteOldRaw()
               Dim sLogPath As String = Map.refMainWindowVM.MainWindowM.sTempDir & "\RawPartLog.txt"
               If Not ExecBeam(sLogPath, ProjectManagerVM.CurrProd.sMachine, CalcIntegration.CmdTypes.RAWPART, False) Then
                  EgtOutLog("Fallita creazione barra nell'ExecBeam in bFlip")
                  ' elimino vecchio grezzo ed eseguo script creazione nuovo
                  DeleteOldRaw()
                  If EgtRotate(nPartId, b3Box.Center, vtAxes, 180, GDB_RT.GLOB) Then
                     m_PartM.nFLIP = 180
                     EgtSetInfo(nPartId, MGR_PRT_FLIP, 180)
                  Else
                     NotifyPropertyChanged(NameOf(m_PartM.nFLIP))
                  End If
                  If Not ExecBeam(sLogPath, ProjectManagerVM.CurrProd.sMachine, CalcIntegration.CmdTypes.RAWPART, False) Then
                     EgtOutLog("Fallita esecuzione ExecBeam. ERRORE")
                  End If
               End If
            End If
            EgtSetCurrMachGroup(Map.refMachGroupPanelVM.SelectedMachGroup.Id)
            ' lo riseleziono
            EgtSelectObj(nPartId)
            ' resetto validazione del pezzo
            ResetCalcPart()
            EgtDraw()
         End If
      End Set
   End Property

#End Region    ' Wall

   Public Property bDOALL As Boolean?
      Get
         If Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart.FeatureVMList.Count = 0 Then Return False
         Dim bTemp As Boolean = Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart.FeatureVMList(0).bDO
         For FeatureIndex = 1 To Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart.FeatureVMList.Count - 1
            If Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart.FeatureVMList(FeatureIndex).bDO <> bTemp Then Return Nothing
         Next
         Return bTemp
      End Get
      Set(value As Boolean?)
         If Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart.FeatureVMList.Count = 0 Then
            NotifyPropertyChanged(NameOf(bDOALL))
            Return
         End If
         ' imposto modalita' update multiplo
         BTLFeatureVM.bDO_MultipleUpdate = True
         For FeatureIndex = 0 To Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart.FeatureVMList.Count - 1
            If FeatureIndex = Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart.FeatureVMList.Count - 1 Then
               ' reset modalita' update multiplo
               BTLFeatureVM.bDO_MultipleUpdate = False
            End If
            Dim Feature As BTLFeatureVM = Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart.FeatureVMList(FeatureIndex)
            Feature.bDO = value
            Feature.NotifyPropertyChanged(NameOf(Feature.bDO))
         Next
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property MoveUpPart_ToolTip As String
      Get
         Return EgtMsg(61917)
      End Get
   End Property

   Public ReadOnly Property MoveDownPart_ToolTip As String
      Get
         Return EgtMsg(61918)
      End Get
   End Property

   Public ReadOnly Property RemovePart_ToolTip As String
      Get
         Return EgtMsg(61919)
      End Get
   End Property

#End Region    ' Messages

   ' Definizione comandi
   Private m_cmdBackRotation As ICommand
   Private m_cmdForwardRotation As ICommand
   Private m_cmdRemovePart As ICommand
   Private m_cmdMoveUpPart As ICommand
   Private m_cmdMoveDownPart As ICommand

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New(PartM As PartM, ParentMachGroupVM As MyMachGroupVM)
      MyBase.New(PartM, ParentMachGroupVM)
      ' aggiorno stato calcolo
      CalcGlobalUpdate()
      ' aggiorno stato di produzione
      ReadProductionData()
      NotifyPropertyChanged(NameOf(bDOALL))
   End Sub

#End Region    ' CONSTRUCTOR

#Region "METHODS"

#Region "Part"

   Friend Sub ResetOffset()
      m_PartM.dOffset = WarehouseHelper.GetOffset(nType)
      NotifyPropertyChanged(NameOf(sOffset))
   End Sub

   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
   Public Overrides Sub DeletePart()
      ' elimino pezzo copia
      EgtRemovePartFromRawPart(Me.nPartId)
      ' Recupero Id BTLPart originale
      Dim BTLPart As BTLPartVM = BTLPartVM.RetrieveBTLPartFromPart(nPartId)
      EgtErase(Me.nPartId)
      ' rimuovo dalla lista pezzi
      Dim Index As Integer = ParentMachGroupVM.PartVMList.IndexOf(ParentMachGroupVM.PartVMList.FirstOrDefault(Function(x) x.nPartId = nPartId))
      If Index = 0 Then
         If ParentMachGroupVM.PartVMList.Count > 1 Then
            ParentMachGroupVM.SelPart = ParentMachGroupVM.PartVMList(0)
         Else
            ParentMachGroupVM.SelPart = Nothing
         End If
      ElseIf Index = ParentMachGroupVM.PartVMList.Count - 1 Then
         If ParentMachGroupVM.PartVMList.Count > 1 Then
            ParentMachGroupVM.SelPart = ParentMachGroupVM.PartVMList(ParentMachGroupVM.PartVMList.Count - 2)
         Else
            ParentMachGroupVM.SelPart = Nothing
         End If
      Else
         ParentMachGroupVM.SelPart = ParentMachGroupVM.PartVMList(Index - 1)
      End If
      ParentMachGroupVM.PartVMList.Remove(Me)
      ' aggiorno Db
      If Not IsNothing(Map.refProdManagerVM) Then
         DbControllers.m_PartController.Delete(ProjectManagerVM.CurrProd.nProdId, ParentMachGroupVM.Id, nPartId)
      End If
      If nType = MachineType.BEAM Then
         Dim BeamParentMachGroup As MyMachGroupVM = DirectCast(ParentMachGroupVM, MyMachGroupVM)
         If Not IsNothing(BeamParentMachGroup) Then BeamParentMachGroup.ReDrawBeamMachgroup()
      End If
      ' aggiorno contatore pezzi usati in Prod
      If Not IsNothing(BTLPart) Then BTLPart.RefreshPartInProd()
      EgtDraw()
   End Sub

   Private Sub Rotate(IsPositive As Boolean)
      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
         ' elimino vecchio grezzo ed eseguo script creazione nuovo
         DeleteOldRaw()
         ' recupero layer del box
         Dim nBoxLayerId As Integer = EgtGetFirstNameInGroup(nPartId, "Box")
         ' recupero box del layer box
         Dim b3Box As New BBox3d
         EgtGetBBoxGlob(nBoxLayerId, GDB_BB.STANDARD, b3Box)
         ' se invertito lo reinverto
         If bFLIP Then EgtRotate(nPartId, b3Box.Center, Vector3d.Z_AX, 180, GDB_RT.GLOB)
         ' eseguo rotazione attorno asse X
         Dim dRot As Integer = 0
         If dW <> dH Then
            dRot = If(IsPositive, 180, -180)
         ElseIf dW = dH Then
            dRot = If(IsPositive, 90, -90)
         End If
         Dim bOk As Boolean = EgtRotate(nPartId, b3Box.Center, Vector3d.X_AX, dRot, GDB_RT.GLOB)
         If bOk Then
            Dim TempRot = m_PartM.dROT
            TempRot += dRot
            If TempRot >= 360 Then
               TempRot -= 360
            ElseIf TempRot < 0 Then
               TempRot += 360
            End If
            m_PartM.dROT = TempRot
            EgtSetInfo(nPartId, MGR_PRT_ROT, m_PartM.dROT)
         End If
         ' ripristino eventuale inversione
         If bFLIP Then EgtRotate(nPartId, b3Box.Center, Vector3d.Z_AX, 180, GDB_RT.GLOB)
         Dim sLogPath As String = Map.refMainWindowVM.MainWindowM.sTempDir & "\RawPartLog.txt"
         If Not ExecBeam(sLogPath, ProjectManagerVM.CurrProd.sMachine, CalcIntegration.CmdTypes.RAWPART, False) Then
            EgtOutLog("Fallita creazione barra nell'ExecBeam in Rotate")
            ' elimino vecchio grezzo ed eseguo script creazione nuovo
            DeleteOldRaw()
            ' annullo Flip
            If bFLIP Then EgtRotate(nPartId, b3Box.Center, Vector3d.Z_AX, 180, GDB_RT.GLOB)
            ' ripristino rotazione
            Dim TempRot = m_PartM.dROT
            TempRot -= dRot
            If TempRot >= 360 Then
               TempRot -= 360
            ElseIf TempRot < 0 Then
               TempRot += 360
            End If
            m_PartM.dROT = TempRot
            EgtSetInfo(nPartId, MGR_PRT_ROT, m_PartM.dROT)
            EgtRotate(nPartId, b3Box.Center, Vector3d.X_AX, -dRot, GDB_RT.GLOB)
            If bFLIP Then EgtRotate(nPartId, b3Box.Center, Vector3d.Z_AX, 180, GDB_RT.GLOB)
            If Not ExecBeam(sLogPath, ProjectManagerVM.CurrProd.sMachine, CalcIntegration.CmdTypes.RAWPART, False) Then
               EgtOutLog("Fallita esecuzione ExecBeam. ERRORE")
            End If
            NotifyPropertyChanged(NameOf(sROT))
         End If
      ElseIf Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.WALL Then
         ' salvo posizione 
         Dim dTempPosX As Double = m_PartM.dPOSX
         Dim dTempPosY As Double = m_PartM.dPOSY
         ' tolgo il pezzo dal grezzo
         EgtRemovePartFromRawPart(nPartId)
         ' recupero layer del box
         Dim nBoxLayerId As Integer = EgtGetFirstNameInGroup(nPartId, "Box")
         ' recupero box del layer box
         Dim b3Box As New BBox3d
         EgtGetBBoxGlob(nBoxLayerId, GDB_BB.STANDARD, b3Box)
         ' se invertito lo reinverto
         If bFLIP Then EgtRotate(nPartId, b3Box.Center, Vector3d.X_AX, 180, GDB_RT.GLOB)
         Dim dAng As Double = If(IsPositive, 90, -90)
         ' eseguo rotazione
         Dim bOk As Boolean = EgtRotate(nPartId, b3Box.Center, -Vector3d.Z_AX, dAng, GDB_RT.GLOB)
         If bOk Then
            Dim TempRot = m_PartM.dROT
            TempRot += dAng
            If TempRot >= 360 Then
               TempRot -= 360
            ElseIf TempRot < 0 Then
               TempRot += 360
            End If
            m_PartM.dROT = TempRot
            EgtSetInfo(nPartId, MGR_PRT_ROT, m_PartM.dROT)
         End If
         ' ripristino eventuale inversione
         If bFLIP Then EgtRotate(nPartId, b3Box.Center, Vector3d.X_AX, 180, GDB_RT.GLOB)
         ' recupero box del pezzo
         Dim b3Part As New BBox3d
         EgtGetBBoxGlob(nPartId, GDB_BB.STANDARD, b3Part)
         'aggiorno box del box con rotazione
         EgtGetBBoxGlob(nBoxLayerId, GDB_BB.STANDARD, b3Box)
         ' calcolo distanza tra i box
         Dim vtDeltaBox As Vector3d = b3Box.Min - b3Part.Min   ' Vector3d.NULL
         ' calcolo posizione rispetto al riferimento
         Select Case Map.refProjectVM.BTLStructureVM.nPROJTYPE
            Case BWType.WALL
               ' se parete, valuto angolo di posizionamento
               Select Case CurrentMachine.NestingCorner
                  Case MCH_CR.TL
                     dTempPosY = dTempPosY - dW + dL
                  Case MCH_CR.BL
                  ' non cambio posizioni
                  Case MCH_CR.TR
                     dTempPosX = dTempPosX - dL + dW
                     dTempPosY = dTempPosY - dW + dL
                  Case MCH_CR.BR
                     dTempPosX = dTempPosX - dL + dW
               End Select
            Case Else
               ' non cambio nulla
         End Select
         ' reinserisco il pezzo nel grezzo
         EgtAddPartToRawPart(nPartId, New Point3d(dTempPosX - vtDeltaBox.x, dTempPosY - vtDeltaBox.y, 0), ParentMachGroupVM.MyMachGroupM.nRawPartId)
      End If
      EgtSetCurrMachGroup(Map.refMachGroupPanelVM.SelectedMachGroup.Id)
      ' lo riseleziono
      EgtSelectObj(nPartId)
      ' resetto validazione del pezzo
      ResetCalcPart()
      NotifyPropertyChanged(NameOf(sROT))
   End Sub

   Private Sub DeleteOldRaw()
      Dim nRawId As Integer = EgtGetFirstRawPart()
      While nRawId <> GDB_ID.NULL
         EgtRemoveRawPart(nRawId)
         nRawId = EgtGetFirstRawPart()
      End While
   End Sub

   Friend Sub SelectBTLPart()
      ' eseguo la selezione nella lista pezzi
      Dim nBTLPartId As Integer = MyMachGroupPanelM.DuploGetOriginal(nPartId)
      If Not IsNothing(nBTLPartId) Then
         Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Map.refProjectVM.BTLStructureVM.BTLPartVMList.FirstOrDefault(Function(x) x.nPartId = nBTLPartId), True)
      End If
   End Sub

   Private Sub ReadProductionData()
      If IsNothing(Map.refProdManagerVM) OrElse IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(ProjectManagerVM.CurrProd.nProdId) Then Return
      Dim PartModel As PartModel = DbControllers.m_PartController.FindByPartId(ProjectManagerVM.CurrProd.nProdId, nPartId)
      If Not IsNothing(PartModel) Then
         PartM.SetProductionState(PartModel.State)
         For Each Feature As BTLFeatureVM In m_FeatureVMList
            Feature.NotifyPropertyChanged(NameOf(Feature.IsEnabled))
         Next
         NotifyPropertyChanged(NameOf(ButtonIsEnabled))
         PartM.dtStartTime = PartModel.DtStart
         PartM.dtEndTime = PartModel.DtEnd
         ' verifico se bloccare o sbloccare duplo
         Dim bLocked As Boolean = True
         EgtDuploGetLocked(nPartId, bLocked)
         If PartModel.State <= ItemState.ND And bLocked Then
            ' recupero se Duplo da aggiornare
            Dim bDuploToUpdate As Boolean = False
            EgtGetInfo(nPartId, GDB_SI_DUPTOUPDATE, bDuploToUpdate)
            ' verifico tipo di progetto
            Dim nBtlInfoId As Integer = EgtGetFirstNameInGroup(GDB_ID.ROOT, BTLINFO)
            Dim nBWType As Integer = 0
            EgtGetInfo(nBtlInfoId, BTL_GEN_PROJTYPE, nBWType)
            Dim DuploRot As Integer = 0
            Dim DuploFlip As Integer = 0
            ' se da aggiornare, leggo info del duplo che verrebbero perse
            If bDuploToUpdate Then
               ' recupero ROT (gradi) e FLIP (gradi) per non perderli
               EgtGetInfo(nPartId, MGR_PRT_ROT, DuploRot)
               EgtGetInfo(nPartId, MGR_PRT_FLIP, DuploFlip)
               If DuploFlip <> 0 Then DuploFlip = 180
               If nBWType = BWType.WALL Then
                  ' ciclo sugli outline
                  Dim nOutlineLayer As Integer = EgtGetFirstNameInGroup(nPartId, OUTLINE)
                  If nOutlineLayer <> GDB_ID.NULL Then
                     Dim nGlobPRId As Integer = 1
                     Dim nOutlineId As Integer = EgtGetFirstInGroup(nOutlineLayer)
                     While nOutlineId <> GDB_ID.NULL
                        ' verifico che sia outline
                        Dim nPRC As Integer
                        If EgtGetInfo(nOutlineId, MGR_FTR_PRC, nPRC) Then
                           Dim nPRId As Integer = 0
                           If Not EgtGetInfo(nOutlineId, MGR_FTR_PRID, nPRId) Then
                              EgtSetInfo(nOutlineId, MGR_FTR_PRID, nGlobPRId)
                              nPRId = nGlobPRId
                              nGlobPRId += 1
                           End If
                        End If
                        nOutlineId = EgtGetNext(nOutlineId)
                     End While
                  End If
               End If
            End If
            ' disabilito impostazione modificato
            Dim DisableMgr As New DisableModifiedMgr
            ' sblocco Duplo
            EgtDuploResetLocked(nPartId)
            ' ripristino precedente impostazione modificato
            DisableMgr.ReEnable()
            ' se da aggiornare, ripristino info del duplo che verrebbero perse
            If bDuploToUpdate Then
               ' ripristino i valori di ROT e FLIP
               EgtSetInfo(nPartId, MGR_PRT_ROT, DuploRot)
               EgtSetInfo(nPartId, MGR_PRT_FLIP, DuploFlip)
            End If
            nProduction_State = ItemState.ND
            NotifyPropertyChanged(NameOf(Background))
            If bDuploToUpdate Then
               ResetCalcTotalPart()
            End If
         ElseIf PartModel.State > ItemState.ND And Not bLocked Then
            ' disabilito impostazione modificato
            Dim DisableMgr As New DisableModifiedMgr
            EgtDuploSetLocked(nPartId)
            ' ripristino precedente impostazione modificato
            DisableMgr.ReEnable()
         End If
      End If
   End Sub

   Public Overrides Sub RefreshPart()
      ' aggiorno dati del pezzo
      EgtGetInfo(nPartId, BTL_PRT_PROJ, nProjId)
      EgtGetInfo(nPartId, BTL_PRT_PDN, nPDN)
      EgtGetInfo(nPartId, BTL_PRT_NAM, sNAM)
      EgtGetInfo(nPartId, BTL_PRT_L, dL)
      EgtGetInfo(nPartId, BTL_PRT_W, dW)
      EgtGetInfo(nPartId, BTL_PRT_H, dH)
      EgtGetInfo(nPartId, BTL_PRT_CNT, nCNT)
      EgtGetInfo(nPartId, BTL_PRT_GROUP, sGROUP)
      EgtGetInfo(nPartId, BTL_PRT_STOREY, sSTOREY)
      EgtGetInfo(nPartId, BTL_PRT_MATERIAL, sMATERIAL)
      If nType = BWType.BEAM Then
      Else
         ' leggo PosX, PosY, Rot e Flip
         EgtGetInfo(nPartId, MGR_PRT_POSX, dPOSX)
         EgtGetInfo(nPartId, MGR_PRT_POSY, dPOSY)
         EgtGetInfo(nPartId, MGR_PRT_ROT, dROT)
         EgtGetInfo(nPartId, MGR_PRT_FLIP, nFLIP)
      End If
      ' leggo volume 
      If Not EgtGetInfo(nPartId, BTL_PRT_VOLUME, dVolume) Then
         Dim nOrigId As Integer = EgtDuploGetOriginal(nPartId)
         EgtGetInfo(nOrigId, BTL_PRT_VOLUME, dVolume)
      End If
      ' leggo feature
      PartM.RefreshBTLFeatures()
      FeatureVMList.Clear()
      CreateBTLFeatureVMList()
   End Sub

#End Region    ' Part

#Region "Feature"

   Protected Overrides Sub CreateBTLFeatureVMList()
      Dim all As List(Of BTLFeatureVM) = (From BTLFeatureM In m_PartM.GetBTLFeatures()
                                          Select New BTLFeatureVM(BTLFeatureM, m_PartM)).ToList()

      For Each BTLFeatureVM As BTLFeatureVM In all
         AddHandler BTLFeatureVM.PropertyChanged, AddressOf OnBTLFeatureVMPropertyChanged
      Next

      m_FeatureVMList = New ObservableCollection(Of Core.BTLFeatureVM)(all)
      AddHandler m_FeatureVMList.CollectionChanged, AddressOf OnBTLFeatureVMListChanged

   End Sub

   Friend Sub ResetCalcTotalPart()
      ResetCalcPart()
      For Each Feature In FeatureVMList
         DirectCast(Feature, BTLFeatureVM).ResetCalcFeature()
      Next
   End Sub

#End Region    ' Feature

#End Region    ' METHODS

#Region "COMMANDS"

#Region "BackRotation"

   Public ReadOnly Property BackRotation_Command As ICommand
      Get
         If m_cmdBackRotation Is Nothing Then
            m_cmdBackRotation = New Command(AddressOf BackRotation)
         End If
         Return m_cmdBackRotation
      End Get
   End Property

   Public Sub BackRotation()
      ' se sta calcolando, esco subito
      If Map.refProjectVM.bCalcRunning Then Return
      ' se MachGroup gia' mandato in produzione, esco
      If m_ParentMachGroupVM.nProduction_State >= ItemState.Assigned Then Return
      Rotate(False)
      EgtDraw()
   End Sub

#End Region ' BackRotation

#Region "ForwardRotation"

   Public ReadOnly Property ForwardRotation_Command As ICommand
      Get
         If m_cmdForwardRotation Is Nothing Then
            m_cmdForwardRotation = New Command(AddressOf ForwardRotation)
         End If
         Return m_cmdForwardRotation
      End Get
   End Property

   Public Sub ForwardRotation()
      If Map.refProjectVM.bCalcRunning Then Return
      ' se MachGroup gia' mandato in produzione, esco
      If m_ParentMachGroupVM.nProduction_State >= ItemState.Assigned Then Return
      Rotate(True)
      EgtDraw()
   End Sub

#End Region ' ForwardRotation

#Region "MoveUpPart"

   Public ReadOnly Property MoveUpPart_Command As ICommand
      Get
         If m_cmdMoveUpPart Is Nothing Then
            m_cmdMoveUpPart = New Command(AddressOf MoveUpPart)
         End If
         Return m_cmdMoveUpPart
      End Get
   End Property

   Public Sub MoveUpPart()
      If IsNothing(ProjectManagerVM.CurrProd) Then Return
      Dim SelMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.SelectedMachGroup
      ' Recupero indice elemento selezionato in lista
      Dim Index As Integer = ParentMachGroupVM.PartVMList.IndexOf(SelMachGroup.PartVMList.FirstOrDefault(Function(x) x.nPartId = nPartId))
      If IsNothing(SelMachGroup) Then Return
      ' se barra gia' assegnata a supervisore, esco
      If SelMachGroup.nProduction_State >= ItemState.Assigned Then Return
      Dim SelPart As PartVM = SelMachGroup.PartVMList(Index)
      If IsNothing(SelPart) Then Return
      If SelMachGroup.nType = MachineType.BEAM Then
         SelMachGroup.MoveBeam(SelPart, MoveDirections.UP)
         EgtDraw()
         ' riseleziono trave
         SelMachGroup.SelPart = SelPart
      End If
      SelMachGroup.ResetCalcMachGroup()
   End Sub

#End Region    ' MoveUpPart

#Region "MoveDownPart"

   Public ReadOnly Property MoveDownPart_Command As ICommand
      Get
         If m_cmdMoveDownPart Is Nothing Then
            m_cmdMoveDownPart = New Command(AddressOf MoveDownPart)
         End If
         Return m_cmdMoveDownPart
      End Get
   End Property

   Public Sub MoveDownPart()
      If IsNothing(ProjectManagerVM.CurrProd) Then Return
      Dim SelMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.SelectedMachGroup
      ' Recupero indice elemento selezionato in lista
      Dim Index As Integer = ParentMachGroupVM.PartVMList.IndexOf(SelMachGroup.PartVMList.FirstOrDefault(Function(x) x.nPartId = nPartId))
      If IsNothing(SelMachGroup) Then Return
      ' se barra gia' assegnata a supervisore, esco
      If SelMachGroup.nProduction_State >= ItemState.Assigned Then Return
      Dim SelPart As PartVM = SelMachGroup.PartVMList(Index)
      If IsNothing(SelPart) Then Return
      If SelMachGroup.nType = MachineType.BEAM Then
         SelMachGroup.MoveBeam(SelPart, MoveDirections.DOWN)
         EgtDraw()
         ' riseleziono trave
         SelMachGroup.SelPart = SelPart
      End If
      SelMachGroup.ResetCalcMachGroup()
   End Sub

#End Region    ' MoveDownPart

#Region "RemovePart"

   Public ReadOnly Property RemovePart_Command As ICommand
      Get
         If m_cmdRemovePart Is Nothing Then
            m_cmdRemovePart = New Command(AddressOf RemovePart)
         End If
         Return m_cmdRemovePart
      End Get
   End Property

   Public Sub RemovePart()
      If IsNothing(ProjectManagerVM.CurrProd) Then Return
      If EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(62575), EgtMsg(30009), MessageBoxButton.OKCancel, MessageBoxImage.Exclamation) = MessageBoxResult.OK Then
         Dim SelMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.SelectedMachGroup
         ' Recupero indice elemento selezionato in lista
         Dim Index As Integer = ParentMachGroupVM.PartVMList.IndexOf(SelMachGroup.PartVMList.FirstOrDefault(Function(x) x.nPartId = nPartId))
         If IsNothing(SelMachGroup) Then Return
         ' se barra gia' assegnata a supervisore, esco
         If SelMachGroup.nProduction_State >= ItemState.Assigned Then Return
         Dim SelPart As PartVM = SelMachGroup.PartVMList(Index)
         If IsNothing(SelPart) Then Return
         SelPart.DeletePart()
         SelMachGroup.UpdateUsage()
         SelMachGroup.ResetCalcMachGroup()
      Else
         Return
      End If
   End Sub

#End Region    ' RemovePart

#End Region    ' COMMANDS

#Region "EVENTS"

   Protected Overrides Sub OnBTLFeatureVMPropertyChanged(sender As Object, e As PropertyChangedEventArgs)
      Select Case e.PropertyName
         Case NameOf(sender.bDO)
            ' setto pezzo da ricalcolare
            ResetCalcTotalPart()
            NotifyPropertyChanged(NameOf(bDOALL))
      End Select
   End Sub

#End Region    ' EVENTS

End Class