- correzione import BTL

- rimossa scena assemblato
- fix bottoni verifica
- accelerato scorrimento lista BTLPart

EgtBEAMWALL.Optimizer/BTLViewModel/BTLFeatureVM.vb

@@ -407,10 +407,10 @@ Public Class BTLFeatureVM
    End Sub
 
    ' funzione che aggiorna lo stato, la rotazione e gli errori dopo calcolo
-   Friend Sub CalcFeatureUpdate(ERR As Integer, ROT As Integer, MSG As String)
-      EgtSetInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW, ITG_PROJ_ERR, ITG_PROD_ERR), ERR, True)
-      EgtSetInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW, ITG_PROJ_MSG, ITG_PROD_MSG), MSG, True)
-      EgtSetInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW, ITG_PROJ_ROT, ITG_PROD_ROT), ROT, True)
+   Friend Sub CalcFeatureUpdate(nProgramPage As Integer, ERR As Integer, ROT As Integer, MSG As String)
+      EgtSetInfo(nFeatureId, If(nProgramPage = ProjectType.PROJ, ITG_PROJ_ERR, ITG_PROD_ERR), ERR, True)
+      EgtSetInfo(nFeatureId, If(nProgramPage = ProjectType.PROJ, ITG_PROJ_MSG, ITG_PROD_MSG), MSG, True)
+      EgtSetInfo(nFeatureId, If(nProgramPage = ProjectType.PROJ, ITG_PROJ_ROT, ITG_PROD_ROT), ROT, True)
       m_BTLFeatureM.nCALC_ERR = ERR
       m_BTLFeatureM.nCALC_ROT = ROT
       m_BTLFeatureM.sCALC_MSG = MSG

EgtBEAMWALL.Optimizer/BTLViewModel/BTLPartVM.vb

@@ -2292,77 +2292,38 @@ Public Class BTLPartVM
       Dim ProjType As BWType
       Dim BarList() As EgtBEAMWALL.Core.Bar = Nothing
       ProjType = ProjectManagerVM.CurrProd.nType
-      If Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.PART Then
-         If Not CreateBarToVerify(Pages.VIEW, ProjType, BarList) Then Return
-         ' lancio calcolo
-         EgtBEAMWALL.Core.CalcIntegration.Run(BarList, Map.refOnlyProdManagerVM.CurrProj.sProjDirPath, AddressOf ManageCalc)
-      ElseIf Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.MACHGROUP Then
-         If Not CreateBarToVerify(Pages.MACHINING, ProjType, BarList) Then Return
-         ' lancio calcolo
-         EgtBEAMWALL.Core.CalcIntegration.Run(BarList, Map.refOnlyProdManagerVM.CurrProd.sProdDirPath, AddressOf ManageCalc)
-      End If
+      If Not CreateBarToVerify(ProjType, BarList) Then Return
+      ' lancio calcolo
+      EgtBEAMWALL.Core.CalcIntegration.Run(BarList, Map.refOnlyProdManagerVM.CurrProj.sProjDirPath, AddressOf ManageCalc)
    End Sub
 
-   Private Function CreateBarToVerify(SelPage As Pages, ProjType As BWType, ByRef BarList As Bar()) As Boolean
-      If SelPage = Pages.VIEW Then
-         If Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) Then
-            Dim TempBarList(0) As EgtBEAMWALL.Core.Bar
-            If Not Map.refProjectVM.BTLStructureVM.SelBTLPart.bDO Then Return False
-            Dim Bar As New EgtBEAMWALL.Core.Bar With {.nBarId = Map.refProjectVM.BTLStructureVM.SelBTLPart.nPartId,
+   Private Function CreateBarToVerify(ProjType As BWType, ByRef BarList As Bar()) As Boolean
+      If Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) Then
+         Dim TempBarList(0) As EgtBEAMWALL.Core.Bar
+         If Not Map.refProjectVM.BTLStructureVM.SelBTLPart.bDO Then Return False
+         Dim Bar As New EgtBEAMWALL.Core.Bar With {.nBarId = Map.refProjectVM.BTLStructureVM.SelBTLPart.nPartId,
                                                       .nProgramPage = ProjectType.PROJ,
                                                       .nProjType = ProjType,
                                                       .bBarOk = True,
                                                       .nMachineName = Map.refMachinePanelVM.SelectedMachine.Name,
                                                       .nGlobState = Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState}
-            Select Case Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState
-               Case Core.CalcStates.OK, CalcStates.INFO
-                  Bar.nCmdType = CalcIntegration.CmdTypes.GENERATE
-               Case Else
-                  If Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState = CalcStates.NOTCALCULATED OrElse Map.refProjectVM.BTLStructureVM.SelBTLPart.nFeaturesGlobalState > CalcStates.INFO Then
-                     Dim sBTLPartFilePath As String = ProjectManagerVM.CurrProj.sProjDirPath & "\" & Map.refProjectVM.BTLStructureVM.SelBTLPart.nPDN.ToString() & ".ori.bwe"
-                     If File.Exists(sBTLPartFilePath) Then File.Delete(sBTLPartFilePath)
-                  End If
-                  Bar.nCmdType = CalcIntegration.CmdTypes.CHECKGEN
-            End Select
-            TempBarList(0) = Bar
-            BarList = TempBarList
-         Else
-            Return False
-         End If
-         ' disabilito interfaccia
-         Map.refProjectVM.SetCalcRunning(True)
-      ElseIf SelPage = Pages.MACHINING Then
-         If Not IsNothing(Map.refMachGroupPanelVM.SelectedMachGroup) Then
-            Dim SelMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.SelectedMachGroup
-            ' se barra gia' assegnata a supervisore, esco
-            If SelMachGroup.nProduction_State >= ItemState.Assigned Then Return False
-            Dim TempBarList(0) As EgtBEAMWALL.Core.Bar
-            Dim MachineName As String = ""
-            EgtGetMachGroupMachineName(SelMachGroup.Id, MachineName)
-            Dim Bar As New EgtBEAMWALL.Core.Bar With {.nBarId = SelMachGroup.Id,
-                                                      .nProgramPage = ProjectType.PROD,
-                                                      .nProjType = ProjType,
-                                                      .bBarOk = True,
-                                                      .nMachineName = MachineName,
-                                                      .nGlobState = SelMachGroup.nGlobalState}
-            Select Case SelMachGroup.nGlobalState
-               Case Core.CalcStates.OK, CalcStates.INFO
-                  Bar.nCmdType = CalcIntegration.CmdTypes.GENERATE
-               Case Else
-                  If SelMachGroup.nGlobalState = CalcStates.NOTCALCULATED OrElse (SelMachGroup.nPartsGlobalState > CalcStates.INFO) Then
-                     Dim sMachGroupFilePath As String = ProjectManagerVM.CurrProd.sProdDirPath & "\" & SelMachGroup.Name.ToString() & ".ori.bwe"
-                     If File.Exists(sMachGroupFilePath) Then File.Delete(sMachGroupFilePath)
-                  End If
-                  Bar.nCmdType = CalcIntegration.CmdTypes.CHECKGEN
-            End Select
-            TempBarList(0) = Bar
-            BarList = TempBarList
-         Else
-            Return False
-         End If
-         ' disabilito interfaccia
-         Map.refProjectVM.SetCalcRunning(True)
+         Select Case Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState
+            Case Core.CalcStates.OK, CalcStates.INFO
+               Bar.nCmdType = CalcIntegration.CmdTypes.GENERATE
+            Case Else
+               If Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState = CalcStates.NOTCALCULATED OrElse Map.refProjectVM.BTLStructureVM.SelBTLPart.nFeaturesGlobalState > CalcStates.INFO Then
+                  Dim sBTLPartFilePath As String = ProjectManagerVM.CurrProj.sProjDirPath & "\" & Map.refProjectVM.BTLStructureVM.SelBTLPart.nPDN.ToString() & ".ori.bwe"
+                  If File.Exists(sBTLPartFilePath) Then File.Delete(sBTLPartFilePath)
+               End If
+               Bar.nCmdType = CalcIntegration.CmdTypes.CHECKGEN
+         End Select
+         TempBarList(0) = Bar
+         BarList = TempBarList
+      Else
+         Return False
       End If
+      ' disabilito interfaccia
+      Map.refProjectVM.SetCalcRunning(True)
       Return True
    End Function
 

EgtBEAMWALL.Optimizer/BTLViewModel/BTLStructureVM.vb

@@ -1081,13 +1081,13 @@ Public Class BTLStructureVM
    Friend Sub ShowBuilding(bShow As Boolean, Optional bRedraw As Boolean = True)
       ' disabilito impostazione modificato
       Dim DisableMgr As New DisableModifiedMgr
-      ShowAll(False)
-      Dim CurrProdPathFile As String = ProjectManagerVM.CurrProd.sProdPath
-      If File.Exists(CurrProdPathFile) Then
-         EgtOpenFile(CurrProdPathFile)
-      Else
-         EgtOutLog("File nge mancante")
-      End If
+      'ShowAll(False)
+      'Dim CurrProdPathFile As String = ProjectManagerVM.CurrProd.sProdPath
+      'If File.Exists(CurrProdPathFile) Then
+      '   EgtOpenFile(CurrProdPathFile)
+      'Else
+      '   EgtOutLog("File nge mancante")
+      'End If
       Dim bOn As Boolean = EgtBeamGetBuildingIsOn()
       If bShow <> bOn Then
          EgtBeamShowBuilding(bShow)

EgtBEAMWALL.Optimizer/CALCPanel/CALCPanelVM.vb

@@ -466,7 +466,7 @@ Public Class CALCPanelVM
                         CurrPartVM.CalcPartUpdate(Line.nERR, Line.dROT, Line.sMSG)
                      End If
                   Case ProcessResult.ProcessResultTypes.TASKID
-                     CurrBTLFeatureVM.CalcFeatureUpdate(Line.nERR, Line.dROT, Line.sMSG)
+                     CurrBTLFeatureVM.CalcFeatureUpdate(nProgramPage, Line.nERR, Line.dROT, Line.sMSG)
                   Case ProcessResult.ProcessResultTypes.FALL
                      If nProgramPage = ProjectType.PROJ Then
                         CurrBTLPartVM.CalcFallUpdate(Line.nFALL)

EgtBEAMWALL.Optimizer/ForcedStrategyPanel/ForcedStrategyPanelVM.vb

@@ -91,7 +91,6 @@ Public Class ForcedStrategyPanelVM
          If IsNothing(JsonAvailableStrategyFeature) Then Return False
          Dim JsonAvailableTopology As JsonAvailableTopology = JsonAvailableStrategyFeature.TopologyList.FirstOrDefault(Function(x) x.sName = sTopologyName)
          If IsNothing(JsonAvailableTopology) Then
-            Return False
             ' ricavo topologia da feature
             FindTopologyFromFeature(nFeatureId, sTopologyName)
             JsonAvailableTopology = JsonAvailableStrategyFeature.TopologyList.FirstOrDefault(Function(x) x.sName = sTopologyName)

EgtBEAMWALL.Optimizer/ItemParamList/OnlyProdBTLPartListV.xaml

@@ -27,7 +27,16 @@
                                 ColumnHeaderFontSize="15"
                                 ColumnHeaderPadding="0,2,0,2"
                                 AreRowDetailsFrozen="True"
+                                ScrollViewer.CanContentScroll="True"
+                                EnableRowVirtualization="True" 
+                                EnableColumnVirtualization="True"
+                                VirtualizingStackPanel.VirtualizationMode="Recycling"
+                                VirtualizingStackPanel.IsVirtualizing="True"
                                 VirtualizingPanel.IsVirtualizingWhenGrouping="True"
+                                VirtualizingPanel.ScrollUnit="Pixel"
+                                RenderOptions.CachingHint="Cache"
+                                VirtualizingPanel.CacheLength="10"
+                                VirtualizingPanel.CacheLengthUnit="Pixel"
                                 RowHeight="23"
                                 Style="{StaticResource DataGrid_OnlyProd}">
 

EgtBEAMWALL.Optimizer/MachGroupPanel/MyMachGroupVM.vb

@@ -1001,77 +1001,42 @@ Public Class MyMachGroupVM
       Dim ProjType As BWType
       Dim BarList() As EgtBEAMWALL.Core.Bar = Nothing
       ProjType = ProjectManagerVM.CurrProd.nType
-      If Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.PART Then
-         If Not CreateBarToVerify(Pages.VIEW, ProjType, BarList) Then Return
-         ' lancio calcolo
-         EgtBEAMWALL.Core.CalcIntegration.Run(BarList, Map.refOnlyProdManagerVM.CurrProj.sProjDirPath, AddressOf ManageCalc)
-      ElseIf Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.MACHGROUP Then
-         If Not CreateBarToVerify(Pages.MACHINING, ProjType, BarList) Then Return
-         ' lancio calcolo
-         EgtBEAMWALL.Core.CalcIntegration.Run(BarList, Map.refOnlyProdManagerVM.CurrProd.sProdDirPath, AddressOf ManageCalc)
-      End If
+      If Not CreateBarToVerify(ProjType, BarList) Then Return
+      ' lancio calcolo
+      EgtBEAMWALL.Core.CalcIntegration.Run(BarList, Map.refOnlyProdManagerVM.CurrProd.sProdDirPath, AddressOf ManageCalc)
    End Sub
 
-   Private Function CreateBarToVerify(SelPage As Pages, ProjType As BWType, ByRef BarList As Bar()) As Boolean
-      If SelPage = Pages.VIEW Then
-         If Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) Then
-            Dim TempBarList(0) As EgtBEAMWALL.Core.Bar
-            If Not Map.refProjectVM.BTLStructureVM.SelBTLPart.bDO Then Return False
-            Dim Bar As New EgtBEAMWALL.Core.Bar With {.nBarId = Map.refProjectVM.BTLStructureVM.SelBTLPart.nPartId,
-                                                      .nProgramPage = ProjectType.PROJ,
-                                                      .nProjType = ProjType,
-                                                      .bBarOk = True,
-                                                      .nMachineName = Map.refMachinePanelVM.SelectedMachine.Name,
-                                                      .nGlobState = Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState}
-            Select Case Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState
-               Case Core.CalcStates.OK, CalcStates.INFO
-                  Bar.nCmdType = CalcIntegration.CmdTypes.GENERATE
-               Case Else
-                  If Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState = CalcStates.NOTCALCULATED OrElse Map.refProjectVM.BTLStructureVM.SelBTLPart.nFeaturesGlobalState > CalcStates.INFO Then
-                     Dim sBTLPartFilePath As String = ProjectManagerVM.CurrProj.sProjDirPath & "\" & Map.refProjectVM.BTLStructureVM.SelBTLPart.nPDN.ToString() & ".ori.bwe"
-                     If File.Exists(sBTLPartFilePath) Then File.Delete(sBTLPartFilePath)
-                  End If
-                  Bar.nCmdType = CalcIntegration.CmdTypes.CHECKGEN
-            End Select
-            TempBarList(0) = Bar
-            BarList = TempBarList
-         Else
-            Return False
-         End If
-         ' disabilito interfaccia
-         Map.refProjectVM.SetCalcRunning(True)
-      ElseIf SelPage = Pages.MACHINING Then
-         If Not IsNothing(Map.refMachGroupPanelVM.SelectedMachGroup) Then
-            Dim SelMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.SelectedMachGroup
-            ' se barra gia' assegnata a supervisore, esco
-            If SelMachGroup.nProduction_State >= ItemState.Assigned Then Return False
-            Dim TempBarList(0) As EgtBEAMWALL.Core.Bar
-            Dim MachineName As String = ""
-            EgtGetMachGroupMachineName(SelMachGroup.Id, MachineName)
-            Dim Bar As New EgtBEAMWALL.Core.Bar With {.nBarId = SelMachGroup.Id,
+   Private Function CreateBarToVerify(ProjType As BWType, ByRef BarList As Bar()) As Boolean
+      If Not IsNothing(Map.refMachGroupPanelVM.SelectedMachGroup) Then
+         Dim SelMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.SelectedMachGroup
+         ' se barra gia' assegnata a supervisore, esco
+         If SelMachGroup.nProduction_State >= ItemState.Assigned Then Return False
+         Dim TempBarList(0) As EgtBEAMWALL.Core.Bar
+         Dim MachineName As String = ""
+         EgtGetMachGroupMachineName(SelMachGroup.Id, MachineName)
+         Dim Bar As New EgtBEAMWALL.Core.Bar With {.nBarId = SelMachGroup.Id,
                                                       .nProgramPage = ProjectType.PROD,
                                                       .nProjType = ProjType,
                                                       .bBarOk = True,
                                                       .nMachineName = MachineName,
                                                       .nGlobState = SelMachGroup.nGlobalState}
-            Select Case SelMachGroup.nGlobalState
-               Case Core.CalcStates.OK, CalcStates.INFO
-                  Bar.nCmdType = CalcIntegration.CmdTypes.GENERATE
-               Case Else
-                  If SelMachGroup.nGlobalState = CalcStates.NOTCALCULATED OrElse (SelMachGroup.nPartsGlobalState > CalcStates.INFO) Then
-                     Dim sMachGroupFilePath As String = ProjectManagerVM.CurrProd.sProdDirPath & "\" & SelMachGroup.Name.ToString() & ".ori.bwe"
-                     If File.Exists(sMachGroupFilePath) Then File.Delete(sMachGroupFilePath)
-                  End If
-                  Bar.nCmdType = CalcIntegration.CmdTypes.CHECKGEN
-            End Select
-            TempBarList(0) = Bar
-            BarList = TempBarList
-         Else
-            Return False
-         End If
-         ' disabilito interfaccia
-         Map.refProjectVM.SetCalcRunning(True)
+         Select Case SelMachGroup.nGlobalState
+            Case Core.CalcStates.OK, CalcStates.INFO
+               Bar.nCmdType = CalcIntegration.CmdTypes.GENERATE
+            Case Else
+               If SelMachGroup.nGlobalState = CalcStates.NOTCALCULATED OrElse (SelMachGroup.nPartsGlobalState > CalcStates.INFO) Then
+                  Dim sMachGroupFilePath As String = ProjectManagerVM.CurrProd.sProdDirPath & "\" & SelMachGroup.Name.ToString() & ".ori.bwe"
+                  If File.Exists(sMachGroupFilePath) Then File.Delete(sMachGroupFilePath)
+               End If
+               Bar.nCmdType = CalcIntegration.CmdTypes.CHECKGEN
+         End Select
+         TempBarList(0) = Bar
+         BarList = TempBarList
+      Else
+         Return False
       End If
+      ' disabilito interfaccia
+      Map.refProjectVM.SetCalcRunning(True)
       Return True
    End Function
 

EgtBEAMWALL.Optimizer/MainWindow/OnlyProdMainWindowV.xaml.vb

@@ -1,6 +1,7 @@
 Imports EgtWPFLib5
 Imports EgtUILib
 Imports EgtBEAMWALL.Core
+Imports System.Windows.Automation.Peers
 
 Public Class OnlyProdMainWindowV
 

EgtBEAMWALL.Optimizer/OnlyProdManager/OnlyProdManagerVM.vb

@@ -757,6 +757,7 @@ Public Class OnlyProdManagerVM
    ''' Execute the ImportBTL.  This method is invoked by the ImportBTLCommand.
    ''' </summary>
    Public Sub ImportBTL(Optional sFile As String = "", Optional bWithDlg As Boolean = True)
+      Dim x As Integer = EgtGetCurrentContext()
       If ProdFileVM.VerifyProjectModification(CurrProd) = MessageBoxResult.Cancel Then Return
       Dim sDir As String = String.Empty
       GetMainPrivateProfileString(S_GENERAL, K_LASTIMPDIR, "", sDir)
@@ -845,9 +846,11 @@ Public Class OnlyProdManagerVM
          EgtOutLog("Impossibile copiare il file")
          bOk = False
       End Try
+      x = EgtGetCurrentContext()
       ' disattivo temporaneamente bottone assemblato per non prendere il riferimento sbagliato durante importazione
       Dim bAssembly As Boolean = Map.refShowBeamPanelVM.ShowBuilding_IsChecked
       Map.refShowBeamPanelVM.ShowBuilding_IsChecked = False
+      x = EgtGetCurrentContext()
       ' importo file
       If bOk Then
          bOk = Map.refSceneHostVM.MainController.ImportProject(sBtlCopyPath, False)
@@ -890,10 +893,13 @@ Public Class OnlyProdManagerVM
          'Map.refPartManagerVM.LockVisibilityUpdate()
          LoadingWndHelper.UpdateLoadingWnd(ActiveIds.IMPORTBTL, 3, EgtMsg(63006), 70, 100)         ' Loading graphics
          Map.refShowBeamPanelVM.ShowBuilding_IsChecked = bAssembly
+         x = EgtGetCurrentContext()
          ' mostro tutti i pezzi
          Map.refShowBeamPanelVM.ShowAll(True)
+         x = EgtGetCurrentContext()
       Else
          Map.refShowBeamPanelVM.ShowBuilding_IsChecked = bAssembly
+         x = EgtGetCurrentContext()
          ' elimino da Db
          ' CheckMe impostata come cancellazione FISICA dal DB...
          DbControllers.m_ProjController.DeleteProj(nProjId, False)

EgtBEAMWALL.Optimizer/OnlyProdProject/OnlyProdProjectV.xaml

@@ -146,7 +146,12 @@
          </TabItem>
          <TabItem Header="SCENESHOWBULDING">
             <TabItem.Content>
-               <EgtBEAMWALL:SceneShowBuldingV Margin="4,4,0,4"/>
+               <Button Command="{Binding Parameter_Command}"
+                             ToolTip="{Binding Parameters_ToolTip}" Margin="0,2.5,10,2.5"
+                             Style="{StaticResource OnlyProdLeftPanel_Button}">
+                  <Image Source="/Resources/InstrumentPanel/Analyze.png" Stretch="Uniform"/>
+               </Button>
+               <!--<EgtBEAMWALL:SceneShowBuldingV Margin="4,4,0,4"/>-->
             </TabItem.Content>
          </TabItem>
       </TabControl>

EgtBEAMWALL.Optimizer/ShowBeamPanel/ShowBeamPanelVM.vb

@@ -52,13 +52,13 @@ Public Class ShowBeamPanelVM
       Set(value As Boolean)
          m_bShowBuilding = value
          If m_bShowBuilding Then
-            Map.refProjectVM.SetSelManagerTab(ProjectVM.StrategyManagerTab.SCENESHOWBULDING)
-            EgtSetCurrentContext(MapV.refSceneShowBuldingV.SceneShowBulding.GetCtx())
+            'Map.refProjectVM.SetSelManagerTab(ProjectVM.StrategyManagerTab.SCENESHOWBULDING)
+            'EgtSetCurrentContext(MapV.refSceneShowBuldingV.SceneShowBulding.GetCtx())
             If Not IsNothing(Map.refProjectVM.BTLStructureVM) Then Map.refProjectVM.BTLStructureVM.ShowBuilding(m_bShowBuilding)
-            EgtSetCurrentContext(Map.refSceneHostVM.MainScene.GetCtx())
-         Else
-            EgtSetCurrentContext(Map.refSceneHostVM.MainScene.GetCtx())
-            Map.refProjectVM.SetSelManagerTab(ProjectVM.StrategyManagerTab.RAWPARTMANAGER)
+            'EgtSetCurrentContext(Map.refSceneHostVM.MainScene.GetCtx())
+            'Else
+            '   EgtSetCurrentContext(Map.refSceneHostVM.MainScene.GetCtx())
+            '   Map.refProjectVM.SetSelManagerTab(ProjectVM.StrategyManagerTab.RAWPARTMANAGER)
          End If
       End Set
    End Property