EgtCAM5 2.1c3 :

- corretta gestione MRU con nomi file non ASCII
- migliorata gestione salvataggio appena prima di generazione.

OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb

@@ -568,6 +568,8 @@ Public Class SimulationExpanderVM
             Application.Msn.NotifyColleagues(Application.SAVEPROJECT)
             ' Se non salvato, abbandono
             If EgtGetModified() Then Return
+            ' Aggiorno path
+            EgtGetCurrFilePath(sCurrFilePath)
          End If
       End If
       Dim sCncFile As String = ""
@@ -908,9 +910,10 @@ Public Class SimulationExpanderVM
             Else
                ' Lancio salvataggio
                Application.Msn.NotifyColleagues(Application.SAVEPROJECT)
-               EgtGetCurrFilePath(sCurrFilePath)
                ' Se non salvato, abbandono
                If EgtGetModified() Then bOk = False
+               ' Aggiorno path
+               EgtGetCurrFilePath(sCurrFilePath)
             End If
          End If
       Else
@@ -922,23 +925,27 @@ Public Class SimulationExpanderVM
       End If
       ' Creo la path del file di stima e relativo info (con nome gruppo se gestiti)
       If Not String.IsNullOrEmpty(sCurrFilePath) Then
-         sEstFile = Path.ChangeExtension(sCurrFilePath, Nothing)
          sInfo = "EgtCAM5 - " & sCurrFilePath
-         If IniFile.m_bMachiningGroup Then
-            Dim sMGrpName As String = String.Empty
-            If EgtGetMachGroupName(EgtGetCurrMachGroup(), sMGrpName) Then
-               sEstFile &= "_" & sMGrpName & ".html"
-               sInfo &= "-" & sMGrpName
+         If EgtGetInfo( EgtGetCurrMachGroup(), KEY_MCHGRP_NCNAME, sEstFile) AndAlso Not String.IsNullOrWhiteSpace( sEstFile) then
+            sEstFile = Path.ChangeExtension(Path.GetDirectoryName (sCurrFilePath) & "\" & sEstFile, ".html")
+         else
+            sEstFile = Path.ChangeExtension(sCurrFilePath, Nothing)
+            If IniFile.m_bMachiningGroup Then
+               Dim sMGrpName As String = String.Empty
+               If EgtGetMachGroupName(EgtGetCurrMachGroup(), sMGrpName) Then
+                  sEstFile &= "_" & sMGrpName & ".html"
+                  sInfo &= "-" & sMGrpName
+               End If
+            Else
+               sEstFile &= ".html"
             End If
-         Else
-            sEstFile &= ".html"
          End If
       End If
       Return bOk
    End Function
 
    Private Function CalcEstimation() As Boolean
-         ' Recupero la fase corrente
+      ' Recupero la fase corrente
       Dim nPhase As Integer = EgtGetCurrPhase()
       ' Aggiorno le lavorazioni
       If Not UpdateAllMachinings() Then