EgtCAM5 1.8f1 :

- migliorata segnalazione errori in aggiorna lavorazioni.
This commit is contained in:
Dario Sassi
2017-06-10 15:45:21 +00:00
parent 269a37bfcb
commit 00cacefa87
2 changed files with 8 additions and 4 deletions
@@ -698,7 +698,9 @@ Namespace EgtCAM5
If Not EgtSpecialApplyDisposition(Operation.Id, True) Then
bOk = False
If EgtGetLastMachMgrErrorId() <> 0 Then
sErr &= EgtGetLastMachMgrErrorString() & Environment.NewLine
Dim sName As String = String.Empty
EgtGetName(Operation.Id, sName)
sErr &= sName & " - " & EgtGetLastMachMgrErrorString() & Environment.NewLine
End If
End If
Else
@@ -707,7 +709,9 @@ Namespace EgtCAM5
If Not EgtApplyMachining(True) Then
bOk = False
If EgtGetLastMachMgrErrorId() <> 0 Then
sErr &= EgtGetLastMachMgrErrorString() & Environment.NewLine
Dim sName As String = String.Empty
EgtGetName(Operation.Id, sName)
sErr &= sName & " - " & EgtGetLastMachMgrErrorString() & Environment.NewLine
End If
End If
End If