- aggiunta gestione modi controllo in caso di nuovo controllo

- aggiunto refresh sort su lista supervisore
2023-11-08 09:27:21 +01:00
parent 9f16294994
commit 84dffd8966
2 changed files with 5 additions and 0 deletions
@@ -437,6 +437,10 @@ Public Class LeftPanelVM
                                                         New OPState("Reset", OPStates.End),
                                                         New OPState("Unspecified", OPStates.Unspecified)
         }
+         Case Else
+            m_OPStateList = New List(Of OPState) From {
+                                                         New OPState("Unspecified", OPStates.Unspecified)
+         }
      End Select
      ' seleziono in partenza unspecified
      Dim UnspecifiedState As OPState = m_OPStateList.FirstOrDefault(Function(x) x.Id = OPStates.Unspecified)
@@ -317,6 +317,7 @@ Public Class MyMachGroupVM
         ' segno pezzo da produrre
         MachGroup.m_bToBeProduced = True
         MachGroup.NotifyPropertyChanged(NameOf(MachGroup.Production_Background))
+         Map.refSupervisorMachGroupPanelVM.MachGroupVMList_View.Refresh()

         ' sposto MachGroup in lista come ultimo dei pronti da produrre
         Dim OldIndex As Integer = Map.refProjectVM.SupervisorMachGroupPanelVM.MachGroupVMList.IndexOf(MachGroup)