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

- migliorato IsEnabled bottoni supervisore

Browse Source 
- corretto errore su ripartenza parete
- impedisco chiusura supervisore se macchina lavora
- aggiunta notifica pezzi fatti in ottimizzatore
This commit is contained in:
Emmanuele Sassi
2022-01-19 08:28:50 +01:00
parent 54ed7dc11c
commit f95ce8d671
4 changed files with 53 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtBEAMWALL.ViewerOptimizer/SupervisorCommThread/SupervisorComm.vb
+9 -4
View File
@@ -33,13 +33,13 @@ Public Class SupervisorComm
Dim bReloadFile As Boolean = False
For Each MachGroupModification In MachGroupList
If MachGroupModification.ItemType = StatusMapItemType.Part Then
Dim Part As BTLPartVM = CALCPanelVM.GetBTLPartVMFromPartId(MachGroupModification.ItemId)
Dim BTLPart As BTLPartVM = CALCPanelVM.GetBTLPartVMFromPartId(MachGroupModification.ItemId)
Select Case MachGroupModification.Operation
Case Core.StatusMapOpType.PartStart
' non faccio nulla
Case Core.StatusMapOpType.PartEnd
Part.NotifyPropertyChanged(NameOf(Part.nDONE))
Part.NotifyPropertyChanged(NameOf(Part.Background))
Case Core.StatusMapOpType.PartEnd, StatusMapOpType.ResetPartStart, StatusMapOpType.ResetPartEnd
BTLPart.NotifyPropertyChanged(NameOf(BTLPart.nDONE))
BTLPart.NotifyPropertyChanged(NameOf(BTLPart.Background))
End Select
ElseIf MachGroupModification.ItemType = StatusMapItemType.Comm Then
' se arriva richiesta da supervisore di blocco e salvataggio
@@ -103,6 +103,7 @@ Public Class SupervisorComm
MachGroup.ResetSupervisorId()
End Select
ElseIf MachGroupModification.ItemType = StatusMapItemType.Part Then
Dim BTLPart As BTLPartVM = CALCPanelVM.GetBTLPartVMFromPartId(MachGroupModification.ItemId)
Dim Part As PartVM = CALCPanelVM.GetPartVMFromPartId(MachGroupModification.ItemId)
Select Case MachGroupModification.Operation
Case Core.StatusMapOpType.PartStart
@@ -113,6 +114,8 @@ Public Class SupervisorComm
Part.dtEndTime = MachGroupModification.DtEvent
Part.nProduction_State = ItemState.Produced
Part.NotifyPropertyChanged(NameOf(Part.Background))
BTLPart.NotifyPropertyChanged(NameOf(BTLPart.nDONE))
BTLPart.NotifyPropertyChanged(NameOf(BTLPart.Background))
Case Core.StatusMapOpType.ResetPartStart
Part.dtStartTime = DateTime.MinValue
Part.nProduction_State = ItemState.Assigned
@@ -121,6 +124,8 @@ Public Class SupervisorComm
Part.dtEndTime = DateTime.MinValue
Part.nProduction_State = ItemState.WIP
Part.NotifyPropertyChanged(NameOf(Part.Background))
BTLPart.NotifyPropertyChanged(NameOf(BTLPart.nDONE))
BTLPart.NotifyPropertyChanged(NameOf(BTLPart.Background))
End Select
ElseIf MachGroupModification.ItemType = StatusMapItemType.Comm Then
' se arriva richiesta da supervisore di blocco e salvataggio