Egalware/egtbeamwall
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge remote-tracking branch 'gitlab.steamware/develop' into feature/StressTest

Browse Source
This commit is contained in:
Samuele E. Locatelli
2021-03-06 09:12:49 +01:00
parent 9b1f06df4e 47300c6299
commit 8ee2d1729e
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtBEAMWALL.ViewerOptimizer/ProdManager/ProdManagerVM.vb
+10 -1
View File
@@ -153,7 +153,16 @@ Public Class ProdManagerVM
Public Sub Save()
Map.refSceneHostVM.SaveProject()
Map.refMainWindowVM.SetTitle(CurrProd.nProdId.ToString("0000") & " - EgtBEAMWALL")
'DbControllers.m_ProdController.up
Dim MyMachGroupList As New List(Of Core.MyMachGroup)
'For Each MachGroup In Map.refProjectVM.MachGroupPanelVM.MachGroupList
' MyMachGroupList.Add(New Core.MyMachGroup())
'Next
If Map.refMachinePanelVM.SelectedMachine.nType = MachineType.BEAM Then
MyMachGroupList = Map.refProjectVM.MachGroupPanelVM.MachGroupList.Select(Function(x) New Core.BeamMachGroup(x.Id, x.Name, x.Machine))
ElseIf Map.refMachinePanelVM.SelectedMachine.nType = MachineType.wall Then
MyMachGroupList = Map.refProjectVM.MachGroupPanelVM.MachGroupList.Select(Function(x) New Core.WallMachGroup(x.Id, x.Name, x.Machine))
End If
DbControllers.m_ProdController.UpdateMachGroup(CurrProd.nProdId, MyMachGroupList)
' se nuovo progetto, incremento l'indice di progetto
If m_CurrProd.NewProd Then
m_nLastProdId = m_nLastProdId + 1