EgtCAM5 1.8f1 :
- migliorata segnalazione errori in aggiorna lavorazioni.
This commit is contained in:
+6
-2
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user