EgtCAM5 1.8e3 :

- sistemate lavorazioni per nuovi parametri di categoria avanzata
- nascosti parametri fresatura per tab (non ancora implementata la funzionalità)
- migliorato report errori in lavorazioni
- migliorato controllo attrezzaggio.

ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb

@@ -684,18 +684,32 @@ Namespace EgtCAM5
       ''' Execute the Point.  This method is invoked by the PointCommand.
       ''' </summary>
       Public Sub Update()
+         Application.Current.MainWindow.ForceCursor = True
+         Application.Current.MainWindow.Cursor = Cursors.Wait
          ' Recupero fase corrente e lavorazione corrente
          Dim nCurrPhase As Integer = EgtGetCurrPhase()
          Dim nCurrMach As Integer = EgtGetCurrMachining()
          ' Ricalcolo la lavorazione per tutte le operazioni della lista
+         Dim bOk As Boolean = True
+         Dim sErr As String = String.Empty
          For Each Operation In OperationList
             If Operation.Type = MCH_OY.DISP Then
                EgtSetCurrPhase(EgtGetOperationPhase(Operation.Id))
-               EgtSpecialApplyDisposition(Operation.Id, True)
+               If Not EgtSpecialApplyDisposition(Operation.Id, True) Then
+                  bOk = False
+                  If EgtGetLastMachMgrErrorId() <> 0 Then
+                     sErr &= EgtGetLastMachMgrErrorString() & Environment.NewLine
+                  End If
+               End If
             Else
                If EgtGetOperationMode(Operation.Id) Then
                   EgtSetCurrMachining(Operation.Id)
-                  EgtApplyMachining(True)
+                  If Not EgtApplyMachining(True) Then
+                  bOk = False
+                  If EgtGetLastMachMgrErrorId() <> 0 Then
+                     sErr &= EgtGetLastMachMgrErrorString() & Environment.NewLine
+                  End If
+                  End If
                End If
             End If
          Next
@@ -707,6 +721,18 @@ Namespace EgtCAM5
             EgtResetCurrMachining()
          End If
          EgtDraw()
+         Application.Current.MainWindow.ForceCursor = False
+         Application.Current.MainWindow.Cursor = Cursors.Arrow
+         ' In caso di errori, li segnalo
+         If Not bOk Then
+            If Not String.IsNullOrEmpty(sErr) Then
+               MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            Else
+               MessageBox.Show(EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
+            End If
+         Else
+            Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, EgtMsg(MSG_OPERATION + 11))
+         End If
       End Sub
 
 #End Region ' UpdateCommand