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

Correzioni e migliorie comunicazione tra ottimizzatore e supervisore

Browse Source
This commit is contained in:
Emmanuele Sassi
2021-08-31 09:22:21 +02:00
parent eba6d775f5
commit d6b3ebf0ae
30 changed files with 506 additions and 189 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtBEAMWALL.ViewerOptimizer/SupervisorCommThread/SupervisorComm.vb
+21 -13
View File
@@ -44,7 +44,8 @@ Public Class SupervisorComm
End Select
Next
' aggiorno indice del proj
Map.refProjManagerVM.CurrProj.SetModificationIndex(nModificationIndex)
End If
' se arriva richiesta da supervisore di blocco e salvataggio
@@ -75,17 +76,23 @@ Public Class SupervisorComm
Dim MachGroupList As List(Of StatusMapModel) = DbControllers.m_StatusMapController.GetFrom(Map.refProdManagerVM.CurrProd.nModificationIndex + 1)
Dim bReloadFile As Boolean = False
For Each MachGroupModification In MachGroupList
Select Case MachGroupModification.Operation
Case Core.StatusMapOpType.PartStart
Case Core.StatusMapOpType.PartEnd
Case Core.StatusMapOpType.MachGroupRemovedFromSupervisor
Dim Machgroup As MyMachGroupVM = Map.refProjectVM.MachGroupPanelVM.MachGroupVMList.FirstOrDefault(Function(x) x.Id = MachGroupModification.ItemId)
Machgroup.ResetSupervisorId()
End Select
If MachGroupModification.ItemType = StatusMapItemType.MachGroup Then
Select Case MachGroupModification.Operation
Case Core.StatusMapOpType.PartStart
Dim Machgroup As MyMachGroupVM = Map.refProjectVM.MachGroupPanelVM.MachGroupVMList.FirstOrDefault(Function(x) x.Id = MachGroupModification.ItemId)
Machgroup.dtStartTime = MachGroupModification.DtEvent
Machgroup.nProduction_State = ItemState.WIP
Machgroup.NotifyPropertyChanged(NameOf(Machgroup.Background))
Case Core.StatusMapOpType.PartEnd
Dim Machgroup As MyMachGroupVM = Map.refProjectVM.MachGroupPanelVM.MachGroupVMList.FirstOrDefault(Function(x) x.Id = MachGroupModification.ItemId)
Machgroup.dtEndTime = MachGroupModification.DtEvent
Machgroup.nProduction_State = ItemState.Produced
Machgroup.NotifyPropertyChanged(NameOf(Machgroup.Background))
Case Core.StatusMapOpType.MachGroupRemovedFromSupervisor
Dim Machgroup As MyMachGroupVM = Map.refProjectVM.MachGroupPanelVM.MachGroupVMList.FirstOrDefault(Function(x) x.Id = MachGroupModification.ItemId)
Machgroup.ResetSupervisorId()
End Select
End If
Next
' se arriva richiesta da supervisore di blocco e salvataggio
@@ -95,7 +102,8 @@ Public Class SupervisorComm
' blocco interfaccia fino a notifica di sblocco
' aggiorno indice del prod
Map.refProdManagerVM.CurrProd.SetModificationIndex(nModificationIndex)
End If
End If
' se c'e' un progetto aperto o in caricamento