From 31edd150bd2c8dd44e82f4d39d5345c19fc860a4 Mon Sep 17 00:00:00 2001
From: NicolaP <nicola.pievani@egalware.com>
Date: Mon, 13 Feb 2023 13:08:47 +0100
Subject: [PATCH] Aggiunti commenti per preprare aggiornamento
 SelezionaLavorazione

---
 MyMachGroupPanel/MyMachGroupPanelVM.vb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/MyMachGroupPanel/MyMachGroupPanelVM.vb b/MyMachGroupPanel/MyMachGroupPanelVM.vb
index 7be51df..ef6267d 100644
--- a/MyMachGroupPanel/MyMachGroupPanelVM.vb
+++ b/MyMachGroupPanel/MyMachGroupPanelVM.vb
@@ -189,6 +189,10 @@ Public Class MyMachGroupPanelVM
       End If
       ' Verifico che gli utensili delle lavorazioni correnti siano attrezzati (necessario perchè potrei aver cambiato gli utensili delle lavorazioni)
       ' e che le lavorazioni correnti siano compatibili con materiale e spessore
+
+      ' Inizializzo l'elenco delle lavorazioni correnti
+      ' Dim CurrMachining As New CurrMachWindowVM
+
       ' Lama
       Dim bOkCurrSawing As Boolean = True
       Dim bOkCurrWaterjetting As Boolean = True
@@ -229,12 +233,13 @@ Public Class MyMachGroupPanelVM
       Else
          bOkCurrWaterjetting = False
       End If
-
+      ' Imposto il colore del pulsante SetUp 
       If Not bOkSetUp Then
          OmagOFFICEMap.refMachinePanelVM.SetUp_Background = Brushes.Red
       Else
          OmagOFFICEMap.refMachinePanelVM.SetUp_Background = DirectCast(New BrushConverter().ConvertFrom("#FFDDDDDD"), SolidColorBrush)
       End If
+      ' Imposto il colore di sfondo del pulsante SettingMachinig
       If Not bOkMatThick Or Not bOkCurrSawing Then
          If Not bOkMatThick Or Not bOkCurrWaterjetting Then
             OmagOFFICEMap.refOptionPanelVM.RawPart_Background = Brushes.Red