EgtCAM5 :

- Miglioramenti gestione più macchine nelle tabelle per Doors.
- Gestita aggiunta operazione di lavorazione successiva a quella selezionata e sempre nella stessa fase.

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb

@@ -452,7 +452,7 @@ Namespace EgtCAM5
       Public ReadOnly Property GenerateCommand As ICommand
          Get
             If m_cmdGenerate Is Nothing Then
-               m_cmdGenerate = New RelayCommand(AddressOf Generate, AddressOf CanGenerate)
+               m_cmdGenerate = New RelayCommand(AddressOf Generate)
             End If
             Return m_cmdGenerate
          End Get
@@ -462,21 +462,19 @@ Namespace EgtCAM5
       ''' Creata the new tool.  This method is invoked by the NewCommand.
       ''' </summary>
       Public Sub Generate(ByVal param As Object)
-         Dim sInfo As String = "EgtCAM5"
          Dim sCurrFilePath As String = String.Empty
          EgtGetCurrFilePath(sCurrFilePath)
+         If String.IsNullOrEmpty(sCurrFilePath) Then
+            MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)
+         End If
+         Dim sInfo As String = "EgtCAM5 - " & sCurrFilePath
          If Not EgtGenerate(Path.ChangeExtension(sCurrFilePath, ".cnc"), sInfo) Then
             MessageBox.Show(EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)
+         Else
+            Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, EgtMsg(MSG_SIMULATION + 32))
          End If
       End Sub
 
-      ''' <summary>
-      ''' Returns true if the selected treeviewitem is valid for new tool creation.
-      ''' </summary>
-      Private Function CanGenerate(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' GenerateCommand
 
 #End Region