diff --git a/ProjectManager/ProjectManagerVM.vb b/ProjectManager/ProjectManagerVM.vb index 0a78d5e..55b076b 100644 --- a/ProjectManager/ProjectManagerVM.vb +++ b/ProjectManager/ProjectManagerVM.vb @@ -1316,17 +1316,16 @@ Public Class ProjectManagerVM '' Project must be saved before copying 'MessageBox.Show(EgtMsg(50186), EgtMsg(50144), MessageBoxButton.OK, MessageBoxImage.Warning) ' 50177=Do you want to save the current changes? - Dim ResultMsg As MessageBoxResult = MessageBox.Show(EgtMsg(50177), EgtMsg(50144), MessageBoxButton.YesNoCancel, MessageBoxImage.Warning) - If ResultMsg = MessageBoxResult.No Then - ' trascuro le modifiche e continuo - ElseIf ResultMsg = MessageBoxResult.Yes Then + Dim ResultMsg As MessageBoxResult = MessageBox.Show(EgtMsg(50177), EgtMsg(50144), MessageBoxButton.OKCancel, MessageBoxImage.Warning) + If ResultMsg = MessageBoxResult.OK Then + ' salvo e continuo Save() Else - ' trascuro le modifiche + ' esco Return End If End If - '' elimino eventuali file .txt associati a ddf corrente + '' elimino eventuali file .txt associati a ddf corrente (per lettura dei messaggi di errore stampati nel dal log del CAM5) 'Dim FileLog As String = Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.Name 'FileLog = FileLog.Replace(DDF_EXTENSION, ".txt") 'Try