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

Public Class BTLPartVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Private WithEvents m_BTLPartM As BTLPartM
   Public ReadOnly Property BTLPartM As BTLPartM
      Get
         Return m_BTLPartM
      End Get
   End Property
   Private m_BTLStructureM As BTLStructureM

   Public ReadOnly Property nPartId As Integer
      Get
         Return m_BTLPartM.nPartId
      End Get
   End Property

   Public Property nPROJ As Integer
      Get
         Return m_BTLPartM.nPROJ
      End Get
      Set(value As Integer)
         m_BTLPartM.nPROJ = value
      End Set
   End Property

   Public Property nPDN As Integer
      Get
         Return m_BTLPartM.nPDN
      End Get
      Set(value As Integer)
         m_BTLPartM.nPDN = value
      End Set
   End Property

   Public Property bDO As Boolean
      Get
         Return m_BTLPartM.bDO
      End Get
      Set(value As Boolean)
         m_BTLPartM.bDO = value
         EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_DO, If(value, 1, 0))
         NotifyPropertyChanged(NameOf(Calc_BorderBrush))
      End Set
   End Property

   Public Property sNAM As String
      Get
         Return m_BTLPartM.sNAM
      End Get
      Set(value As String)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_NAM, value) Then
            m_BTLPartM.sNAM = value
         End If
         NotifyPropertyChanged(NameOf(sNAM))
      End Set
   End Property

   Private Function SetBtlLHW(dBtlL As Double, dBtlH As Double, dBtlW As Double) As Boolean
      Dim OldSection As SectionXMaterial = Section
      ' verifico se ci sono già copie in grezzi
      Dim nDuploCount As Integer = 0
      If EgtDuploCount(m_BTLPartM.nPartId, nDuploCount) AndAlso nDuploCount > 0 Then
         ' se modalità travi e trave 
         If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM OrElse
            Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.WALL Then
            If dBtlW <> m_BTLPartM.dBtlW OrElse dBtlH <> m_BTLPartM.dBtlH OrElse dBtlL <> m_BTLPartM.dBtlL Then
               ' se pezzo gia' in produzione
               Dim DuploList As New List(Of Integer)
               EgtDuploList(m_BTLPartM.nPartId, DuploList)
               Dim bDuploInProduction As Boolean = False
               For Each DuploId In DuploList
                  Dim nSwapItem As Integer = GDB_ID.NULL
                  Dim sSwapItem As String = String.Empty
                  EgtGetInfo(DuploId, "!LST", sSwapItem)
                  Dim LSTValues() As String = sSwapItem.Split(","c)
                  If Not IsNothing(LSTValues(LSTValues.Count - 1)) AndAlso Integer.TryParse(LSTValues(LSTValues.Count - 1), nSwapItem) AndAlso nSwapItem > 0 Then
                     Dim nMachgroupId As Integer = EgtGetParent(EgtGetParent(EgtGetParent(nSwapItem)))
                     If nMachgroupId = GDB_ID.NULL Then
                        EgtOutLog("Trovato Duplo Ghost")
                     Else
                        Dim MachGroupModel = Nothing
                        If Not IsNothing(Map.refProdManagerVM) Then
                           MachGroupModel = DbControllers.m_MachGroupController.FindByMachGroupId(ProjectManagerVM.CurrProd.nProdId, nMachgroupId)
                        End If
                        If Not IsNothing(MachGroupModel) AndAlso MachGroupModel.State > ItemState.ND Then
                           bDuploInProduction = True
                           Exit For
                        End If
                     End If
                  End If
               Next
               If bDuploInProduction Then
                  EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(62586), "", MessageBoxButton.OK, MessageBoxImage.Exclamation)
                  Return False
               End If
               ' lo impedisco
               ' avviso che tutti i pezzi verranno tolti dai grezzi e chiedo di confermare
               If EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, String.Format(EgtMsg(61851), nDuploCount), EgtMsg(15003), MessageBoxButton.YesNo, MessageBoxImage.Information) = MessageBoxResult.Yes Then
                  MyMachGroupPanelM.DuploSetToDelete(m_BTLPartM.nPartId)
                  DeleteDuplo_Otmizer(DuploList)
               Else
                  ' reimposto vecchio valore
                  Return False
               End If
            End If
         End If
      End If

      ' verifico se solido attivo
      Dim bShowSolid As Boolean = Map.refShowBeamPanelVM.ShowSolid_IsChecked
      If bShowSolid Then Map.refProjectVM.BTLStructureVM.ShowSolid(GDB_ID.NULL, False, False)

      If Not EgtBeamSetPartBox(dBtlL, dBtlH, dBtlW, False) Then Return False

      ' imposto modificato per copie
      MyMachGroupPanelM.SetDuploModified(m_BTLPartM.nPartId)
      ' ricalcolo tutte le feature contenute
      UpdateFeatures()
      ' setto part da ricalcolare
      ResetCalcTotalPart()
      m_BTLPartM.dBtlL = dBtlL
      m_BTLPartM.dBtlH = dBtlH
      m_BTLPartM.dBtlW = dBtlW
      ' aggiorno sezioni
      Map.refProjectVM.BTLStructureVM.UpdateSection(Section, OldSection)
      ' eventualmente ripristino solido
      If bShowSolid Then Map.refProjectVM.BTLStructureVM.ShowSolid(GDB_ID.NULL, True, False)
      EgtDraw()

      Return True
   End Function

   Private Sub DeleteDuplo_Otmizer(DuploList As List(Of Integer))
      For Each nDuploId In DuploList
         ' recupero grezzo cui appartiene
         Dim nRawPartId As Integer = MyMachGroupPanelM.DuploGetRawPart(nDuploId)
         ' recupero gruppo di lavorazione 
         Dim nMachGroupId As Integer = 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 MyMachGroupVM = Map.refMachGroupPanelVM.MachGroupVMList.FirstOrDefault(Function(x) x.Id = nMachGroupId)
         If Not IsNothing(BeamMachGroup) Then
            Dim Beam As PartVM = BeamMachGroup.PartVMList.FirstOrDefault(Function(x) x.nPartId = nDuploId)
            EgtSetCurrMachGroup(BeamMachGroup.Id)
            Beam.DeletePart()
         End If
         ' reset necessario per poter ottenere nMachGroupId corretto
         EgtResetCurrMachGroup()
         ' aggiorno dati utilizzo barra
         BeamMachGroup.UpdateUsage()
      Next
      ' aggiorno quantita' in prod
      Dim BTLPart As BTLPartVM = CALCPanelVM.GetBTLPartVMFromBTLPartId(m_BTLPartM.nPartId)
      BTLPart.RefreshPartInProd()
   End Sub

   Private Function GetOrigFrameGroup(nPartId As Integer) As Integer
      Dim nCOP As Integer = GDB_ID.NULL
      Dim nBAS As Integer = GDB_ID.NULL
      EgtGetInfo(nPartId, "!COP", nCOP)
      EgtGetInfo(nPartId, "!BAS", nBAS)
      If nCOP = GDB_ID.NULL Then
         Return nBAS
      Else
         EgtGetInfo(nCOP, "!BAS", nBAS)
         Return nBAS
      End If
   End Function

   Public Property sL As String
      Get
         Dim nOrigGroupId As Integer = nPartId
         If EgtGetCurrentContext() = Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx() Then
            nOrigGroupId = Map.refSceneShowBuldingVM.MapInfo(nPartId)
         End If
         If EgtBeamGetBuildingIsOn() AndAlso Map.refShowBeamPanelVM.bShowAll Then
            nOrigGroupId = GetOrigFrameGroup(nPartId)
         End If
         Dim frBeam As New Frame3d
         EgtGetGroupGlobFrame(nOrigGroupId, frBeam)
         If IsX(frBeam.VersX(), EPS_SMALL) Then
            Return LenToString(m_BTLPartM.dBtlL, 3)
         ElseIf IsX(frBeam.VersY(), EPS_SMALL) Then
            Return LenToString(m_BTLPartM.dBtlH, 3)
         Else
            Return LenToString(m_BTLPartM.dBtlW, 3)
         End If
      End Get
      Set(value As String)
         Dim dVal As Double
         If StringToLenAdv(value, dVal, True) Then
            Dim dBtlL = m_BTLPartM.dBtlL
            Dim dBtlW = m_BTLPartM.dBtlW
            Dim dBtlH = m_BTLPartM.dBtlH
            Dim frBeam As New Frame3d
            EgtGetGroupGlobFrame(nPartId, frBeam)
            If IsX(frBeam.VersX(), EPS_SMALL) Then
               dBtlL = dVal
            ElseIf IsX(frBeam.VersY(), EPS_SMALL) Then
               dBtlH = dVal
            Else
               dBtlW = dVal
            End If
            SetBtlLHW(dBtlL, dBtlH, dBtlW)
         End If
         NotifyPropertyChanged(NameOf(sL))
         NotifyPropertyChanged(NameOf(sH))
         NotifyPropertyChanged(NameOf(sW))
         ResetCalcTotalPart()
      End Set
   End Property
   Public ReadOnly Property dL As Double
      Get
         Dim frBeam As New Frame3d
         EgtGetGroupGlobFrame(nPartId, frBeam)
         If IsX(frBeam.VersX(), EPS_SMALL) Then
            Return m_BTLPartM.dBtlL
         ElseIf IsX(frBeam.VersY(), EPS_SMALL) Then
            Return m_BTLPartM.dBtlH
         Else
            Return m_BTLPartM.dBtlW
         End If
      End Get
   End Property
   Public ReadOnly Property dBtlL As Double
      Get
         Return m_BTLPartM.dBtlL
      End Get
   End Property

   Public Property sW As String
      Get
         Dim nOrigGroupId As Integer = nPartId
         If EgtGetCurrentContext() = Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx() Then
            nOrigGroupId = Map.refSceneShowBuldingVM.MapInfo(nPartId)
         End If
         If EgtBeamGetBuildingIsOn() AndAlso Map.refShowBeamPanelVM.bShowAll Then
            nOrigGroupId = GetOrigFrameGroup(nPartId)
         End If
         Dim frBeam As New Frame3d
         EgtGetGroupGlobFrame(nOrigGroupId, frBeam)
         If IsY(frBeam.VersX(), EPS_SMALL) Then
            Return LenToString(m_BTLPartM.dBtlL, 3)
         ElseIf IsY(frBeam.VersY(), EPS_SMALL) Then
            Return LenToString(m_BTLPartM.dBtlH, 3)
         Else
            Return LenToString(m_BTLPartM.dBtlW, 3)
         End If
      End Get
      Set(value As String)
         Dim dVal As Double
         If StringToLenAdv(value, dVal, True) Then
            Dim dBtlL = m_BTLPartM.dBtlL
            Dim dBtlW = m_BTLPartM.dBtlW
            Dim dBtlH = m_BTLPartM.dBtlH
            Dim frBeam As New Frame3d
            EgtGetGroupGlobFrame(nPartId, frBeam)
            If IsY(frBeam.VersX(), EPS_SMALL) Then
               dBtlL = dVal
            ElseIf IsY(frBeam.VersY(), EPS_SMALL) Then
               dBtlH = dVal
            Else
               dBtlW = dVal
            End If
            SetBtlLHW(dBtlL, dBtlH, dBtlW)
         End If
         NotifyPropertyChanged(NameOf(sL))
         NotifyPropertyChanged(NameOf(sH))
         NotifyPropertyChanged(NameOf(sW))
         ResetCalcTotalPart()
      End Set
   End Property
   Public ReadOnly Property dW As Double
      Get
         Dim frBeam As New Frame3d
         EgtGetGroupGlobFrame(nPartId, frBeam)
         If IsY(frBeam.VersX(), EPS_SMALL) Then
            Return m_BTLPartM.dBtlL
         ElseIf IsY(frBeam.VersY(), EPS_SMALL) Then
            Return m_BTLPartM.dBtlH
         Else
            Return m_BTLPartM.dBtlW
         End If
      End Get
   End Property
   Public ReadOnly Property dBtlW As Double
      Get
         Return m_BTLPartM.dBtlW
      End Get
   End Property

   Public Property sH As String
      Get
         Dim nOrigGroupId As Integer = nPartId
         If EgtGetCurrentContext() = Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx() Then
            nOrigGroupId = Map.refSceneShowBuldingVM.MapInfo(nPartId)
         End If
         If EgtBeamGetBuildingIsOn() AndAlso Map.refShowBeamPanelVM.bShowAll Then
            nOrigGroupId = GetOrigFrameGroup(nPartId)
         End If
         Dim frBeam As New Frame3d
         EgtGetGroupGlobFrame(nOrigGroupId, frBeam)
         If IsZ(frBeam.VersX(), EPS_SMALL) Then
            Return LenToString(m_BTLPartM.dBtlL, 3)
         ElseIf IsZ(frBeam.VersY(), EPS_SMALL) Then
            Return LenToString(m_BTLPartM.dBtlH, 3)
         Else
            Return LenToString(m_BTLPartM.dBtlW, 3)
         End If
      End Get
      Set(value As String)
         Dim dVal As Double
         If StringToLenAdv(value, dVal, True) Then
            Dim dBtlL = m_BTLPartM.dBtlL
            Dim dBtlW = m_BTLPartM.dBtlW
            Dim dBtlH = m_BTLPartM.dBtlH
            Dim frBeam As New Frame3d
            EgtGetGroupGlobFrame(nPartId, frBeam)
            If IsZ(frBeam.VersX(), EPS_SMALL) Then
               dBtlL = dVal
            ElseIf IsZ(frBeam.VersY(), EPS_SMALL) Then
               dBtlH = dVal
            Else
               dBtlW = dVal
            End If
            SetBtlLHW(dBtlL, dBtlH, dBtlW)
         End If
         NotifyPropertyChanged(NameOf(sL))
         NotifyPropertyChanged(NameOf(sH))
         NotifyPropertyChanged(NameOf(sW))
         ResetCalcTotalPart()
      End Set
   End Property
   Public ReadOnly Property dH As Double
      Get
         Dim frBeam As New Frame3d
         EgtGetGroupGlobFrame(nPartId, frBeam)
         If IsZ(frBeam.VersX(), EPS_SMALL) Then
            Return m_BTLPartM.dBtlL
         ElseIf IsZ(frBeam.VersY(), EPS_SMALL) Then
            Return m_BTLPartM.dBtlH
         Else
            Return m_BTLPartM.dBtlW
         End If
      End Get
   End Property
   Public ReadOnly Property dBtlH As Double
      Get
         Return m_BTLPartM.dBtlH
      End Get
   End Property

#Region "Parametri pezzo"

   Public Property nSINGLEMEMBERNUM As Integer
      Get
         Return m_BTLPartM.nSINGLEMEMBERNUM
      End Get
      Set(value As Integer)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_SINGLEMEMBERNUM, value) Then
            m_BTLPartM.nSINGLEMEMBERNUM = value
         Else
            NotifyPropertyChanged(NameOf(nSINGLEMEMBERNUM))
         End If
      End Set
   End Property

   Public Property sASSEMBLYNUM As String
      Get
         Return m_BTLPartM.sASSEMBLYNUM
      End Get
      Set(value As String)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_ASSEMBLYNUM, value) Then
            m_BTLPartM.sASSEMBLYNUM = value
         Else
            NotifyPropertyChanged(NameOf(sASSEMBLYNUM))
         End If
      End Set
   End Property

   Public Property nORDERNUM As Integer
      Get
         Return m_BTLPartM.nORDERNUM
      End Get
      Set(value As Integer)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_ORDERNUM, value) Then
            m_BTLPartM.nORDERNUM = value
         Else
            NotifyPropertyChanged(NameOf(nORDERNUM))
         End If
      End Set
   End Property

   Public Property sDESIGN As String
      Get
         Return m_BTLPartM.sDESIGN
      End Get
      Set(value As String)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_DESIGNATION, value) Then
            m_BTLPartM.sDESIGN = value
         Else
            NotifyPropertyChanged(NameOf(sDESIGN))
         End If
      End Set
   End Property

   Public Property sANNOT As String
      Get
         Return m_BTLPartM.sANNOT
      End Get
      Set(value As String)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_ANNOTATION, value) Then
            m_BTLPartM.sANNOT = value
         Else
            NotifyPropertyChanged(NameOf(sANNOT))
         End If
      End Set
   End Property

   Public Property sSTOREY As String
      Get
         Return m_BTLPartM.sSTOREY
      End Get
      Set(value As String)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_STOREY, value) Then
            m_BTLPartM.sSTOREY = value
         Else
            NotifyPropertyChanged(NameOf(sSTOREY))
         End If
      End Set
   End Property

   Public Property sGROUP As String
      Get
         Return m_BTLPartM.sGROUP
      End Get
      Set(value As String)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_GROUP, value) Then
            m_BTLPartM.sGROUP = value
         Else
            NotifyPropertyChanged(NameOf(sGROUP))
         End If
      End Set
   End Property

   Public Property sPACKAGE As String
      Get
         Return m_BTLPartM.sPACKAGE
      End Get
      Set(value As String)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_PACKAGE, value) Then
            m_BTLPartM.sPACKAGE = value
         Else
            NotifyPropertyChanged(NameOf(sPACKAGE))
         End If
      End Set
   End Property

   Public Property sMATERIAL As String
      Get
         Return m_BTLPartM.sMATERIAL
      End Get
      Set(value As String)
         If value <> m_BTLPartM.sMATERIAL Then
            If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_MATERIAL, value) Then
               ' verifico se ci sono altri pezzi con la sezione vecchia
               Dim bOtherSection As Boolean = Map.refProjectVM.BTLStructureVM.BTLPartVMList.Any(Function(x) x IsNot Me AndAlso x.Section = Section)
               Dim OldSection As SectionXMaterial = Nothing
               If Not bOtherSection Then
                  ' recupero indice
                  OldSection = Map.refProjectVM.BTLStructureVM.SectionList.FirstOrDefault(Function(x) x = Section)
               End If
               m_BTLPartM.sMATERIAL = value
               ' aggiorno sezione
               If bOtherSection Then
                  ' se sezione nuova non presente
                  If Not Map.refProjectVM.BTLStructureVM.SectionList.Contains(Section) Then
                     ' creo nuova sezione
                     Map.refProjectVM.BTLStructureVM.SectionList.Add(Section)
                  End If
               Else
                  ' se sezione nuova gia' presente
                  If Map.refProjectVM.BTLStructureVM.SectionList.Contains(Section) Then
                     ' cancello sezione vecchia
                     Map.refProjectVM.BTLStructureVM.SectionList.Remove(OldSection)
                  Else
                     ' altrimenti la modifico
                     If Not IsNothing(OldSection) Then
                        OldSection.sMaterial.Clear()
                        OldSection.sMaterial.Add(sMATERIAL)
                     End If
                  End If
               End If
            End If
            NotifyPropertyChanged(NameOf(sMATERIAL))
         End If
      End Set
   End Property

   Public Property sTIMBERGRADE As String
      Get
         Return m_BTLPartM.sTIMBERGRADE
      End Get
      Set(value As String)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_TIMBERGRADE, value) Then
            m_BTLPartM.sTIMBERGRADE = value
         Else
            NotifyPropertyChanged(NameOf(sTIMBERGRADE))
         End If
      End Set
   End Property

   Public Property sQUALITYGRADE As String
      Get
         Return m_BTLPartM.sQUALITYGRADE
      End Get
      Set(value As String)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_QUALITYGRADE, value) Then
            m_BTLPartM.sQUALITYGRADE = value
         Else
            NotifyPropertyChanged(NameOf(sQUALITYGRADE))
         End If
      End Set
   End Property

   Public ReadOnly Property PartColour As Brush
      Get
         Return New SolidColorBrush(Color.FromArgb(m_BTLPartM.colCOLOR.ToColor().A,
                                                   CByte(m_BTLPartM.colCOLOR.R),
                                                   CByte(m_BTLPartM.colCOLOR.G),
                                                   CByte(m_BTLPartM.colCOLOR.B)))
      End Get
   End Property

   Public Property sCOLRGB As String
      Get
         Return m_BTLPartM.colCOLOR.R & "," &
                m_BTLPartM.colCOLOR.G & "," &
                m_BTLPartM.colCOLOR.B & "," &
                nCOLA
      End Get
      Set(value As String)
         Dim sValArray() As String = value.Split(",")
         If sValArray.Count() >= 4 Then
            m_BTLPartM.m_colCOLOR.R = Color3d.Clamp(sValArray(0), 0, 255)
            m_BTLPartM.m_colCOLOR.G = Color3d.Clamp(sValArray(1), 0, 255)
            m_BTLPartM.m_colCOLOR.B = Color3d.Clamp(sValArray(2), 0, 255)
            m_BTLPartM.m_colCOLOR.A = Color3d.Clamp(nCOLA, 0, 100)
            EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_COLOUR, m_BTLPartM.colCOLOR.ToString())
         Else
            NotifyPropertyChanged(NameOf(sCOLRGB))
         End If
      End Set
   End Property

   Public Property nCOLA As Integer
      Get
         Return m_BTLPartM.colCOLOR.A
      End Get
      Set(value As Integer)
         If m_BTLPartM.colCOLOR.A <> value Then
            m_BTLPartM.m_colCOLOR.A = Color3d.Clamp(value, 0, 100)
            EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_COLOUR, m_BTLPartM.colCOLOR.ToString())
            NotifyPropertyChanged(NameOf(nCOLA))
            NotifyPropertyChanged(NameOf(PartColour))
         End If
      End Set
   End Property

   Public Property dPLANINGLEN As String
      Get
         Return LenToString(m_BTLPartM.dPLANINGLEN, 3)
      End Get
      Set(value As String)
         Dim dTempPlaningLen As Double
         If StringToLenAdv(value, dTempPlaningLen, True) AndAlso EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_PLANINGLENGTH, dTempPlaningLen) Then
            m_BTLPartM.dPLANINGLEN = dTempPlaningLen
         Else
            NotifyPropertyChanged(NameOf(dPLANINGLEN))
         End If
      End Set
   End Property

   Public Property dSTARTOFFSET As String
      Get
         Return LenToString(m_BTLPartM.dSTARTOFFSET, 3)
      End Get
      Set(value As String)
         Dim dTempStartOffset As Double
         If StringToLenAdv(value, dTempStartOffset, True) AndAlso EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_STARTOFFSET, dTempStartOffset) Then
            m_BTLPartM.dSTARTOFFSET = dTempStartOffset
         Else
            NotifyPropertyChanged(NameOf(dSTARTOFFSET))
         End If
      End Set
   End Property

   Public Property dENDOFFSET As String
      Get
         Return LenToString(m_BTLPartM.dENDOFFSET, 3)
      End Get
      Set(value As String)
         Dim dTempEndOffset As Double
         If StringToLenAdv(value, dTempEndOffset, True) AndAlso EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_ENDOFFSET, dTempEndOffset) Then
            m_BTLPartM.dENDOFFSET = dTempEndOffset
         Else
            NotifyPropertyChanged(NameOf(dENDOFFSET))
         End If
      End Set
   End Property

   Public ReadOnly Property ocUID As ObservableCollection(Of Integer)
      Get
         Return m_BTLPartM.ocUID
      End Get
   End Property

   Public Property SelUID As Integer
      Get
         Return m_BTLPartM.SelUID
      End Get
      Set(value As Integer)
         If m_BTLPartM.SelUID <> value Then
            m_BTLPartM.m_refTransf = m_BTLPartM.refTransfList(value)
            m_BTLPartM.SelUID = value
            NotifyPropertyChanged(NameOf(TransfOrig))
            NotifyPropertyChanged(NameOf(TransfVersX))
            NotifyPropertyChanged(NameOf(TransfVersY))
         Else
            NotifyPropertyChanged(NameOf(SelUID))
         End If
      End Set
   End Property

   Public Property TransfOrig As String
      Get
         If SelUID >= 0 AndAlso
            SelUID < m_BTLPartM.refTransfList.Count AndAlso
            Not IsNothing(m_BTLPartM.refTransfList(SelUID)) Then
            Return LenToString(m_BTLPartM.refTransfList(SelUID).Orig().x, 3) & "," &
                   LenToString(m_BTLPartM.refTransfList(SelUID).Orig().y, 3) & "," &
                   LenToString(m_BTLPartM.refTransfList(SelUID).Orig().z, 3)
         Else
            Return Nothing
         End If
      End Get
      Set(value As String)
         Dim sValArray() As String = value.Split(",")
         Dim ptOri As New Point3d
         If sValArray.Count() >= 3 AndAlso
            StringToLenAdv(sValArray(0), ptOri.x, True) AndAlso
            StringToLenAdv(sValArray(1), ptOri.y, True) AndAlso
            StringToLenAdv(sValArray(2), ptOri.z, True) AndAlso
            m_BTLPartM.refTransf.ChangeOrigin(ptOri) Then
            EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_TRANSFORMATION & (SelUID + 1), LenToString(m_BTLPartM.refTransf.Orig.x, 3) & "," &
                                                                                  LenToString(m_BTLPartM.refTransf.Orig.y, 3) & "," &
                                                                                  LenToString(m_BTLPartM.refTransf.Orig.z, 3) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersX.x, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersX.y, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersX.z, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersY.x, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersY.y, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersY.z, 6))
         Else
            NotifyPropertyChanged(NameOf(TransfOrig))
         End If
      End Set
   End Property
   Public Property TransfVersX As String
      Get
         If SelUID >= 0 AndAlso
            SelUID < m_BTLPartM.refTransfList.Count AndAlso
            Not IsNothing(m_BTLPartM.refTransfList(SelUID)) Then
            Return DoubleToString(m_BTLPartM.refTransfList(SelUID).VersX().x, 6) & "," &
                   DoubleToString(m_BTLPartM.refTransfList(SelUID).VersX().y, 6) & "," &
                   DoubleToString(m_BTLPartM.refTransfList(SelUID).VersX().z, 6)
         Else
            Return Nothing
         End If
      End Get
      Set(value As String)
         Dim ptOri As New Point3d(m_BTLPartM.refTransf.Orig())
         Dim vtVersY As New Vector3d(m_BTLPartM.refTransf.VersY())
         Dim sValArray() As String = value.Split(",")
         Dim vtVersX As New Vector3d
         If sValArray.Count() >= 3 AndAlso
            StringToDoubleAdv(sValArray(0), vtVersX.x, True) AndAlso
            StringToDoubleAdv(sValArray(1), vtVersX.y, True) AndAlso
            StringToDoubleAdv(sValArray(2), vtVersX.z, True) AndAlso
            m_BTLPartM.refTransf.Setup(ptOri, ptOri + vtVersX, ptOri + vtVersY) Then
            EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_TRANSFORMATION & (SelUID + 1), LenToString(m_BTLPartM.refTransf.Orig.x, 3) & "," &
                                                                                  LenToString(m_BTLPartM.refTransf.Orig.y, 3) & "," &
                                                                                  LenToString(m_BTLPartM.refTransf.Orig.z, 3) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersX.x, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersX.y, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersX.z, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersY.x, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersY.y, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersY.z, 6))
            NotifyPropertyChanged(NameOf(TransfVersX))
            NotifyPropertyChanged(NameOf(TransfVersY))
         Else
            NotifyPropertyChanged(NameOf(TransfVersX))
         End If
      End Set
   End Property
   Public Property TransfVersY As String
      Get
         If SelUID >= 0 AndAlso
            SelUID < m_BTLPartM.refTransfList.Count AndAlso
            Not IsNothing(m_BTLPartM.refTransfList(SelUID)) Then
            Return DoubleToString(m_BTLPartM.refTransfList(SelUID).VersY().x, 6) & "," &
                   DoubleToString(m_BTLPartM.refTransfList(SelUID).VersY().y, 6) & "," &
                   DoubleToString(m_BTLPartM.refTransfList(SelUID).VersY().z, 6)
         Else
            Return Nothing
         End If
      End Get
      Set(value As String)
         Dim ptOri As New Point3d(m_BTLPartM.refTransf.Orig())
         Dim vtVersX As New Vector3d(m_BTLPartM.refTransf.VersX())
         Dim sValArray() As String = value.Split(",")
         Dim vtVersY As New Vector3d
         If sValArray.Count() >= 3 AndAlso
            StringToDoubleAdv(sValArray(0), vtVersY.x, True) AndAlso
            StringToDoubleAdv(sValArray(1), vtVersY.y, True) AndAlso
            StringToDoubleAdv(sValArray(2), vtVersY.z, True) AndAlso
            m_BTLPartM.refTransf.Setup(ptOri, ptOri + vtVersX, ptOri + vtVersY) Then
            EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_TRANSFORMATION & (SelUID + 1), LenToString(m_BTLPartM.refTransf.Orig.x, 3) & "," &
                                                                                  LenToString(m_BTLPartM.refTransf.Orig.y, 3) & "," &
                                                                                  LenToString(m_BTLPartM.refTransf.Orig.z, 3) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersX.x, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersX.y, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersX.z, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersY.x, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersY.y, 6) & "," &
                                                                                  DoubleToString(m_BTLPartM.refTransf.VersY.z, 6))
            NotifyPropertyChanged(NameOf(TransfVersX))
            NotifyPropertyChanged(NameOf(TransfVersY))
         Else
            NotifyPropertyChanged(NameOf(TransfVersY))
         End If
      End Set
   End Property

   Public ReadOnly Property ocCAMBERSIDE As ObservableCollection(Of Integer)
      Get
         Return m_BTLPartM.ocCAMBERSIDE
      End Get
   End Property

   Public Property SelCAMBERSIDE As Integer
      Get
         Return m_BTLPartM.SelCAMBERSIDE
      End Get
      Set(value As Integer)
         Dim sValArray() As String = CamberParams.Split(",")
         If sValArray.Count() >= 4 AndAlso
            StringToLenAdv(sValArray(0), m_BTLPartM.m_dCamberLen1, True) AndAlso
            StringToLenAdv(sValArray(1), m_BTLPartM.m_dCamberLen2, True) AndAlso
            StringToLenAdv(sValArray(2), m_BTLPartM.m_dCamberLen3, True) AndAlso
            StringToLenAdv(sValArray(3), m_BTLPartM.m_dCamberCross3, True) AndAlso
            EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_CAMBER, " SIDE: " & (value + 1) &
                                                           " P01: " & sValArray(0) &
                                                           " P02: " & sValArray(1) &
                                                           " P03: " & sValArray(2) &
                                                           " P04: " & sValArray(3)) Then
            m_BTLPartM.SelCAMBERSIDE = value
         Else
            NotifyPropertyChanged(NameOf(SelCAMBERSIDE))
         End If
      End Set
   End Property

   Public Property CamberParams As String
      Get
         Return LenToString(m_BTLPartM.m_dCamberLen1, 3) & "," &
                LenToString(m_BTLPartM.m_dCamberLen2, 3) & "," &
                LenToString(m_BTLPartM.m_dCamberLen3, 3) & "," &
                LenToString(m_BTLPartM.m_dCamberCross3, 3)
      End Get
      Set(value As String)
         Dim sValArray() As String = value.Split(",")
         If sValArray.Count() >= 4 AndAlso
            StringToLenAdv(sValArray(0), m_BTLPartM.m_dCamberLen1, True) AndAlso
            StringToLenAdv(sValArray(1), m_BTLPartM.m_dCamberLen2, True) AndAlso
            StringToLenAdv(sValArray(2), m_BTLPartM.m_dCamberLen3, True) AndAlso
            StringToLenAdv(sValArray(3), m_BTLPartM.m_dCamberCross3, True) Then
            EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_CAMBER, " SIDE: " & (SelCAMBERSIDE + 1) &
                                                           " P01: " & sValArray(0) &
                                                           " P02: " & sValArray(1) &
                                                           " P03: " & sValArray(2) &
                                                           " P04: " & sValArray(3))
         Else
            NotifyPropertyChanged(NameOf(CamberParams))
         End If
      End Set
   End Property

   Public ReadOnly Property ocREFSIDEFIXCLAMP As ObservableCollection(Of Object)
      Get
         Return m_BTLPartM.ocREFSIDEFIXCLAMP
      End Get
   End Property

   Public Property SelREFSIDEFIXCLAMP As Integer
      Get
         Return m_BTLPartM.SelREFSIDEFIXCLAMP
      End Get
      Set(value As Integer)
         Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocREFSIDEFIXCLAMP)
         Dim sValue As String = ocREFSIDEFIXCLAMP(nValue).Name

         Dim sValArray() As String = PartOffsetParams.Split(",")
         If sValArray.Count() >= 4 AndAlso
            StringToLenAdv(sValArray(0), m_BTLPartM.m_dPartOffsetSide1, True) AndAlso
            StringToLenAdv(sValArray(1), m_BTLPartM.m_dPartOffsetSide2, True) AndAlso
            StringToLenAdv(sValArray(2), m_BTLPartM.m_dPartOffsetSide3, True) AndAlso
            StringToLenAdv(sValArray(3), m_BTLPartM.m_dPartOffsetSide4, True) AndAlso
            EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_PARTOFFSET, " P04: " & sValue &
                                                               " P11: " & sValArray(0) &
                                                               " P12: " & sValArray(1) &
                                                               " P13: " & sValArray(2) &
                                                               " P14: " & sValArray(3)) Then
            m_BTLPartM.SelREFSIDEFIXCLAMP = value
         Else
            NotifyPropertyChanged(NameOf(SelREFSIDEFIXCLAMP))
         End If
      End Set
   End Property

   Public Property PartOffsetParams As String
      Get
         Return LenToString(m_BTLPartM.m_dPartOffsetSide1, 3) & "," &
                LenToString(m_BTLPartM.m_dPartOffsetSide2, 3) & "," &
                LenToString(m_BTLPartM.m_dPartOffsetSide3, 3) & "," &
                LenToString(m_BTLPartM.m_dPartOffsetSide4, 3)
      End Get
      Set(value As String)
         Dim nValue As Integer = IdNameStruct.IdFromInd(SelREFSIDEFIXCLAMP, ocREFSIDEFIXCLAMP)
         Dim sValue As String = ocREFSIDEFIXCLAMP(nValue).Name

         Dim sValArray() As String = value.Split(",")
         If sValArray.Count() >= 4 AndAlso
            StringToLenAdv(sValArray(0), m_BTLPartM.m_dPartOffsetSide1, True) AndAlso
            StringToLenAdv(sValArray(1), m_BTLPartM.m_dPartOffsetSide2, True) AndAlso
            StringToLenAdv(sValArray(2), m_BTLPartM.m_dPartOffsetSide3, True) AndAlso
            StringToLenAdv(sValArray(3), m_BTLPartM.m_dPartOffsetSide4, True) Then
            EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_PARTOFFSET, " P04: " & sValue &
                                                               " P11: " & sValArray(0) &
                                                               " P12: " & sValArray(1) &
                                                               " P13: " & sValArray(2) &
                                                               " P14: " & sValArray(3))
         Else
            NotifyPropertyChanged(NameOf(PartOffsetParams))
         End If
      End Set
   End Property

   Public ReadOnly Property ocPROCESSINGQUALITY As ObservableCollection(Of Object)
      Get
         Return m_BTLPartM.ocPROCESSINGQUALITY
      End Get
   End Property

   Public Property SelPROCESSINGQUALITY As Integer
      Get
         Return m_BTLPartM.SelPROCESSINGQUALITY
      End Get
      Set(value As Integer)
         Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocPROCESSINGQUALITY)
         Dim sValue As String = [Enum].GetName(GetType(ProcessingQuality), nValue)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_PROCESSINGQUALITY, sValue) Then
            m_BTLPartM.SelPROCESSINGQUALITY = value
         Else
            NotifyPropertyChanged(NameOf(SelPROCESSINGQUALITY))
         End If
      End Set
   End Property

   Public ReadOnly Property ocRECESS As ObservableCollection(Of Object)
      Get
         Return m_BTLPartM.ocRECESS
      End Get
   End Property

   Public Property SelRECESS As Integer
      Get
         Return m_BTLPartM.SelRECESS
      End Get
      Set(value As Integer)
         Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocRECESS)
         Dim sValue As String = [Enum].GetName(GetType(Recess), nValue)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_RECESS, sValue) Then
            m_BTLPartM.SelRECESS = value
         Else
            NotifyPropertyChanged(NameOf(SelRECESS))
         End If
      End Set
   End Property

   Public ReadOnly Property ocSTOREYTYPE As ObservableCollection(Of Object)
      Get
         Return m_BTLPartM.ocSTOREYTYPE
      End Get
   End Property

   Public Property SelSTOREYTYPE As Integer
      Get
         Return m_BTLPartM.SelSTOREYTYPE
      End Get
      Set(value As Integer)
         Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocSTOREYTYPE)
         Dim sValue As String = [Enum].GetName(GetType(StoreyType), nValue)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_STOREYTYPE, sValue) Then
            m_BTLPartM.SelSTOREYTYPE = value
         Else
            NotifyPropertyChanged(NameOf(SelSTOREYTYPE))
         End If
      End Set
   End Property

   Public Property sELEMENTNUM As String
      Get
         Return m_BTLPartM.sELEMENTNUM
      End Get
      Set(value As String)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_ELEMENTNUM, value) Then
            m_BTLPartM.sELEMENTNUM = value
         Else
            NotifyPropertyChanged(NameOf(sELEMENTNUM))
         End If
      End Set
   End Property

   Public Property nLAYER As Integer
      Get
         Return m_BTLPartM.nLAYER
      End Get
      Set(value As Integer)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_LAYER, value) Then
            m_BTLPartM.nLAYER = value
         Else
            NotifyPropertyChanged(NameOf(nLAYER))
         End If
      End Set
   End Property

   Public Property sMODULENUM As String
      Get
         Return m_BTLPartM.sMODULENUM
      End Get
      Set(value As String)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_MODULENUM, value) Then
            m_BTLPartM.sMODULENUM = value
         Else
            NotifyPropertyChanged(NameOf(sMODULENUM))
         End If
      End Set
   End Property

   Public Property sCOMMENT As String
      Get
         Return m_BTLPartM.sCOMMENT
      End Get
      Set(value As String)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_COMMENT, value) Then
            m_BTLPartM.sCOMMENT = value
         Else
            NotifyPropertyChanged(NameOf(sCOMMENT))
         End If
      End Set
   End Property

   Public Property GrainDirection As String
      Get
         Return DoubleToString(m_BTLPartM.refGrainDir.x, 6) & "," &
                DoubleToString(m_BTLPartM.refGrainDir.y, 6) & "," &
                DoubleToString(m_BTLPartM.refGrainDir.z, 6)
      End Get
      Set(value As String)
         Dim sValArray() As String = value.Split(",")
         Dim dX, dY, dZ As Double
         If sValArray.Count() >= 3 AndAlso
            StringToDoubleAdv(sValArray(0), dX, True) AndAlso
            StringToDoubleAdv(sValArray(1), dY, True) AndAlso
            StringToDoubleAdv(sValArray(2), dZ, True) Then
            m_BTLPartM.refGrainDir = New Vector3d(dX, dY, dZ)
            EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_GRAINDIR, sValArray(0) & "," &
                                                             sValArray(1) & "," &
                                                             sValArray(2) & ";" &
                                                             If(bGRAINDIRALIGN, 1, 0))
         Else
            NotifyPropertyChanged(NameOf(GrainDirection))
         End If
      End Set
   End Property

   Public Property bGRAINDIRALIGN As Boolean
      Get
         Return m_BTLPartM.bGRAINDIRALIGN
      End Get
      Set(value As Boolean)
         Dim sValArray() As String = GrainDirection.Split(",")
         If sValArray.Count() >= 3 AndAlso
            StringToDoubleAdv(sValArray(0), m_BTLPartM.refGrainDir.x, True) AndAlso
            StringToDoubleAdv(sValArray(1), m_BTLPartM.refGrainDir.y, True) AndAlso
            StringToDoubleAdv(sValArray(2), m_BTLPartM.refGrainDir.z, True) AndAlso
            EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_GRAINDIR, sValArray(0) & "," &
                                                             sValArray(1) & "," &
                                                             sValArray(2) & ";" &
                                                             If(value, 1, 0)) Then
            m_BTLPartM.bGRAINDIRALIGN = value
            NotifyPropertyChanged(NameOf(bGRAINDIRALIGN))
         End If
      End Set
   End Property

   Public ReadOnly Property ocREFSIDE As ObservableCollection(Of Integer)
      Get
         Return m_BTLPartM.ocREFSIDE
      End Get
   End Property

   Public Property SelREFSIDE As Integer
      Get
         Return m_BTLPartM.SelREFSIDE
      End Get
      Set(value As Integer)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_REFSIDE, (value + 1) & ";" & If(bREFSIDEALIGN, 1, 0)) Then
            m_BTLPartM.SelREFSIDE = value
         Else
            NotifyPropertyChanged(NameOf(SelREFSIDE))
         End If
      End Set
   End Property

   Public Property bREFSIDEALIGN As Boolean
      Get
         Return m_BTLPartM.bREFSIDEALIGN
      End Get
      Set(value As Boolean)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_REFSIDE, (SelREFSIDE + 1) & ";" & If(value, 1, 0)) Then
            m_BTLPartM.bREFSIDEALIGN = value
            NotifyPropertyChanged(NameOf(bREFSIDEALIGN))
         End If
      End Set
   End Property

   Public ReadOnly Property ocALIGNLOCATION As ObservableCollection(Of Object)
      Get
         Return m_BTLPartM.ocALIGNLOCATION
      End Get
   End Property

   Public Property SelALIGNLOCATION As Integer
      Get
         Return m_BTLPartM.SelALIGNLOCATION
      End Get
      Set(value As Integer)
         Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocALIGNLOCATION)
         Dim sValueLoc As String = [Enum].GetName(GetType(AlignmentLocation), nValue)
         nValue = IdNameStruct.IdFromInd(SelALIGNENDTYPE, ocALIGNENDTYPE)
         Dim sValueEnd As String = [Enum].GetName(GetType(AlignmentEndtype), nValue)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_ALIGNMENT, sValueLoc & ": " & sValueEnd) Then
            m_BTLPartM.SelALIGNLOCATION = value
         Else
            NotifyPropertyChanged(NameOf(SelALIGNLOCATION))
         End If
      End Set
   End Property

   Public ReadOnly Property ocALIGNENDTYPE As ObservableCollection(Of Object)
      Get
         Return m_BTLPartM.ocALIGNENDTYPE
      End Get
   End Property

   Public Property SelALIGNENDTYPE As Integer
      Get
         Return m_BTLPartM.SelALIGNENDTYPE
      End Get
      Set(value As Integer)
         Dim nValue As Integer = IdNameStruct.IdFromInd(SelALIGNLOCATION, ocALIGNLOCATION)
         Dim sValueLoc As String = [Enum].GetName(GetType(AlignmentLocation), nValue)
         nValue = IdNameStruct.IdFromInd(value, ocALIGNENDTYPE)
         Dim sValueEnd As String = [Enum].GetName(GetType(AlignmentEndtype), nValue)
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_ALIGNMENT, sValueLoc & ": " & sValueEnd) Then
            m_BTLPartM.SelALIGNENDTYPE = value
         Else
            NotifyPropertyChanged(NameOf(SelALIGNENDTYPE))
         End If
      End Set
   End Property

   Public ReadOnly Property ocMATERIALTYPEGRP As ObservableCollection(Of Object)
      Get
         Return m_BTLPartM.ocMATERIALTYPEGRP
      End Get
   End Property

   Public Property SelMATERIALTYPEGRP As Integer
      Get
         Return m_BTLPartM.SelMATERIALTYPEGRP
      End Get
      Set(value As Integer)
         Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocMATERIALTYPEGRP)
         Dim sValue As String = ocMATERIALTYPEGRP(nValue).Name
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_MATERIALTYPE, sValue & ": " & sMATERIALTYPESPEC) Then
            m_BTLPartM.SelMATERIALTYPEGRP = value
         Else
            NotifyPropertyChanged(NameOf(SelMATERIALTYPEGRP))
         End If
      End Set
   End Property

   Public Property sMATERIALTYPESPEC As String
      Get
         Return m_BTLPartM.sMATERIALTYPESPEC
      End Get
      Set(value As String)
         Dim nValue As Integer = IdNameStruct.IdFromInd(SelMATERIALTYPEGRP, ocMATERIALTYPEGRP)
         Dim sValue As String = ocMATERIALTYPEGRP(nValue).Name
         If EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_MATERIALTYPE, sValue & ": " & value) Then
            m_BTLPartM.sMATERIALTYPESPEC = value
         Else
            NotifyPropertyChanged(NameOf(sMATERIALTYPESPEC))
         End If
      End Set
   End Property

#End Region ' Parametri pezzo

   Public Property sCNT As String
      Get
         Return m_BTLPartM.nCNT
      End Get
      Set(value As String)
         Dim nTempCNT As Integer
         If Integer.TryParse(value, nTempCNT) AndAlso nTempCNT > 0 AndAlso EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_CNT, value) Then
            m_BTLPartM.nCNT = nTempCNT
         End If
         NotifyPropertyChanged(NameOf(sCNT))
      End Set
   End Property
   Public ReadOnly Property nCNT As Integer
      Get
         Return m_BTLPartM.nCNT
      End Get
   End Property

   Public Property sADDED As String
      Get
         Return m_BTLPartM.nADDED
      End Get
      Set(value As String)
         Dim nTempADDED As Integer
         ' verificare che non venga inserito unn numero minore di quelli gia' in prod!!!!! e dare messagio!!!
         If Integer.TryParse(value, nTempADDED) AndAlso nTempADDED >= 0 Then
            If nTempADDED >= nINPROD Then
               m_BTLPartM.nADDED = nTempADDED
            Else
               EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(61857), "", MessageBoxButton.OK, MessageBoxImage.Warning)
            End If
         End If
         NotifyPropertyChanged(NameOf(sADDED))
      End Set
   End Property
   Public ReadOnly Property nADDED As Integer
      Get
         Return m_BTLPartM.nADDED
      End Get
   End Property

   Public ReadOnly Property nINPROD As Integer
      Get
         Dim nTotInProd As Integer = m_BTLPartM.nINPROD
         ' recupero numero di scrap
         Dim nProjId As Integer = GDB_ID.NULL
         EgtGetInfo(nPartId, PROJ, nProjId)
         Dim nScrapCnt As Integer = DbControllers.m_ProjController.getCountItemState(nProjId, nPartId, ItemState.Scrapped)
         If nScrapCnt > 0 Then nTotInProd -= nScrapCnt
         Return nTotInProd
      End Get
   End Property
   Public ReadOnly Property Foreground As SolidColorBrush
      Get
         Return If(nINPROD = nCNT + nADDED, Brushes.Green, Brushes.Black)
      End Get
   End Property
   Public ReadOnly Property FontWeight As FontWeight
      Get
         Return If(nINPROD = nCNT + nADDED, FontWeights.Bold, FontWeights.Normal)
      End Get
   End Property

   Public Property nDONE As Integer
      Get
         Dim nTotDone As Integer = 0
         ' recupero pezzi lavorati da Db
         Dim nProjId As Integer = GDB_ID.NULL
         EgtGetInfo(nPartId, PROJ, nProjId)
         Dim nDoneCnt As Integer = DbControllers.m_ProjController.getCountItemState(nProjId, nPartId, ItemState.Produced)
         Return nDoneCnt
      End Get
      Set(value As Integer)
         Dim nTempDONE As Integer
         If Integer.TryParse(value, nTempDONE) AndAlso nTempDONE > 0 AndAlso EgtSetInfo(m_BTLPartM.nPartId, BTL_PRT_DONE, value) Then
            m_BTLPartM.nDONE = nTempDONE
         End If
         NotifyPropertyChanged(NameOf(nDONE))
      End Set
   End Property

   Public ReadOnly Property Background As SolidColorBrush
      Get
         If nDONE = nCNT + nADDED Then
            Return Brushes.Yellow
         ElseIf nDONE > 0 AndAlso nDONE < nCNT + nADDED Then
            Return Brushes.Orange
         Else
            Return Brushes.White
         End If
      End Get
   End Property

   Public ReadOnly Property sINVERTED As String
      Get
         Return m_BTLPartM.nINVERTED & "°"
      End Get
   End Property

   Public ReadOnly Property nINVERTED As Integer
      Get
         Return m_BTLPartM.nINVERTED
      End Get
   End Property

   Public Property bLockInversion As Boolean
      Get
         Return m_BTLPartM.bLockInversion
      End Get
      Set(value As Boolean)
         If EgtSetInfo(nPartId, LOCK_FLIP, value) Then
            m_BTLPartM.bLockInversion = value
            NotifyPropertyChanged(NameOf(bLockInversion))
         End If
      End Set
   End Property

   Public ReadOnly Property sROTATED As String
      Get
         Return m_BTLPartM.nROTATED & "°"
      End Get
   End Property

   Public ReadOnly Property nROTATED As Integer
      Get
         Return m_BTLPartM.nROTATED
      End Get
   End Property

   Public Property bLockRotation As Boolean
      Get
         Return m_BTLPartM.bLockRotation
      End Get
      Set(value As Boolean)
         If EgtSetInfo(nPartId, LOCK_ROT, value) Then
            m_BTLPartM.bLockRotation = value
            NotifyPropertyChanged(NameOf(bLockRotation))
         End If
      End Set
   End Property

   Public ReadOnly Property nCALC_ERR As Integer
      Get
         Return m_BTLPartM.nCALC_ERR
      End Get
   End Property

   Public ReadOnly Property nCALC_FALL As Integer
      Get
         Return m_BTLPartM.nCALC_FALL
      End Get
   End Property

   Public ReadOnly Property sCALC_MSG As String
      Get
         NotifyPropertyChanged(NameOf(CALC_MSG_Visibility))
         Return m_BTLPartM.sCALC_MSG
      End Get
   End Property

   Public Property nCALC_ROT As Integer
      Get
         Return m_BTLPartM.nCALC_ROT
      End Get
      Set(value As Integer)
         m_BTLPartM.nCALC_ROT = value
      End Set
   End Property

   Public Property nCALC_TIME As Integer
      Get
         Return m_BTLPartM.nCALC_TIME
      End Get
      Set(value As Integer)
         m_BTLPartM.nCALC_TIME = value
      End Set
   End Property

   Public Property nGlobalState As CalcStates
      Get
         Return m_BTLPartM.nGlobalState
      End Get
      Set(value As CalcStates)
         m_BTLPartM.nGlobalState = value
      End Set
   End Property

   Public ReadOnly Property nFeaturesGlobalState As CalcStates
      Get
         Return m_BTLPartM.nFeaturesGlobalState
      End Get
   End Property

   Public Property nState As CalcStates
      Get
         Return m_BTLPartM.nState
      End Get
      Set(value As CalcStates)
         m_BTLPartM.nState = value
      End Set
   End Property

   Public ReadOnly Property Calc_BorderBrush As SolidColorBrush
      Get
         If Not m_BTLPartM.bDO Then Return Brushes.Aqua
         Select Case m_BTLPartM.nGlobalState
            Case CalcStates.ERROR_, CalcStates.COLLISION
               Return Brushes.Red
            Case CalcStates.WARNING, CalcStates.SECTION
               Return Brushes.Orange
            Case CalcStates.INFO, CalcStates.OK
               Return Brushes.Green
            Case CalcStates.NOTCALCULATED
               Return Brushes.LightGray
            Case Else
               Return Brushes.Red
         End Select
      End Get
   End Property

   Public ReadOnly Property CALC_ROT_Visibility As Visibility
      Get
         Return If(m_BTLPartM.nCALC_ROT <> 0, Visibility.Visible, Visibility.Collapsed)
      End Get
   End Property

   Public ReadOnly Property CALC_FALL_Visibility As Visibility
      Get
         Return If(m_BTLPartM.nCALC_FALL <> 0, Visibility.Visible, Visibility.Collapsed)
      End Get
   End Property

   Public ReadOnly Property CALC_ERR_Letter As String
      Get
         Select Case m_BTLPartM.m_nGlobalState
            Case CalcStates.COLLISION
               Return "c"
            Case CalcStates.ERROR_
               Return "e"
            Case CalcStates.WARNING
               Return "w"
            Case CalcStates.INFO
               Return "i"
            Case CalcStates.SECTION
               Return "x"
            Case Else
               Return ""
         End Select
      End Get
   End Property

   Public ReadOnly Property CALC_ERR_Foreground As SolidColorBrush
      Get
         Select Case m_BTLPartM.m_nGlobalState
            Case CalcStates.ERROR_, CalcStates.COLLISION
               Return Brushes.Red
            Case CalcStates.WARNING, CalcStates.SECTION
               Return Brushes.Orange
            Case CalcStates.INFO
               Return Brushes.Green
            Case Else
               Return Brushes.Red
         End Select
      End Get
   End Property

   Public ReadOnly Property CALC_MSG_Visibility As Visibility
      Get
         Return If(String.IsNullOrWhiteSpace(m_BTLPartM.sCALC_MSG), Visibility.Collapsed, Visibility.Visible)
      End Get
   End Property

   Public ReadOnly Property Section As SectionXMaterial
      Get
         Dim nOrigGroupId As Integer = nPartId
         If Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso EgtBeamGetBuildingIsOn() AndAlso Map.refShowBeamPanelVM.bShowAll Then
            nOrigGroupId = GetOrigFrameGroup(nPartId)
         End If
         Dim frBeam As New Frame3d
         EgtGetGroupGlobFrame(nOrigGroupId, frBeam)
         Dim dL As Double
         If IsX(frBeam.VersX(), EPS_SMALL) Then
            dL = m_BTLPartM.dBtlL
         ElseIf IsX(frBeam.VersY(), EPS_SMALL) Then
            dL = m_BTLPartM.dBtlH
         Else
            dL = m_BTLPartM.dBtlW
         End If
         Dim dW As Double
         If IsY(frBeam.VersX(), EPS_SMALL) Then
            dW = m_BTLPartM.dBtlL
         ElseIf IsY(frBeam.VersY(), EPS_SMALL) Then
            dW = m_BTLPartM.dBtlH
         Else
            dW = m_BTLPartM.dBtlW
         End If
         Dim dH As Double
         If IsZ(frBeam.VersX(), EPS_SMALL) Then
            dH = m_BTLPartM.dBtlL
         ElseIf IsZ(frBeam.VersY(), EPS_SMALL) Then
            dH = m_BTLPartM.dBtlH
         Else
            dH = m_BTLPartM.dBtlW
         End If
         Return New SectionXMaterial(dW, dH, dL, m_BTLPartM.sMATERIAL)
      End Get
   End Property

   Public Property dUnitVolume As Double
      Get
         Return BTLPartM.dVolume
      End Get
      Set(value As Double)
         If EgtSetInfo(nPartId, BTL_PRT_VOLUME, value) Then
            m_BTLPartM.dVolume = value
         Else
            NotifyPropertyChanged(NameOf(dUnitVolume))
         End If
      End Set
   End Property

   Public ReadOnly Property sUnitVolume As String
      Get
         Return If(EgtUiUnitsAreMM(), DoubleToString(dUnitVolume / 1000000000, 3), DoubleToString(dUnitVolume * (12 / ONEINCH), 3))
      End Get
   End Property

   Public ReadOnly Property sTotVolume As String
      Get
         Return If(EgtUiUnitsAreMM(), DoubleToString(dUnitVolume * (nCNT + nADDED) / 1000000000, 3), DoubleToString(dUnitVolume * (12 / ONEINCH) * nCNT, 3))
      End Get
   End Property

   Public ReadOnly Property sUnitTime As String
      Get
         Return TimeSpan.FromSeconds(nCALC_TIME).ToString()
      End Get
   End Property

   Public ReadOnly Property sTotTime As String
      Get
         Return TimeSpan.FromSeconds(nCALC_TIME * (nCNT + nADDED)).ToString()
      End Get
   End Property

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

   ' lista delle feature del pezzo
   Private m_BTLFeatureVMList_ViewSource As CollectionViewSource = Nothing
   Private m_BTLFeatureVMList_View As ListCollectionView = Nothing
   Public m_BTLFeatureVMList As ObservableCollection(Of BTLFeatureVM)
   Public Property BTLFeatureVMList As ObservableCollection(Of BTLFeatureVM)
      Get
         Return m_BTLFeatureVMList
      End Get
      Set(value As ObservableCollection(Of BTLFeatureVM))
         m_BTLFeatureVMList = value
      End Set
   End Property
   Public ReadOnly Property BTLFeatureVMList_View As ListCollectionView
      Get
         Return m_BTLFeatureVMList_View
      End Get
   End Property

   Private m_PrevSelBTLFeatureVM As BTLFeatureVM
   Public m_SelBTLFeatureVM As BTLFeatureVM
   Public Property SelBTLFeatureVM As BTLFeatureVM
      Get
         Return m_SelBTLFeatureVM
      End Get
      Set(value As BTLFeatureVM)
         If Not IsNothing(m_PrevSelBTLFeatureVM) Then m_PrevSelBTLFeatureVM.DeselGeomFeature()
         m_SelBTLFeatureVM = value
         If Not IsNothing(m_SelBTLFeatureVM) Then
            m_SelBTLFeatureVM.SelGeomFeature()
            m_PrevSelBTLFeatureVM = value
            Map.refPParameterListVM.SetCurrDraw(DirectCast(m_SelBTLFeatureVM, BTLFeatureVM).sDrawPath)
            ' deseleziono i parametri
            If Not IsNothing(SelBTLFeatureVM.SelPBTLParam) Then SelBTLFeatureVM.SelPBTLParam = Nothing
            ' rinfresco bottoni freecontour
            m_SelBTLFeatureVM.RefreshFCMBtnVisibility()
            ' Controlo se nPRC è 900 rendo visibile combobox Variant
            If m_SelBTLFeatureVM.nPRC = 900 Then
               Map.refFeatureManagerVM.SetVariant_Visibility(Visibility.Visible)
               Dim nVariant As Integer = 0
               If Integer.TryParse(m_SelBTLFeatureVM.sDES, nVariant) Then
                  m_SelBTLFeatureVM.nSelVARIANT = nVariant
               End If
               If m_SelBTLFeatureVM.nSelVARIANT > 0 AndAlso
                     System.IO.File.Exists(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & m_SelBTLFeatureVM.sDescGRP & "." & m_SelBTLFeatureVM.sDES & ".png") Then
                  ' imposto path disegno da mostrare in BottomPanel
                  Map.refPParameterListVM.SetCurrDraw(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & m_SelBTLFeatureVM.sDescGRP & "." & m_SelBTLFeatureVM.sDES & ".png")
               Else
                  Map.refPParameterListVM.SetCurrDraw(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & m_SelBTLFeatureVM.sDescGRP & ".png")
               End If
            Else
               Map.refFeatureManagerVM.SetVariant_Visibility(Visibility.Collapsed)
            End If
         End If
         If Not IsNothing(Map.refFeatureListManagerVM) Then Map.refFeatureListManagerVM.FeatureSelectionChanged()
         Map.refProdManagerVM.SetBtlImage("pack://application:,,,/Resources/NewPage/down.png")
         Map.refProdManagerVM.SetOpenImage("pack://application:,,,/Resources/NewPage/down.png")
         Map.refProdManagerVM.SetSaveImage("pack://application:,,,/Resources/NewPage/down.png")
         If Not IsNothing(m_SelBTLFeatureVM) Then
            SetSelFeatureMsg(EgtMsg(5356) & " [" & m_SelBTLFeatureVM.nSelGRP & "-" & m_SelBTLFeatureVM.nPRC.ToString("000") & "] " & m_SelBTLFeatureVM.sName)
            SetDeselFeatureMsg(EgtMsg(5357) & " [" & m_SelBTLFeatureVM.nSelGRP & "-" & m_SelBTLFeatureVM.nPRC.ToString("000") & "] " & m_SelBTLFeatureVM.sName)
         End If
         EgtDraw()
         NotifyPropertyChanged(NameOf(SelBTLFeatureVM))
         ' se modalità building, la tolgo
         If Not IsNothing(m_SelBTLFeatureVM) AndAlso Map.refShowBeamPanelVM.ShowBuilding_IsChecked Then
            Map.refProjectVM.SetSceneShowBuldingVisibility(Visibility.Collapsed)
            Map.refProjectVM.BTLStructureVM.ShowBuilding(False, False)
            Map.refShowBeamPanelVM.SetShowBuilding(False)
            Map.refProjectVM.SetManagerTabVisibility(Visibility.Visible)
            If Not IsNothing(Map.refProjectVM.MachGroupPanelVM) Then Map.refProjectVM.SetFeatureListVisibility(Visibility.Visible)
         End If
      End Set
   End Property

   Private m_Calc_PartEnd As Boolean = False
   Public ReadOnly Property Calc_PartEnd As Boolean
      Get
         Return m_Calc_PartEnd
      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.Purple, Brushes.Transparent)
      End Get
   End Property

   Private m_bOpenFeatureList As Boolean = False
   Public Property bOpenFeatureList As Boolean
      Get
         Return m_bOpenFeatureList
      End Get
      Set(value As Boolean)
         m_bOpenFeatureList = value
      End Set
   End Property
   Friend Sub SetOpenFeatureList(Value As Boolean)
      m_bOpenFeatureList = Value
      NotifyPropertyChanged(NameOf(bOpenFeatureList))
   End Sub

   Private m_IsSettingBtnOpen As Boolean = False
   Public Property IsSettingBtnOpen As Boolean
      Get
         Return m_IsSettingBtnOpen
      End Get
      Set(value As Boolean)
         m_IsSettingBtnOpen = value
      End Set
   End Property
   Friend Sub SetIsSettingBtnOpen(bIsSettingBtnOpen As Boolean)
      m_IsSettingBtnOpen = bIsSettingBtnOpen
      NotifyPropertyChanged(NameOf(IsSettingBtnOpen))
   End Sub

   Public Property IsInverted As Boolean
      Get
         Return BTLPartM.nINVERTED = 180
      End Get
      Set(value As Boolean)
         ' eseguo inversione
         m_BTLPartM.Inversion(Map.refProjectVM.BTLStructureVM.nPROJTYPE)
         ' setto part e tutte le feature da ricalcolare
         ResetCalcTotalPart()
         EgtDraw()
         ' imposto lock
         bLockInversion = True
         NotifyPropertyChanged(NameOf(IsInverted))
      End Set
   End Property

   Private m_IsRowEnabled As Boolean = True
   Public ReadOnly Property IsRowEnabled As Boolean
      Get
         Return m_IsRowEnabled
      End Get
   End Property
   Friend Sub SetIsRowEnabled(bIsRowEnabled As Boolean)
      m_IsRowEnabled = bIsRowEnabled
      NotifyPropertyChanged(NameOf(IsRowEnabled))
   End Sub

   Private m_SelFeatureMsg As String = String.Empty
   Public ReadOnly Property SelFeatureMsg As String
      Get
         Return m_SelFeatureMsg
      End Get
   End Property
   Friend Sub SetSelFeatureMsg(value As String)
      m_SelFeatureMsg = value
      NotifyPropertyChanged(NameOf(SelFeatureMsg))
   End Sub

   Private m_DeselFeatureMsg As String = String.Empty
   Public ReadOnly Property DeselFeatureMsg As String
      Get
         Return m_DeselFeatureMsg
      End Get
   End Property
   Friend Sub SetDeselFeatureMsg(value As String)
      m_DeselFeatureMsg = value
      NotifyPropertyChanged(NameOf(DeselFeatureMsg))
   End Sub

   Public ReadOnly Property bStrategy_Visibility As Visibility
      Get
         Return m_SelBTLFeatureVM.bStrategy_Visibility
      End Get
   End Property

   Private m_bStrategyModify_Visibility As Visibility = Visibility.Collapsed
   Public ReadOnly Property StrategyModify_Visibility As Visibility
      Get
         Return m_bStrategyModify_Visibility
      End Get
   End Property
   Friend Sub SetStrategyModify_Visibility(value As Visibility)
      m_bStrategyModify_Visibility = value
      NotifyPropertyChanged(NameOf(StrategyModify_Visibility))
   End Sub

   ' Definizione comandi
   Private m_cmdInvert As ICommand
   Private m_cmdBackRotation As ICommand
   Private m_cmdForwardRotation As ICommand
   Private m_cmdXRotation As ICommand
   Private m_cmdPartColour As ICommand
   Private m_cmdShowPopUpSettingBtnCmd As ICommand
   Private m_cmdVerify As ICommand
   Private m_cmdAddToRawPart As ICommand
   Private m_cmdSelectAllFeature As ICommand
   Private m_cmdDeselectAllFeature As ICommand
   Private m_cmdSelectItemFeature As ICommand
   Private m_cmdDeselectItemFeature As ICommand

#Region "MESSAGES"

   Public ReadOnly Property DO_Msg As String
      Get
         Return EgtMsg(61602)
      End Get
   End Property

   Public ReadOnly Property NAM_Msg As String
      Get
         Return EgtMsg(61603)
      End Get
   End Property

   Public ReadOnly Property SelectAll_Msg As String
      Get
         Return EgtMsg(63034)
      End Get
   End Property

   Public ReadOnly Property DeselectAll_Msg As String
      Get
         Return EgtMsg(63035)
      End Get
   End Property

   Public ReadOnly Property ForwardRotation_ToolTip As String
      Get
         Return EgtMsg(61997)
      End Get
   End Property

   Public ReadOnly Property Verify_ToolTip As String
      Get
         Return EgtMsg(61901)
      End Get
   End Property

   Public ReadOnly Property AddToRawPart_ToolTip As String
      Get
         Return EgtMsg(61904)
      End Get
   End Property

#End Region

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New(BTLPartM As BTLPartM, BTLStructureM As BTLStructureM)
      m_BTLPartM = BTLPartM
      AddHandler m_BTLPartM.BTLFeatureAdded, AddressOf OnBTLFeatureAdded
      m_BTLStructureM = BTLStructureM
      CreateBTLFeatureVMList()
      m_BTLFeatureVMList_ViewSource = New CollectionViewSource With {.Source = m_BTLFeatureVMList}
      m_BTLFeatureVMList_View = m_BTLFeatureVMList_ViewSource.View
      m_BTLFeatureVMList_View.CustomSort = New FeatureSorter
      m_BTLFeatureVMList_View.Filter = AddressOf FeatureFilter
      ' Aggiorno check DOALL
      NotifyPropertyChanged(NameOf(bDOALL))
      ' Aggiorno stato da stati feature
      CalcGlobalUpdate()
      NotifyPropertyChanged(NameOf(CALC_FALL_Visibility))
      NotifyPropertyChanged(NameOf(IsInverted))
   End Sub

   Private Function FeatureFilter(Feature As Object) As Boolean
      Return BTLFeatureVMList.IndexOf(Feature) < 30
   End Function

   Public Class FeatureSorter
      Implements IComparer

      Public Function Compare(x As Object, y As Object) As Integer Implements IComparer.Compare
         Dim FeatureX As BTLFeatureVM = x
         Dim FeatureY As BTLFeatureVM = y
         Return -FeatureX.nCALC_ERR.CompareTo(FeatureY.nCALC_ERR)
      End Function

   End Class

#End Region    ' CONSTRUCTOR

#Region "METHODS"

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

      For Each BTLFeatureVM As BTLFeatureVM In all
         AddHandler BTLFeatureVM.PropertyChanged, AddressOf OnBTLFeatureVMPropertyChanged
         For Each BTLParamVM As BTLParamVM In BTLFeatureVM.PBTLParamVMList
            AddHandler BTLParamVM.PropertyChanged, AddressOf OnBTLPParamVMPropertyChanged
         Next
         AddHandler BTLFeatureVM.PBTLParamVMList.CollectionChanged, AddressOf OnBTLPParamVMListChanged
      Next

      m_BTLFeatureVMList = New ObservableCollection(Of BTLFeatureVM)(all)
      AddHandler m_BTLFeatureVMList.CollectionChanged, AddressOf OnBTLFeatureVMListChanged
   End Sub

   Public Sub Rotation(IsPositive As Boolean, SelectedMachineType As MachineType, Optional bRedraw As Boolean = True, Optional dAng As Double = 90, Optional bVerifyDuplo As Boolean = True)
      Dim OldSection As SectionXMaterial = Section
      If m_BTLPartM.Rotation(IsPositive, SelectedMachineType, bRedraw, dAng) Then
         ' aggiorno visualizzazione dimensioni
         NotifyPropertyChanged(NameOf(sW))
         NotifyPropertyChanged(NameOf(sH))
         NotifyPropertyChanged(NameOf(sL))
         ' setto part e tutte le feature da ricalcolare
         ResetCalcTotalPart()
         ' aggiorno sezioni
         Map.refProjectVM.BTLStructureVM.UpdateSection(Section, OldSection)
      End If
      NotifyPropertyChanged(NameOf(sROTATED))
   End Sub

   ' funzione che aggiorna lo stato e gli errori dopo calcolo
   Friend Sub CalcPartUpdate(ERR As Integer, ROT As Integer, MSG As String)
      EgtSetInfo(nPartId, ITG_PROJ_ERR, ERR, True)
      EgtSetInfo(nPartId, ITG_PROJ_MSG, MSG, True)
      EgtSetInfo(nPartId, ITG_PROJ_ROT, ROT, True)
      m_BTLPartM.nCALC_ERR = ERR
      m_BTLPartM.nCALC_ROT = ROT
      m_BTLPartM.sCALC_MSG = MSG
      Select Case ERR
         Case 0
            nState = CalcStates.OK
         Case 22
            nState = CalcStates.COLLISION
         Case 17
            nState = CalcStates.SECTION
         Case 19
            nState = CalcStates.WARNING
         Case < 0
            nState = CalcStates.INFO
         Case > 0
            nState = CalcStates.ERROR_
      End Select
      NotifyPropertyChanged(NameOf(Calc_BorderBrush))
      NotifyPropertyChanged(NameOf(CALC_ERR_Letter))
      NotifyPropertyChanged(NameOf(CALC_ERR_Foreground))
      NotifyPropertyChanged(NameOf(sCALC_MSG))
   End Sub

   Friend Sub ResetCalcPart()
      EgtRemoveInfo(nPartId, ITG_PROJ_ERR)
      EgtRemoveInfo(nPartId, ITG_PROJ_MSG)
      EgtRemoveInfo(nPartId, ITG_PROJ_ROT)
      EgtRemoveInfo(nPartId, ITG_PROJ_FALL)
      m_BTLPartM.nGlobalState = CalcStates.NOTCALCULATED
      m_BTLPartM.nState = CalcStates.NOTCALCULATED
      m_BTLPartM.nCALC_GlobalERR = 0
      m_BTLPartM.nCALC_ERR = 0
      m_BTLPartM.nCALC_ROT = 0
      m_BTLPartM.nCALC_FALL = 0
      m_BTLPartM.sCALC_MSG = ""
      m_BTLPartM.nCALC_TIME = 0
      ' aggiorno lista feature in iconcina calcolo
      BTLFeatureVMList_View.Refresh()
      NotifyPropertyChanged(NameOf(Calc_BorderBrush))
      NotifyPropertyChanged(NameOf(CALC_FALL_Visibility))
      NotifyPropertyChanged(NameOf(CALC_ROT_Visibility))
      NotifyPropertyChanged(NameOf(CALC_ERR_Letter))
      NotifyPropertyChanged(NameOf(CALC_ERR_Foreground))
      NotifyPropertyChanged(NameOf(sCALC_MSG))
   End Sub

   Friend Sub ResetCalcTotalPart()
      ResetCalcPart()
      For Each Feature In m_BTLFeatureVMList
         Feature.ResetCalcFeature()
      Next
   End Sub

   Friend Sub CalcFallUpdate(FALL As Integer)
      EgtSetInfo(nPartId, ITG_PROJ_FALL, FALL, True)
      m_BTLPartM.nCALC_FALL = FALL
      NotifyPropertyChanged(NameOf(CALC_FALL_Visibility))
   End Sub

   Friend Sub CalcTimeUpdate(TIME As Integer)
      EgtSetInfo(nPartId, ITG_PROJ_TIME, TIME, True)
      m_BTLPartM.nCALC_TIME = TIME
      NotifyPropertyChanged(NameOf(sTotTime))
      NotifyPropertyChanged(NameOf(sUnitTime))
   End Sub

   ' funzione che aggiorna lo stato e gli errori dopo calcolo
   Friend Sub CalcGlobalUpdate(Optional bFeatureFirst As Boolean = False)
      m_BTLPartM.nCALC_GlobalERR = nCALC_ERR
      m_BTLPartM.nGlobalState = nState
      m_BTLPartM.nFeaturesGlobalState = CalcStates.NOTCALCULATED
      If nState > CalcStates.NOTCALCULATED Then
         For Each Feature In BTLFeatureVMList
            If Not Feature.bDO And Not bFeatureFirst Then
               If Feature.nState = CalcStates.COLLISION AndAlso Feature.nState > m_BTLPartM.nGlobalState Then
                  m_BTLPartM.nGlobalState = Feature.nState
                  m_BTLPartM.nCALC_GlobalERR = Feature.nCALC_ERR
               Else
                  Continue For
               End If
            End If
            If ((Feature.nState = CalcStates.NOTCALCULATED And nState < CalcStates.WARNING) Or Not Feature.bDO) And bFeatureFirst Then
               m_BTLPartM.nGlobalState = Feature.nState
               m_BTLPartM.nCALC_GlobalERR = Feature.nCALC_ERR
               EgtRemoveInfo(nPartId, ITG_PROJ_ERR)
               Exit For
            ElseIf Feature.nState = CalcStates.NOTCALCULATED And nState < CalcStates.WARNING Then
               m_BTLPartM.nGlobalState = Feature.nState
               m_BTLPartM.nCALC_GlobalERR = Feature.nCALC_ERR
               EgtRemoveInfo(nPartId, ITG_PROJ_ERR)
               Exit For
            ElseIf Feature.nState > m_BTLPartM.nGlobalState Then
               m_BTLPartM.nGlobalState = Feature.nState
               m_BTLPartM.nCALC_GlobalERR = Feature.nCALC_ERR
            End If
            If Feature.nState > m_BTLPartM.nFeaturesGlobalState Then
               m_BTLPartM.nFeaturesGlobalState = Feature.nState
            End If
            If Feature.nCALC_ROT <> 0 Then
               m_BTLPartM.m_nCALC_ROT = Feature.nCALC_ROT
            End If
         Next
         If m_BTLPartM.nGlobalState = CalcStates.NOTCALCULATED Then
            EgtRemoveInfo(nPartId, ITG_PROJ_ERR)
         End If
      End If
      NotifyPropertyChanged(NameOf(Calc_BorderBrush))
      NotifyPropertyChanged(NameOf(CALC_ROT_Visibility))
      NotifyPropertyChanged(NameOf(CALC_ERR_Letter))
      NotifyPropertyChanged(NameOf(CALC_ERR_Foreground))
      NotifyPropertyChanged(NameOf(sCALC_MSG))
      m_Calc_PartEnd = True
   End Sub

   Friend Sub ResetCalcPartEnd()
      m_Calc_PartEnd = False
   End Sub

   Public Function Copy() As BTLPartM
      ' creo nuovo part
      Dim nNewPartId As Integer = EgtBeamCreatePart()
      If nNewPartId = GDB_ID.NULL Then Return Nothing
      ' scrivo info proj
      If Not IsNothing(Map.refProdManagerVM) Then
         EgtSetInfo(nNewPartId, BTL_PRT_PROJ, ProjectManagerVM.CurrProd.nProjIdList(0))
      End If
      EgtBeamSetPartProdNbr(m_BTLStructureM.NewPDN())
      EgtBeamSetPartName(m_BTLPartM.sNAM)
      EgtBeamSetPartCount(m_BTLPartM.nCNT)
      EgtBeamSetPartBox(m_BTLPartM.dBtlL, m_BTLPartM.dBtlH, m_BTLPartM.dBtlW)

      EgtSetInfo(nNewPartId, BTL_PRT_DO, m_BTLPartM.bDO)
      EgtSetInfo(nNewPartId, BTL_PRT_CNT, m_BTLPartM.m_nCNT)
      EgtSetInfo(nNewPartId, BTL_PRT_ADDED, m_BTLPartM.m_nADDED)
      EgtSetInfo(nNewPartId, BTL_PRT_ASSEMBLYNUM, m_BTLPartM.m_sASSEMBLYNUM)
      EgtSetInfo(nNewPartId, BTL_PRT_ORDERNUM, m_BTLPartM.m_nORDERNUM)
      EgtSetInfo(nNewPartId, BTL_PRT_DESIGNATION, m_BTLPartM.m_sDESIGN)
      EgtSetInfo(nNewPartId, BTL_PRT_ANNOTATION, m_BTLPartM.m_sANNOT)
      EgtSetInfo(nNewPartId, BTL_PRT_STOREY, m_BTLPartM.m_sSTOREY)
      EgtSetInfo(nNewPartId, BTL_PRT_GROUP, m_BTLPartM.m_sGROUP)
      EgtSetInfo(nNewPartId, BTL_PRT_PACKAGE, m_BTLPartM.m_sPACKAGE)
      EgtSetInfo(nNewPartId, BTL_PRT_TIMBERGRADE, m_BTLPartM.m_sTIMBERGRADE)
      EgtSetInfo(nNewPartId, BTL_PRT_QUALITYGRADE, m_BTLPartM.m_sQUALITYGRADE)
      EgtSetInfo(nNewPartId, BTL_PRT_COLOUR, m_BTLPartM.m_colCOLOR.ToString())
      EgtSetInfo(nNewPartId, BTL_PRT_PLANINGLENGTH, m_BTLPartM.m_dPLANINGLEN)
      EgtSetInfo(nNewPartId, BTL_PRT_STARTOFFSET, m_BTLPartM.m_dSTARTOFFSET)
      EgtSetInfo(nNewPartId, BTL_PRT_ENDOFFSET, m_BTLPartM.m_dENDOFFSET)
      Dim ind As Integer = 1
      For Each UIDItem In m_BTLPartM.m_ocUID
         EgtSetInfo(nNewPartId, BTL_PRT_UID & ind, UIDItem)
         EgtSetInfo(nNewPartId, BTL_PRT_TRANSFORMATION & ind, LenToString(m_BTLPartM.refTransf.Orig.x, 3) & "," &
                                                              LenToString(m_BTLPartM.refTransf.Orig.y, 3) & "," &
                                                              LenToString(m_BTLPartM.refTransf.Orig.z, 3) & "," &
                                                              DoubleToString(m_BTLPartM.refTransf.VersX.x, 6) & "," &
                                                              DoubleToString(m_BTLPartM.refTransf.VersX.y, 6) & "," &
                                                              DoubleToString(m_BTLPartM.refTransf.VersX.z, 6) & "," &
                                                              DoubleToString(m_BTLPartM.refTransf.VersY.x, 6) & "," &
                                                              DoubleToString(m_BTLPartM.refTransf.VersY.y, 6) & "," &
                                                              DoubleToString(m_BTLPartM.refTransf.VersY.z, 6))
      Next
      EgtSetInfo(nNewPartId, BTL_PRT_CAMBER, " SIDE: " & (m_BTLPartM.SelCAMBERSIDE + 1) &
                                             " P01: " & LenToString(m_BTLPartM.m_dCamberLen1, 3) &
                                             " P02: " & LenToString(m_BTLPartM.m_dCamberLen2, 3) &
                                             " P03: " & LenToString(m_BTLPartM.m_dCamberLen3, 3) &
                                             " P04: " & LenToString(m_BTLPartM.m_dCamberCross3, 3))
      Dim nValue As Integer = IdNameStruct.IdFromInd(m_BTLPartM.SelREFSIDEFIXCLAMP, ocREFSIDEFIXCLAMP)
      Dim sValue As String = ocREFSIDEFIXCLAMP(nValue).Name
      EgtSetInfo(nNewPartId, BTL_PRT_PARTOFFSET, " P04: " & sValue &
                                                 " P11: " & m_BTLPartM.m_dPartOffsetSide1 &
                                                 " P12: " & m_BTLPartM.m_dPartOffsetSide2 &
                                                 " P13: " & m_BTLPartM.m_dPartOffsetSide3 &
                                                 " P14: " & m_BTLPartM.m_dPartOffsetSide4)
      If m_BTLPartM.m_SelPROCESSINGQUALITY > -1 Then
         nValue = IdNameStruct.IdFromInd(m_BTLPartM.m_SelPROCESSINGQUALITY, ocPROCESSINGQUALITY)
         sValue = [Enum].GetName(GetType(ProcessingQuality), nValue)
         EgtSetInfo(nNewPartId, BTL_PRT_PROCESSINGQUALITY, sValue)
      End If
      If m_BTLPartM.m_SelRECESS > -1 Then
         nValue = IdNameStruct.IdFromInd(m_BTLPartM.m_SelRECESS, ocRECESS)
         sValue = [Enum].GetName(GetType(Recess), nValue)
         EgtSetInfo(nNewPartId, BTL_PRT_RECESS, sValue)
      End If
      If m_BTLPartM.m_SelSTOREYTYPE > -1 Then
         nValue = IdNameStruct.IdFromInd(m_BTLPartM.m_SelSTOREYTYPE, ocSTOREYTYPE)
         sValue = [Enum].GetName(GetType(StoreyType), nValue)
         EgtSetInfo(nNewPartId, BTL_PRT_STOREYTYPE, sValue)
      End If
      EgtSetInfo(nNewPartId, BTL_PRT_ELEMENTNUM, m_BTLPartM.m_sELEMENTNUM)
      EgtSetInfo(nNewPartId, BTL_PRT_LAYER, m_BTLPartM.m_nLAYER)
      EgtSetInfo(nNewPartId, BTL_PRT_MODULENUM, m_BTLPartM.m_sMODULENUM)
      'EgtSetInfo(nNewPartId, BTL_PRT_USERATTRIBUTE, m_sUSERATTRIBUTE)
      EgtSetInfo(nNewPartId, BTL_PRT_COMMENT, m_BTLPartM.m_sCOMMENT)
      EgtSetInfo(nNewPartId, BTL_PRT_GRAINDIR, m_BTLPartM.refGrainDir.x & "," &
                                               m_BTLPartM.refGrainDir.y & "," &
                                               m_BTLPartM.refGrainDir.z & ";" &
                                               If(m_BTLPartM.bGRAINDIRALIGN, 1, 0))
      EgtSetInfo(nNewPartId, BTL_PRT_REFSIDE, (m_BTLPartM.m_SelREFSIDE + 1) & ";" & If(m_BTLPartM.bREFSIDEALIGN, 1, 0))

      nValue = IdNameStruct.IdFromInd(m_BTLPartM.SelALIGNLOCATION, ocALIGNLOCATION)
      Dim sValueLoc As String = [Enum].GetName(GetType(AlignmentLocation), nValue)
      nValue = IdNameStruct.IdFromInd(SelALIGNENDTYPE, ocALIGNENDTYPE)
      Dim sValueEnd As String = [Enum].GetName(GetType(AlignmentEndtype), nValue)
      EgtSetInfo(nNewPartId, BTL_PRT_ALIGNMENT, sValueLoc & ": " & sValueEnd)

      nValue = IdNameStruct.IdFromInd(m_BTLPartM.SelMATERIALTYPEGRP, ocMATERIALTYPEGRP)
      sValue = ocMATERIALTYPEGRP(nValue).Name
      EgtSetInfo(nNewPartId, BTL_PRT_MATERIALTYPE, sValue & ": " & m_BTLPartM.sMATERIALTYPESPEC)

      EgtSetInfo(nNewPartId, BTL_PRT_ROTATED, m_BTLPartM.nROTATED)
      EgtSetInfo(nNewPartId, BTL_PRT_INVERTED, m_BTLPartM.nINVERTED)
      EgtSetInfo(nNewPartId, BTL_PRT_MATERIAL, m_BTLPartM.m_sMATERIAL)

      ' aggiungo dati pezzo
      Dim NewPart As BTLPartM = BTLPartM.CreateBTLPart(nNewPartId)
      'aggiungo tutte le sue feature
      For Each Feature In m_BTLFeatureVMList
         Feature.Copy(NewPart)
      Next
      ' recupero box del pezzo
      Dim b3Part As New BBox3d
      EgtGetBBoxGlob(nNewPartId, GDB_BB.STANDARD, b3Part)
      ' ripristino le rotazioni di ROT e FLIP
      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM Then
         EgtRotate(nNewPartId, b3Part.Center, Vector3d.X_AX, nROTATED)
         EgtRotate(nNewPartId, b3Part.Center, Vector3d.Z_AX, nINVERTED)
      Else
         EgtRotate(nNewPartId, b3Part.Center, -Vector3d.Z_AX, nROTATED)
         EgtRotate(nNewPartId, b3Part.Center, Vector3d.X_AX, nINVERTED)
      End If
      ' aggiungo pezzo alla lista
      m_BTLStructureM.AddBTLPart(NewPart)
      Return NewPart
   End Function

   ' funzione che aggiorna tutte le feature dopo modifica dimensioni pezzo
   Private Sub UpdateFeatures()
      ' ricalcolo tutte le feature contenute
      For Each Feature In m_BTLFeatureVMList
         Feature.BTLFeatureM.UpdateParams(False)
         ' setto feature da ricalcolare
         Feature.ResetCalcFeature()
      Next
      EgtBeamUpdatePart()
   End Sub

   Friend Sub AddNewPartToAdded(Optional PartQty As Integer = 1)
      m_BTLPartM.nADDED += PartQty
      NotifyPropertyChanged(NameOf(sADDED))
   End Sub

   Friend Sub RefreshPartInProd()
      NotifyPropertyChanged(NameOf(nINPROD))
      NotifyPropertyChanged(NameOf(Foreground))
      NotifyPropertyChanged(NameOf(FontWeight))
   End Sub

   Friend Function CanAddPartToCount(Optional Qty As Integer = 1, Optional ByRef Added As Integer = 0) As Boolean
      ' verifico se ci sono pezzi da aggiungere
      Added = Math.Min(Qty, m_BTLPartM.nCNT + m_BTLPartM.nADDED - m_BTLPartM.nINPROD)
      Return Qty = Added
   End Function

   ' funzione che dato l'Id di un Part(Duplo) restituisce il BTLPart di origine
   Friend Shared Function RetrieveBTLPartFromPart(nPartId As Integer) As BTLPartVM
      Dim BTLPartId As Integer = MyMachGroupPanelM.DuploGetOriginal(nPartId)
      Return Map.refProjectVM.BTLStructureVM.BTLPartVMList.FirstOrDefault(Function(x) x.nPartId = BTLPartId)
   End Function

   ' funzione che calcola il volume del pezzo
   Friend Sub CalcBTLPartVolume()
      Select Case Map.refProjectVM.BTLStructureVM.nPROJTYPE
         Case MachineType.BEAM
            dUnitVolume = dBtlH * dBtlW * dBtlL
         Case MachineType.WALL
            Dim nOutlineLayerId As Integer = EgtGetFirstNameInGroup(nPartId, OUTLINE)
            ' cerco Id feature
            Dim nOutlineFeatureId = GDB_ID.NULL
            For Each Feature In BTLFeatureVMList
               If Feature.nPRC = 251 Then nOutlineFeatureId = Feature.nFeatureId
               Exit For
            Next
            ' recupero AuxId
            If nOutlineFeatureId <> GDB_ID.NULL Then
               Dim nAuxId As Integer = 0
               If EgtGetInfo(nOutlineFeatureId, BTL_FTR_AUXID, nAuxId) Then
                  nOutlineFeatureId += nAuxId
               End If
               ' calcolo area 
               Dim dArea As Double = 0
               Dim vtN As New Vector3d
               Dim dDist As Double = 0
               EgtCurveArea(nOutlineFeatureId, vtN, dDist, dArea)
               dUnitVolume = dArea * dH
            Else
               dUnitVolume = dBtlH * dBtlW * dBtlL
            End If
      End Select
   End Sub

   Private Function VerifyPartCount(SelParts As List(Of BTLPartVM)) As Boolean
      ' verifico se ci sono pezzi da aggiungere
      Dim ToAddList As New List(Of String)
      Dim ToAddVM As New List(Of BTLPartVM)
      For Each SelPart In SelParts
         If Not SelPart.CanAddPartToCount Then
            ToAddList.Add(SelPart.nCNT & EgtMsg(61864) & SelPart.nADDED & EgtMsg(61865))
            ToAddVM.Add(SelPart)
         End If
      Next
      ' se non ci sono, chiedo se aggiungerne uno nuovo
      If ToAddList.Count > 0 Then
         Dim sMessage As String = EgtMsg(61863) & Environment.NewLine
         For Each sPart In ToAddList
            sMessage &= " - " & sPart & Environment.NewLine
         Next
         If EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, sMessage & EgtMsg(61893), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
            For Each PartVM In ToAddVM
               PartVM.AddNewPartToAdded()
            Next
         Else
            Return False
         End If
      End If
      Return True
   End Function

#End Region    ' METHODS

#Region "COMMANDS"

#Region "Invert"

   Public ReadOnly Property Invert_Command As ICommand
      Get
         If m_cmdInvert Is Nothing Then
            m_cmdInvert = New Command(AddressOf Invert)
         End If
         Return m_cmdInvert
      End Get
   End Property

   Public Sub Invert()
      ' eseguo inversione
      m_BTLPartM.Inversion(Map.refProjectVM.BTLStructureVM.nPROJTYPE)
      ' setto part e tutte le feature da ricalcolare
      ResetCalcTotalPart()
      EgtDraw()
      ' imposto lock
      bLockInversion = True
      NotifyPropertyChanged(NameOf(sINVERTED))
   End Sub

#End Region ' Invert

#Region "BackRotation"

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

   Public Sub BackRotationCmd()
      BackRotation(True)
   End Sub

   Public Sub BackRotation(Optional bUpdateSection As Boolean = False, Optional bRedraw As Boolean = True)
      ' salvo sezione impostata
      Dim CurrSection As SectionXMaterial = Map.refProjectVM.BTLStructureVM.SelSection
      ' ruoto
      Rotation(False, Map.refProjectVM.BTLStructureVM.nPROJTYPE, bRedraw)
      ' imposto lock
      bLockRotation = True
      ' se progetto travi e sezione precedente diversa da vuota (tutti i pezzi)
      If bUpdateSection AndAlso Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM AndAlso CurrSection <> SectionXMaterial.Empty Then
         ' se esiste, imposto sezione inversa
         Dim InverseSection As SectionXMaterial = Map.refProjectVM.BTLStructureVM.SectionList.FirstOrDefault(Function(x) x.dH = CurrSection.dW AndAlso x.dW = CurrSection.dH AndAlso x.sMaterial(0) = CurrSection.sMaterial(0))
         If Not IsNothing(InverseSection) Then Map.refProjectVM.BTLStructureVM.SetSelSection(InverseSection)
      End If
   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 ForwardRotationCmd)
         End If
         Return m_cmdForwardRotation
      End Get
   End Property

   Public Sub ForwardRotationCmd(Optional bUpdateSection As Boolean = False)
      ForwardRotation(True)
   End Sub

   Public Sub ForwardRotation(Optional bUpdateSection As Boolean = False, Optional bRedraw As Boolean = True)
      ' salvo sezione impostata
      Dim CurrSection As SectionXMaterial = Map.refProjectVM.BTLStructureVM.SelSection
      Rotation(True, Map.refProjectVM.BTLStructureVM.nPROJTYPE, bRedraw)
      ' imposto lock
      bLockRotation = True
      ' se progetto travi e sezione precedente diversa da vuota (tutti i pezzi)
      If bUpdateSection AndAlso Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM AndAlso CurrSection <> SectionXMaterial.Empty Then
         ' se esiste, imposto sezione inversa
         Dim InverseSection As SectionXMaterial = Map.refProjectVM.BTLStructureVM.SectionList.FirstOrDefault(Function(x) x.dH = CurrSection.dW AndAlso x.dW = CurrSection.dH AndAlso x.sMaterial(0) = CurrSection.sMaterial(0))
         If Not IsNothing(InverseSection) Then Map.refProjectVM.BTLStructureVM.SetSelSection(InverseSection)
      End If
   End Sub

#End Region ' ForwardRotation

   ' Comando inutilizzato ma conservato per eventuale rotazione a causa di importazione con rotazione sbagliata
#Region "XRotation"

   Public ReadOnly Property XRotation_Command As ICommand
      Get
         If m_cmdXRotation Is Nothing Then
            m_cmdXRotation = New Command(AddressOf XRotation)
         End If
         Return m_cmdXRotation
      End Get
   End Property

   Public Sub XRotation()
      If Map.refProjectVM.BTLStructureVM.nPROJTYPE <> MachineType.WALL Then Return
      Dim OldSection As SectionXMaterial = Section
      ' recupero il box del pezzo
      Dim nLs As Integer = EgtGetFirstNameInGroup(nPartId, "Box")
      Dim b3Solid As New BBox3d
      EgtGetBBoxGlob(nLs, GDB_BB.STANDARD, b3Solid)
      If b3Solid.IsEmpty() Then
         EgtOutLog("ERROR: Box non definito per la trave " & sNAM)
         Return
      End If
      Dim vtAxes As Vector3d = Vector3d.X_AX
      ' eseguo rotazione di 90 gradi 
      If EgtRotate(nPartId, b3Solid.Center, vtAxes, 90, GDB_RT.GLOB) Then
         ' imposto modificato per copie
         MyMachGroupPanelM.SetDuploModified(nPartId)
      End If
      ' aggiorno visualizzazione dimensioni
      NotifyPropertyChanged(NameOf(sW))
      NotifyPropertyChanged(NameOf(sH))
      NotifyPropertyChanged(NameOf(sL))
      ' setto part e tutte le feature da ricalcolare
      ResetCalcTotalPart()
      ' aggiorno sezioni
      Map.refProjectVM.BTLStructureVM.UpdateSection(Section, OldSection)
   End Sub

#End Region ' XRotation

#Region "PartColour"

   Public ReadOnly Property PartColour_Command As ICommand
      Get
         If m_cmdPartColour Is Nothing Then
            m_cmdPartColour = New Command(AddressOf PartColourCmd)
         End If
         Return m_cmdPartColour
      End Get
   End Property

   Public Sub PartColourCmd()
      Dim PartColor As New Color3d(192, 192, 192)
      ' Eseguo modifica con dialogo
      If SelectColor(m_BTLPartM.colCOLOR, PartColor) Then
         sCOLRGB = PartColor.ToString
         NotifyPropertyChanged(NameOf(PartColour))
      End If
   End Sub

   Private Function SelectColor(Col As Color3d, ByRef NewCol As Color3d) As Boolean
      ' Creo dialogo colori
      Dim ColorDlg As New EgtColorPickerV(Application.Current.MainWindow, New EgtColorPickerVM()) With {
         .Color = Col.ToColor()
      }
      ' Visualizzo dialogo
      If ColorDlg.ShowDialog() = False Then Return False
      ' Recupero colore scelto
      NewCol.FromColor(ColorDlg.Color)
      Return True
   End Function

#End Region ' PartColour

#Region "ShowPopUpSettingBtnCommand"

   Public ReadOnly Property ShowPopUpSettingBtnCommand As ICommand
      Get
         If m_cmdShowPopUpSettingBtnCmd Is Nothing Then
            m_cmdShowPopUpSettingBtnCmd = New Command(AddressOf ShowPopUpSettingBtn)
         End If
         Return m_cmdShowPopUpSettingBtnCmd
      End Get
   End Property

   Public Sub ShowPopUpSettingBtn(ByVal param As Object)
      If m_IsSettingBtnOpen Then
         SetIsSettingBtnOpen(False)
      Else
         SetIsSettingBtnOpen(True)
      End If
   End Sub

#End Region    ' ShowPopUpSettingBtnCommand

#Region "Verify"

   Public ReadOnly Property Verify_Command As ICommand
      Get
         If m_cmdVerify Is Nothing Then
            m_cmdVerify = New Command(AddressOf Verify)
         End If
         Return m_cmdVerify
      End Get
   End Property

   Friend Sub Verify()
      If IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.BTLStructureVM) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM) Then Return
      Map.refCALCPanelVM.Verify(ProjectType.PROJ)
      Return
   End Sub

#End Region ' Verify

#Region "AddToRawPart"

   Public ReadOnly Property AddToRawPart_Command As ICommand
      Get
         If m_cmdAddToRawPart Is Nothing Then
            m_cmdAddToRawPart = New Command(AddressOf AddToRawPart)
         End If
         Return m_cmdAddToRawPart
      End Get
   End Property

   Public Sub AddToRawPart()
      If IsNothing(ProjectManagerVM.CurrProd) Then Return
      Dim SelPart As BTLPartVM
      If Map.refProjectVM.BTLStructureVM.SelBTLParts.Count <= 0 Then
         Return
      Else
         SelPart = Map.refProjectVM.BTLStructureVM.SelBTLParts(0)
      End If
      Dim SelParts As List(Of BTLPartVM) = Map.refProjectVM.BTLStructureVM.SelBTLParts.ToList()
      For Index = 0 To SelParts.Count() - 1
         If IsNothing(SelParts(Index)) Then
            SelParts.RemoveAt(Index)
         End If
      Next
      If IsNothing(SelPart) Then Return
      If IsNothing(SelParts) OrElse SelParts.Count <= 0 Then Return
      Dim SelMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.SelectedMachGroup
      If IsNothing(SelMachGroup) Then Return
      ' se pareti e piu' di uno selezionato, esco
      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.WALL And SelParts.Count > 1 Then
         EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(61971), EgtMsg(30007))
         Return
      End If
      ' se MachGroup gia' mandato in produzione, esco
      If SelMachGroup.nProduction_State >= ItemState.Assigned Then Return
      ' verifico se sono gia' stati messi tutti i pezzi richiesti
      If Not VerifyPartCount(SelParts) Then Return
      ' verifico se impostato gruppo di lavorazione
      Dim nCurrMachgroupId As Integer = EgtGetCurrMachGroup()
      ' se nullo o diverso da quello selezionato in lista
      If nCurrMachgroupId = GDB_ID.NULL OrElse nCurrMachgroupId <> SelMachGroup.Id Then
         ' lo imposto
         EgtSetCurrMachGroup(SelMachGroup.Id)
      End If
      If Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.BEAM Then
         Dim BeamMachGroup As MyMachGroupVM = SelMachGroup
         ' verifico sezione e materiale
         For Each Part In SelParts
            If Part.Section <> BeamMachGroup.Section Then
               EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(61866), EgtMsg(30007))
               Return
            End If
         Next
         ' verifico lunghezza totale
         If Not VerifyTotLength(BeamMachGroup, SelParts) Then
            EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(61867), EgtMsg(30007))
            Return
         End If
         If AddPartToBeam(BeamMachGroup, SelParts) Then
            ' aggiorno contatore pezzi usati in Prod
            For Each Part In SelParts
               Part.RefreshPartInProd()
            Next
            ' resetto stato di calc
            SelMachGroup.ResetCalcMachGroup()
         End If
         ' aggiorno dati ultilizzo barra
         BeamMachGroup.UpdateUsage()
         Core.ViewPanelVM.BWSetView(VT.ISO_SW, False)
      ElseIf Map.refProjectVM.BTLStructureVM.nPROJTYPE = MachineType.WALL Then
         Dim WallMachGroup As MyMachGroupVM = SelMachGroup
         ' verifico spessore
         If SelPart.Section <> WallMachGroup.Section Then
            EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(61868), EgtMsg(30007))
            Return
         End If
         If AddPartToWall(WallMachGroup, SelPart) Then
            ' aggiorno contatore pezzi usati in Prod
            SelPart.RefreshPartInProd()
            ' resetto stato di calc
            SelMachGroup.ResetCalcMachGroup()
         End If
         ' aggiorno dati ultilizzo barra
         WallMachGroup.UpdateUsage()
         Core.ViewPanelVM.BWSetView(VT.TOP, False)
      End If
      EgtZoom(ZM.ALL)
   End Sub

   Friend Function VerifyTotLength(BeamMachGroup As MyMachGroupVM, PartsToAdd As List(Of BTLPartVM)) As Boolean
      Dim dNewPartPos As Double = 0
      If BeamMachGroup.PartVMList.Count > 0 Then
         Dim LastPart As PartVM = BeamMachGroup.PartVMList(BeamMachGroup.PartVMList.Count - 1)
         dNewPartPos += LastPart.dPOSX + LastPart.dL
      End If
      For Each Part In PartsToAdd
         dNewPartPos += WarehouseHelper.GetOffset(BeamMachGroup.nType) + Part.dL
      Next
      Return dNewPartPos < BeamMachGroup.dL
   End Function

   Friend Function AddPartToBeam(BeamMachGroup As MyMachGroupVM, PartsToAdd As List(Of BTLPartVM)) As Boolean
      EgtBeamShowFacesName(False)
      EgtBeamShowLoadingSide(False, False)
      ' ordino i pezzi da aggiungere
      PartsToAdd = PartsToAdd.OrderBy(Function(x) x.dL).ToList()
      ' creo copie dei pezzi
      Dim nPartDuploIdList As New List(Of Integer)
      For Each Part In PartsToAdd
         Dim nDuploId As Integer = EgtDuploNew(Part.nPartId)
         ' elimino valori calcolo dell'originale
         MyMachGroupPanelVM.DuploRemoveProjCalc(nDuploId)
         ' lo rendo std
         EgtSetMode(nDuploId, GDB_MD.STD)
         nPartDuploIdList.Add(nDuploId)
      Next
      ' calcolo posizione nuovo pezzo per rispettare ordine lunghezze
      Dim nInsertIndex As Integer
      ' scrivo dati di tutti i pezzi
      Dim dPosX As Double = BeamMachGroup.dStartCut
      Dim nPartIndex As Integer = 0
      Dim nIndex As Integer
      Dim bDuploInfo As Boolean = False
      ' ciclo sui pezzi
      For nIndex = 0 To BeamMachGroup.PartVMList.Count - 1
         For PartsToAddIndex = nPartIndex To PartsToAdd.Count - 1
            Dim Part As BTLPartVM = PartsToAdd(PartsToAddIndex)
            ' se non ancora aggiunto e lunghezza minore del pezzo corrente, lo aggiungo
            If nPartIndex < nPartDuploIdList.Count() AndAlso BeamMachGroup.PartVMList(nIndex).dL > Part.dL Then
               ' se non è primo, aggiungo offset tra barre standard
               If nIndex <> 0 OrElse nPartIndex <> 0 Then
                  dPosX += WarehouseHelper.GetOffset(BeamMachGroup.nType)
               End If
               EgtSetInfo(BeamMachGroup.Id, MGR_RPT_PART & nIndex + nPartIndex + 1, nPartDuploIdList(nPartIndex) & "," & DoubleToString(dPosX, 3))
               ' incremento posizione della sua lunghezza
               dPosX += Part.dL
               ' conservo indice d'inserimento
               nInsertIndex = nIndex
               nPartIndex += 1
            Else
               Exit For
            End If
         Next
         ' se non è primo, aggiungo offset del pezzo
         If nIndex <> 0 Then
            dPosX += BeamMachGroup.PartVMList(nIndex).dOffset
            ' se sono a indice primo ed è stato aggiunto pezzo nuovo
         ElseIf nIndex = 0 AndAlso nPartIndex > 0 Then
            ' aggiungo offset tra barre standard
            dPosX += WarehouseHelper.GetOffset(BeamMachGroup.nType)
         End If
         EgtSetInfo(BeamMachGroup.Id, MGR_RPT_PART & nIndex + nPartIndex + 1, BeamMachGroup.PartVMList(nIndex).nPartId & "," & DoubleToString(dPosX, 3))
         ' incremento posizione della sua lunghezza
         dPosX += BeamMachGroup.PartVMList(nIndex).dL
      Next
      ' se non è ancora stato aggiunto
      For PartsToAddIndex = nPartIndex To PartsToAdd.Count - 1
         ' aggiungo offset tra barre standard
         dPosX += WarehouseHelper.GetOffset(BeamMachGroup.nType)
         ' lo aggiungo in fondo
         EgtSetInfo(BeamMachGroup.Id, MGR_RPT_PART & nIndex + nPartIndex + 1, nPartDuploIdList(nPartIndex) & "," & DoubleToString(dPosX, 3))
         ' incremento posizione della sua lunghezza
         dPosX += PartsToAdd(nPartIndex).dL
         ' conservo indice d'inserimento
         nInsertIndex = nIndex
         nPartIndex += 1
      Next
      ' elimino vecchio grezzo ed eseguo script creazione nuovo
      Dim nRawId As Integer = EgtGetFirstRawPart()
      While nRawId <> GDB_ID.NULL
         EgtRemoveRawPart(nRawId)
         nRawId = EgtGetFirstRawPart()
      End While
      Dim sLogPath As String = Map.refMainWindowVM.MainWindowM.sTempDir & "\RawPartLog.txt"
      If Not ExecBeam(sLogPath, ProjectManagerVM.CurrProd.sMachine, CalcIntegration.CmdTypes.RAWPART, False) Then
         EgtOutLog("Fallito inserimento grezzo nella barra in AddPartToBeam")
         ' elimino duplo 
         For Each nDuploId In nPartDuploIdList
            EgtErase(nDuploId)
         Next
         ' aggiorno info grezzo
         For nIndex = 0 To BeamMachGroup.PartVMList.Count - 1
            EgtSetInfo(BeamMachGroup.Id, MGR_RPT_PART & nIndex + 1, BeamMachGroup.PartVMList(nIndex).nPartId & "," & DoubleToString(BeamMachGroup.PartVMList(nIndex).dPOSX, 3))
         Next
         ' rimuovo info duplo
         While EgtGetInfo(BeamMachGroup.Id, MGR_RPT_PART & nIndex + 1, nPartDuploIdList(0))
            bDuploInfo = EgtGetInfo(BeamMachGroup.Id, MGR_RPT_PART & nIndex + 1, nPartDuploIdList(0))
            EgtRemoveInfo(BeamMachGroup.Id, MGR_RPT_PART & nIndex + 1)
            nIndex += 1
         End While
         ' elimino vecchio grezzo ed eseguo script creazione nuovo
         nRawId = EgtGetFirstRawPart()
         While nRawId <> GDB_ID.NULL
            EgtRemoveRawPart(nRawId)
            nRawId = EgtGetFirstRawPart()
         End While
         If Not ExecBeam(sLogPath, ProjectManagerVM.CurrProd.sMachine, CalcIntegration.CmdTypes.RAWPART, False) Then
            EgtOutLog("Fallita esecuzione ExecBeam. ERRORE")
         End If
      End If
      For nDuploIndex = 0 To PartsToAdd.Count - 1
         EgtSetInfo(nPartDuploIdList(nDuploIndex), MGR_PRT_ROT, PartsToAdd(nDuploIndex).nROTATED)
         EgtSetInfo(nPartDuploIdList(nDuploIndex), MGR_PRT_FLIP, PartsToAdd(nDuploIndex).nINVERTED)
      Next
      ' aggiorno lista pezzi
      BeamMachGroup.MyMachGroupM.RefreshPartList()
      ' seleziono pezzo aggiunto
      If BeamMachGroup.PartVMList.Count > nInsertIndex Then
         BeamMachGroup.SelPart = BeamMachGroup.PartVMList(nInsertIndex)
      ElseIf bDuploInfo Then
         BeamMachGroup.SelPart = BeamMachGroup.PartVMList(BeamMachGroup.PartVMList.Count - 1)
      End If
      Return True
   End Function

   Friend Function AddPartToWall(WallMachGroup As MyMachGroupVM, PartToAdd As BTLPartVM) As Boolean
      ' creo copia del pezzo
      Dim nPartDuploId As Integer = EgtDuploNew(PartToAdd.nPartId)
      ' lo rendo std
      EgtSetMode(nPartDuploId, GDB_MD.STD)
      ' Posizione di inserimento
      Dim dPosX As Double = WarehouseHelper.GetKerf()
      Dim dPosY As Double = WarehouseHelper.GetKerf()
      ' Se ci sono pezzi già inseriti
      If WallMachGroup.PartVMList.Count > 0 Then
         Dim LastWall As PartVM = WallMachGroup.PartVMList(WallMachGroup.PartVMList.Count - 1)
         Dim LastWallPosX As Double = LastWall.dPOSX
         Dim LastWallPosY As Double = LastWall.PartM.dPOSY
         ' converto posizione ultimo pezzo nel riferimento BL
         Select Case CurrentMachine.NestingCorner
            Case MCH_CR.TL
               LastWallPosY = WallMachGroup.dW - LastWall.dW - LastWall.PartM.dPOSY
            Case MCH_CR.BL
            Case MCH_CR.TR
               LastWallPosX = WallMachGroup.dL - LastWall.dL - LastWall.dPOSX
               LastWallPosY = WallMachGroup.dW - LastWall.dW - LastWall.PartM.dPOSY
            Case MCH_CR.BR
               LastWallPosX = WallMachGroup.dL - LastWall.dL - LastWall.dPOSX
         End Select
         ' verifico se posso metterlo sopra in Y
         Dim NextPosY = LastWallPosY + LastWall.dW + WarehouseHelper.GetOffset(WallMachGroup.nType)
         If WallMachGroup.dW - NextPosY > PartToAdd.dW + 10 Then
            dPosX = LastWallPosX
            dPosY = NextPosY
         Else
            ' altrimenti lo affianco in X
            dPosX = 10
            For i As Integer = 0 To WallMachGroup.PartVMList.Count - 1
               Dim CurrWall As PartVM = WallMachGroup.PartVMList(i)
               Dim CurrWallPosX As Double = CurrWall.dPOSX
               ' converto posizione pezzo corrente nel riferimento BL
               Select Case CurrentMachine.NestingCorner
                  Case MCH_CR.TL
                  Case MCH_CR.BL
                  Case MCH_CR.TR
                     CurrWallPosX = WallMachGroup.dL - CurrWall.dL - CurrWall.dPOSX
                  Case MCH_CR.BR
                     CurrWallPosX = WallMachGroup.dL - CurrWall.dL - CurrWall.dPOSX
               End Select
               Dim NextPosX = CurrWallPosX + CurrWall.dL + WarehouseHelper.GetOffset(WallMachGroup.nType)
               If NextPosX > dPosX Then
                  dPosX = NextPosX
               End If
            Next
            dPosY = 10
         End If
      End If
      ' converto posizione trovata da riferimento BL a quello corrente
      Select Case CurrentMachine.NestingCorner
         Case MCH_CR.TL
            dPosY = WallMachGroup.dW - PartToAdd.dW - dPosY
         Case MCH_CR.BL
         Case MCH_CR.TR
            dPosX = WallMachGroup.dL - PartToAdd.dL - dPosX
            dPosY = WallMachGroup.dW - PartToAdd.dW - dPosY
         Case MCH_CR.BR
            dPosX = WallMachGroup.dL - PartToAdd.dL - dPosX
      End Select
      ' aggiungo il pezzo al grezzo
      If EgtAddPartToRawPart(nPartDuploId, New Point3d(dPosX, dPosY, 0), WallMachGroup.MyMachGroupM.nRawPartId) Then
         EgtSetInfo(nPartDuploId, MGR_PRT_POSX, dPosX)
         EgtSetInfo(nPartDuploId, MGR_PRT_POSY, dPosY)
         EgtSetInfo(nPartDuploId, MGR_PRT_ROT, PartToAdd.nROTATED)
         EgtSetInfo(nPartDuploId, MGR_PRT_FLIP, PartToAdd.nINVERTED)
      Else
         Return False
      End If
      'aggiorno lista pezzi
      WallMachGroup.MyMachGroupM.RefreshPartList()
      ' seleziono pezzo aggiunto
      If WallMachGroup.PartVMList.Count > 0 Then WallMachGroup.SelPart = WallMachGroup.PartVMList.FirstOrDefault(Function(x) x.nPartId = nPartDuploId)
      Return True
   End Function

#End Region    ' AddToRawPart

#Region "SelectAllFeature"

   Public ReadOnly Property SelectAllFeature_Command As ICommand
      Get
         If m_cmdSelectAllFeature Is Nothing Then
            m_cmdSelectAllFeature = New Command(AddressOf SelectAllFeature)
         End If
         Return m_cmdSelectAllFeature
      End Get
   End Property

   Friend Sub SelectAllFeature()
      bDOALL = True
      NotifyPropertyChanged(NameOf(bDOALL))
   End Sub

#End Region ' SelectAllFeature

#Region "DeselectAllFeature"

   Public ReadOnly Property DeselectAllFeature_Command As ICommand
      Get
         If m_cmdDeselectAllFeature Is Nothing Then
            m_cmdDeselectAllFeature = New Command(AddressOf DeselectAllFeature)
         End If
         Return m_cmdDeselectAllFeature
      End Get
   End Property

   Friend Sub DeselectAllFeature()
      bDOALL = False
      NotifyPropertyChanged(NameOf(bDOALL))
   End Sub

#End Region ' DeselectAllFeature

#Region "SelectItemFeature"

   Public ReadOnly Property SelectItemFeature_Command As ICommand
      Get
         If m_cmdSelectItemFeature Is Nothing Then
            m_cmdSelectItemFeature = New Command(AddressOf SelectItemFeature)
         End If
         Return m_cmdSelectItemFeature
      End Get
   End Property

   Friend Sub SelectItemFeature()
      For Each ItemFeature As BTLFeatureVM In m_BTLFeatureVMList
         If ItemFeature.sName = m_SelBTLFeatureVM.sName Then
            ItemFeature.bDO = True
         Else
            ItemFeature.bDO = False
         End If
         NotifyPropertyChanged(NameOf(ItemFeature.bDO))
      Next
   End Sub

#End Region ' SelectItemFeature

#Region "DeselectItemFeature"

   Public ReadOnly Property DeselectItemFeature_Command As ICommand
      Get
         If m_cmdDeselectItemFeature Is Nothing Then
            m_cmdDeselectItemFeature = New Command(AddressOf DeselectItemFeature)
         End If
         Return m_cmdDeselectItemFeature
      End Get
   End Property

   Friend Sub DeselectItemFeature()
      For Each ItemFeature As BTLFeatureVM In m_BTLFeatureVMList
         If Not ItemFeature.sName = m_SelBTLFeatureVM.sName Then
            ItemFeature.bDO = True
         Else
            ItemFeature.bDO = False
         End If
         NotifyPropertyChanged(NameOf(ItemFeature.bDO))
      Next
   End Sub

#End Region ' DeselectItemFeature

#End Region    ' COMMANDS

#Region "EVENTS"

   Private Sub OnBTLFeatureAdded(sender As Object, e As BTLFeatureAddedEventArgs)
      Dim BTLFeatureVM As BTLFeatureVM = New BTLFeatureVM(e.NewBTLFeature, m_BTLPartM)
      BTLFeatureVMList.Add(BTLFeatureVM)
   End Sub

   Private Sub OnBTLFeatureVMListChanged(sender As Object, e As NotifyCollectionChangedEventArgs)
      If Not IsNothing(e.NewItems) AndAlso e.NewItems.Count > 0 Then
         For Each BTLFeatureVM As BTLFeatureVM In e.NewItems
            AddHandler BTLFeatureVM.PropertyChanged, AddressOf OnBTLFeatureVMPropertyChanged
         Next
      End If
      If Not IsNothing(e.OldItems) AndAlso e.OldItems.Count > 0 Then
         For Each BTLFeatureVM As BTLFeatureVM In e.OldItems
            RemoveHandler BTLFeatureVM.PropertyChanged, AddressOf OnBTLFeatureVMPropertyChanged
            m_BTLPartM.BTLFeatureMList.Remove(BTLFeatureVM.BTLFeatureM)
         Next
      End If
   End Sub
   Private Sub OnBTLPParamVMListChanged(sender As Object, e As NotifyCollectionChangedEventArgs)
      If Not IsNothing(e.NewItems) AndAlso e.NewItems.Count > 0 Then
         For Each BTLParamVM As BTLParamVM In e.NewItems
            AddHandler BTLParamVM.PropertyChanged, AddressOf OnBTLPParamVMPropertyChanged
         Next
      End If
      If Not IsNothing(e.OldItems) AndAlso e.OldItems.Count > 0 Then
         For Each BTLParamVM As BTLParamVM In e.OldItems
            RemoveHandler BTLParamVM.PropertyChanged, AddressOf OnBTLPParamVMPropertyChanged
         Next
      End If
   End Sub

   Private Sub OnBTLFeatureVMPropertyChanged(sender As Object, e As PropertyChangedEventArgs)
      Select Case e.PropertyName
         Case NameOf(sender.nSelGRP), NameOf(sender.nSelSIDE)
            CalcGlobalUpdate(True)
            ' imposto path disegno da mostrare in BottomPanel
            Dim SelPBTLParam As BTLParamVM = Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM.SelPBTLParam
            If Not IsNothing(Map.refProjectVM) AndAlso Not IsNothing(SelPBTLParam) Then Map.refPParameterListVM.SetCurrDraw(SelPBTLParam.sDrawPath)
         Case NameOf(sender.bDO), NameOf(sender.sPriority)
            NotifyPropertyChanged(NameOf(bDOALL))
            ' setto pezzo da ricalcolare
            CalcGlobalUpdate(True)
      End Select
   End Sub
   Private Sub OnBTLPParamVMPropertyChanged(sender As Object, e As PropertyChangedEventArgs)
      Select Case e.PropertyName
         Case NameOf(sender.dValue), NameOf(sender.sValue)
            CalcGlobalUpdate(True)
      End Select
   End Sub

#End Region    ' EVENTS

End Class