-ottmizzato codice su savestrategy

EgtBEAMWALL.Optimizer/SaveAsStrategyWnd/SaveAsStrategyVM.vb

@@ -109,22 +109,13 @@ Public Class SaveAsStrategyVM
    ''' </summary>
    Private Sub CheckJsonFile()
       ' Controllo se il nome del file è stato scritto
-      If sAISetUpList.Contains(m_sFileNameCustomConfig) Then
-         ' Se si scrivo messaggio di errore
-         SetErrorMsg("FILE GIA' PRESENTE")
-         ' Disabilito pulsante saveas
-         SetSaveAsIsEnable(False)
-         ' Rendo visibile textblock messaggio
-         SetErrorMsgVisibility(Visibility.Visible)
-      Else
-         ' Metto messaggio di errore a vuoto
-         SetErrorMsg(String.Empty)
-         ' Riattivo pulsante saveas
-         SetSaveAsIsEnable(True)
-         ' Rendo invisibile textblock messaggio
-         SetErrorMsgVisibility(Visibility.Collapsed)
-
-      End If
+      Dim fileExists As Boolean = sAISetUpList.Contains(m_sFileNameCustomConfig)
+      ' Imposta il messaggio di errore e la visibilità in base alla presenza del file
+      SetErrorMsg(If(fileExists, "FILE GIA' PRESENTE", String.Empty))
+      ' Abilito o Disabilito pulsante saveas
+      SetSaveAsIsEnable(Not fileExists)
+      ' Rendo visibile o invisibile textblock messaggio
+      SetErrorMsgVisibility(If(fileExists, Visibility.Visible, Visibility.Collapsed))
    End Sub
 
 #End Region    ' Methods
@@ -147,18 +138,17 @@ Public Class SaveAsStrategyVM
    ''' </summary>
    Public Sub SaveAs()
       ' Controllo se il file non è vuoto
+      Dim sFileNameCustomConfig As String = If(String.IsNullOrEmpty(m_sFileNameCustomConfig), CUSTOMERCONFIG_FILE, m_sFileNameCustomConfig)
+      ' Crea il file JSON
+      Map.refStrategyManagerVM.CreateCustumerConfigJsonFile(sFileNameCustomConfig)
+      ' Se il file ha un nome valido, aggiorna la configurazione
       If Not String.IsNullOrEmpty(m_sFileNameCustomConfig) Then
-         ' Se si creo nuovo file json con nuovo nome
-         Map.refStrategyManagerVM.CreateCustumerConfigJsonFile(m_sFileNameCustomConfig)
          ' Aggiungo nuovo file a combobox elenco file
-         Map.refStrategyManagerVM.sSelectedAISetUp = m_sFileNameCustomConfig
+         Map.refStrategyManagerVM.sSelectedAISetUp = sFileNameCustomConfig
          ' Salvo file per visualizzarlo quando riapro il programma
-         Map.refStrategyManagerVM.m_sLastCustomConfigJson = m_sFileNameCustomConfig
+         Map.refStrategyManagerVM.m_sLastCustomConfigJson = sFileNameCustomConfig
          ' Aggiungo alla lista nuovo file
-         Map.refStrategyManagerVM.sAISetUpList.Add(m_sFileNameCustomConfig)
-      Else
-         ' Se no do nome di default CustomerConfing
-         Map.refStrategyManagerVM.CreateCustumerConfigJsonFile(CUSTOMERCONFIG_FILE)
+         Map.refStrategyManagerVM.sAISetUpList.Add(sFileNameCustomConfig)
       End If
       NotifyPropertyChanged(NameOf(Map.refStrategyManagerVM.sSelectedAISetUp))
       RaiseEvent m_CloseWindow(DialogResult.Cancel)

EgtBEAMWALL.Optimizer/StrategyManager/StrategyManagerVM.vb

@@ -568,6 +568,13 @@ Public Class StrategyManagerVM
    Private Sub SaveJson()
       ' Determina il nome del file JSON
       Dim fileCustomerConfigJson As String = If(String.IsNullOrEmpty(m_sSelectedAISetUp), CUSTOMERCONFIG_FILE, m_sSelectedAISetUp)
+      ' Se l'elemento selezionato è vuoto assegno il default e lo aggiungo alla lista
+      If String.IsNullOrEmpty(m_sSelectedAISetUp) Then
+         m_sSelectedAISetUp = CUSTOMERCONFIG_FILE
+         m_sAISetUpList.Add(m_sSelectedAISetUp)
+         NotifyPropertyChanged(NameOf(sSelectedAISetUp))
+         NotifyPropertyChanged(NameOf(sAISetUpList))
+      End If
       ' Crea il file JSON
       CreateCustumerConfigJsonFile(fileCustomerConfigJson)
       ' Se un file è stato selezionato, resetta il flag di modifica