Memorizza azienda selezionata e aggiorna ClickOnce

TrasferimentoProgrammiOkuma.App/Form1.vb

@@ -428,6 +428,11 @@ Public Class Form1
         End If
 
         Dim company = CurrentCompany()
+        If Not String.Equals(appConfig.DefaultCompany, company.Name, StringComparison.Ordinal) Then
+            appConfig.DefaultCompany = company.Name
+            SaveConfig()
+        End If
+
         loadingSelection = True
         cboMacchina.Items.Clear()
         For Each machine In company.Machines