Egalware/EgtCAM5
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtCAM5 1.8f1 :

Browse Source 
- 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
Download Patch File Download Diff File Expand all files Collapse all files
My Project/AssemblyInfo.vb
+2 -2
View File
@@ -70,5 +70,5 @@ Imports System.Windows
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.8.5.4")>
<Assembly: AssemblyFileVersion("1.8.5.4")>
<Assembly: AssemblyVersion("1.8.6.1")>
<Assembly: AssemblyFileVersion("1.8.6.1")>
ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb
+6 -2
View File
@@ -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