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

TrasferimentoProgrammiOkuma.App/Properties/PublishProfiles/GiteaClickOnce.pubxml

@@ -16,9 +16,9 @@
     <ProductName>LMEMoxaTransfer</ProductName>
     <PublisherName>Compomac SPA</PublisherName>
     <SuiteName>Compomac SPA</SuiteName>
-    <ApplicationVersion>1.0.4.0</ApplicationVersion>
+    <ApplicationVersion>1.0.5.0</ApplicationVersion>
     <UpdateRequired>true</UpdateRequired>
-    <MinimumRequiredVersion>1.0.4.0</MinimumRequiredVersion>
+    <MinimumRequiredVersion>1.0.5.0</MinimumRequiredVersion>
     <GenerateManifests>true</GenerateManifests>
     <PublishSingleFile>false</PublishSingleFile>
     <SelfContained>true</SelfContained>

TrasferimentoProgrammiOkuma.App/TrasferimentoProgrammiOkuma.App.vbproj

@@ -9,7 +9,7 @@
     <AssemblyTitle>LMEMoxaTransfer</AssemblyTitle>
     <Company>Compomac SPA</Company>
     <Authors>Livio Merola</Authors>
-    <Version>1.0.4.0</Version>
+    <Version>1.0.5.0</Version>
     <ApplicationIcon>Assets\app-icon.ico</ApplicationIcon>
     <StartupObject>Sub Main</StartupObject>
     <UseWindowsForms>true</UseWindowsForms>