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

EgtCAM5 1.9j2 :

Browse Source 
- aggiunta in simulazione gestione messaggi generici di errore da script.
This commit is contained in:
Dario Sassi
2018-10-18 06:28:55 +00:00
parent 5d163c7897
commit 5eb02c8199
2 changed files with 8 additions and 3 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.9.10.1")>
<Assembly: AssemblyFileVersion("1.9.10.1")>
<Assembly: AssemblyVersion("1.9.10.2")>
<Assembly: AssemblyFileVersion("1.9.10.2")>
OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb
+6 -1
View File
@@ -756,7 +756,12 @@ Public Class SimulationExpanderVM
Case MCH_SIM.DIR_ERR
MessageBox.Show(EgtMsg(MSG_SIMULATION + 3), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop) 'Direzione utensile irraggiungibile
Case Else
MessageBox.Show(EgtMsg(MSG_SIMULATION + 4), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop) 'Errore
If EgtGetLastMachMgrErrorId() <> 0 Then
Dim sErr As String = EgtGetLastMachMgrErrorString()
MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation) '.... - ERRORE
Else
MessageBox.Show(EgtMsg(MSG_SIMULATION + 4), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error) 'Errore - ERRORE
End If
End Select
End If
' Aggiorno stato visualizzazione macchina (dipende anche da utensile)