EgtCAM5 :

- riordinata interfaccia simulazione - migliorata segnalazione errori/warning di Door.
2017-12-21 15:57:50 +00:00
parent 7de454b83c
commit 456365a11f
4 changed files with 85 additions and 80 deletions
@@ -428,8 +428,16 @@ Namespace EgtCAM5
         Dim sCurrFilePath As String = String.Empty
         EgtGetCurrFilePath(sCurrFilePath)
         If String.IsNullOrEmpty(sCurrFilePath) OrElse EgtGetModified() Then
-            MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)
-            Return
+            ' Il progetto deve essere salvato prima di poter essere generato. Vuoi farlo ?
+            If MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
+               ' Abbandono
+               Return
+            Else
+               ' Lancio salvataggio
+               Application.Msn.NotifyColleagues(Application.SAVEPROJECT)
+               ' Se non salvato, abbandono
+               If EgtGetModified() Then Return
+            End If
         End If
         Dim sCncFile As String = Path.ChangeExtension(sCurrFilePath, Nothing)
         Dim sInfo As String = "EgtCAM5 - " & sCurrFilePath