EgtCAM5 :

- piccola miglioria alla precedente modifica.
2026-06-08 19:58:28 +02:00
parent bc59d9e357
commit 74ec4c7ebf
1 changed files with 6 additions and 1 deletions
@@ -109,7 +109,12 @@ Public Class SimulationExpanderVM
                                                     .OverwritePrompt = True,
                                                     .ValidateNames = False}
         If NewSaveFileDialog.ShowDialog() = Forms.DialogResult.Cancel Then Return
-         EgtSetInfo(EgtGetCurrMachGroup(), KEY_MCHGRP_NCNAME, NewSaveFileDialog.FileName)
+         Dim sNcFilePath As String = NewSaveFileDialog.FileName
+         If sNcFilePath.StartsWith( Path.GetDirectoryName( sCurrFilePath)) Then
+            EgtSetInfo(EgtGetCurrMachGroup(), KEY_MCHGRP_NCNAME, Path.GetFileName( sNcFilePath))
+         Else
+            EgtSetInfo(EgtGetCurrMachGroup(), KEY_MCHGRP_NCNAME, sNcFilePath)
+         End If
      End If

      ' Recupero la fase corrente