From 74ec4c7ebff1be4304c271d70820c5420131a628 Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.sassi@egalware.com>
Date: Mon, 8 Jun 2026 19:58:28 +0200
Subject: [PATCH] EgtCAM5 : - piccola miglioria alla precedente modifica.

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

diff --git a/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb b/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb
index 65994d4..a83b023 100644
--- a/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb
+++ b/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb
@@ -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