-aggiornato messaggi

2024-09-26 16:30:07 +02:00
parent 63efd1e137
commit 23028209b8
52 changed files with 541 additions and 541 deletions
@@ -103,18 +103,18 @@ Public Class SimulationExpanderVM
         Dim nErr = EgtGetLastMachMgrErrorId()
         If nErr = 1000 Then
            'MessageBox.Show(EgtMsg(5333), EgtMsg(5320), MessageBoxButton.OK, MessageBoxImage.Information)
-            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5333), EgtMsg(5320), MessageBoxButton.OK, MessageBoxImage.Information)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5333), EgtMsg(5320), MessageBoxButton.OK, MessageBoxImage.Information)   ' La licenza non permette la Generazione CN INFORMAZIONE
         ElseIf nErr <> 0 Then
            Dim sErr As String = EgtGetLastMachMgrErrorString()
            'MessageBox.Show(sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)
-            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)  ' ERRORE
         Else
            'MessageBox.Show(EgtMsg(5306), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)
-            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5306), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5306), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)   ' Errore in generazione! ERRORE
         End If
         bNcView = False
      Else
-         Map.refStatusBarVM.NotifyStatusOutput(EgtMsg(5332) & "  (" & sCncFile & ")")
+         Map.refStatusBarVM.NotifyStatusOutput(EgtMsg(5332) & "  (" & sCncFile & ")")     ' Generato con successo
      End If
      ' Torno alla fase originale (o alla prima se non definita)
      EgtSetCurrPhase(If(nPhase = 0, 1, nPhase), True)
@@ -208,10 +208,10 @@ Public Class SimulationExpanderVM
      If Not bOk Then
         If Not String.IsNullOrEmpty(sErr) Then
            'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
-            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)  ' ERRORE
         Else
            'MessageBox.Show(EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
-            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5306), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)   ' Errore in generazione! ERRORE
         End If
      End If
      If Not bModified Then EgtResetModified()
@@ -231,11 +231,11 @@ Public Class SimulationExpanderVM
      If Not bOk Then
         If EgtGetLastMachMgrErrorId() <> 0 Then
            Dim sErr As String = EgtGetLastMachMgrErrorString()
-            'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
-            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
+            'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     ' .... - ERRORE
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     ' .... - ERRORE
         Else
-            'MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    'Errore sconosciuto - ERRORE
-            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    'Errore sconosciuto - ERRORE
+            'MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    ' Errore sconosciuto - ERRORE
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(15010), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)    ' Errore sconosciuto - ERRORE
         End If
      End If
      ' Imposto stato corrente
@@ -260,7 +260,7 @@ Public Class SimulationExpanderVM
      End If
      ' Aggiorno visualizzazione dati macchina
      ShowCncData()
-      StatusMsg = EgtMsg(MSG_SIMULATION + 14)   ' HOME
+      StatusMsg = EgtMsg(5314)   ' HOME
   End Sub

   Public Overrides Sub ExecSim()
@@ -275,11 +275,11 @@ Public Class SimulationExpanderVM
      If Not EgtSimStart(False) Then
         If EgtGetLastMachMgrErrorId() <> 0 Then
            Dim sErr As String = EgtGetLastMachMgrErrorString()
-            'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
-            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
+            'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     ' .... - ERRORE
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     ' .... - ERRORE
         Else
-            'MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    'Errore sconosciuto - ERRORE
-            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    'Errore sconosciuto - ERRORE
+            'MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    ' Errore sconosciuto - ERRORE
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(15010), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)    ' Errore sconosciuto - ERRORE
         End If
         SetSimulationStatus(MCH_SIM_ST.UI_STOP)
      End If
@@ -295,7 +295,7 @@ Public Class SimulationExpanderVM
               If GetStatus() = MCH_SIM_ST.UI_STEP And nMove = MCH_SIM.END_STEP Then
                  ' Imposto stato Pausa
                  SetSimulationStatus(MCH_SIM_ST.UI_PAUSE)
-                  StatusMsg = EgtMsg(MSG_SIMULATION + 11)   ' PAUSA
+                  StatusMsg = EgtMsg(5311)   ' PAUSA
                  ' Aggiornamenti per bottone Play/Pause
                  SetShowPlay(True)
                  NotifyPropertyChanged(NameOf(PlayPauseImage))
@@ -305,13 +305,13 @@ Public Class SimulationExpanderVM
               If m_bStopOnNextCollision Then
                  ' Imposto stato Pausa
                  SetSimulationStatus(MCH_SIM_ST.UI_PAUSE)
-                  StatusMsg = EgtMsg(MSG_SIMULATION + 11)   ' PAUSA
+                  StatusMsg = EgtMsg(5311)   ' PAUSA
                  ' Aggiornamenti per bottone Play/Pause
                  SetShowPlay(True)
                  NotifyPropertyChanged(NameOf(PlayPauseImage))
                  ' Messaggio
-                  'MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    'Errore sconosciuto - ERRORE
-                  EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 19), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+                  'MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    ' Errore sconosciuto - ERRORE
+                  EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5319), EgtMsg(5315), MessageBoxButton.OK, MessageBoxImage.Warning)
               Else
                  m_bStopOnNextCollision = True
               End If
@@ -325,25 +325,25 @@ Public Class SimulationExpanderVM
               VMill_IsEnabled = True
               Select Case nMove
                  Case MCH_SIM.END_
-                     StatusMsg = EgtMsg(MSG_SIMULATION + 1)   ' END
+                     StatusMsg = EgtMsg(5301)   ' END
                  Case MCH_SIM.STOP_
                     ' Simulazione fermata dall'utente (non necessita messaggio)
                  Case MCH_SIM.OUTSTROKE
                     Dim sInfo As String = String.Empty
                     EgtGetOutstrokeInfo(sInfo)
-                     'MessageBox.Show(EgtMsg(MSG_SIMULATION + 2) & " " & sInfo, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)        'Extracorsa ...
-                     EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 2) & " " & sInfo, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)        'Extracorsa ...
+                     'MessageBox.Show(EgtMsg(MSG_SIMULATION + 2) & " " & sInfo, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)        ' Extracorsa ...
+                     EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5302) & " " & sInfo, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Stop)        ' Extracorsa ...
                  Case MCH_SIM.DIR_ERR
-                     'MessageBox.Show(EgtMsg(MSG_SIMULATION + 3), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)         'Direzione utensile irraggiungibile
-                     EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 3), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)         'Direzione utensile irraggiungibile
+                     'MessageBox.Show(EgtMsg(MSG_SIMULATION + 3), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)         ' Direzione utensile irraggiungibile
+                     EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5303), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Stop)         ' Direzione utensile irraggiungibile
                  Case Else
                     If EgtGetLastMachMgrErrorId() <> 0 Then
                        Dim sErr As String = EgtGetLastMachMgrErrorString()
-                        'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
-                        EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
+                        'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     ' .... - ERRORE
+                        EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     ' .... - ERRORE
                     Else
-                        'MessageBox.Show(EgtMsg(MSG_SIMULATION + 4), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)     'Errore - ERRORE
-                        EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 4), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)     'Errore - ERRORE
+                        'MessageBox.Show(EgtMsg(MSG_SIMULATION + 4), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)     ' Errore - ERRORE
+                        EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5304), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)     ' Errore - ERRORE
                     End If
               End Select
            End If
@@ -414,7 +414,7 @@ Public Class SimulationExpanderVM
         If String.IsNullOrEmpty(sCurrFilePath) OrElse EgtGetModified() Then
            ' Il progetto deve essere salvato prima di poter essere generato. Vuoi farlo ?
            'If MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
-            If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
+            If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5331), EgtMsg(5315), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then ' Il progetto deve essere salvato prima della generazione CN. Vuoi farlo ? AVVERTIMENTO
               ' Abbandono
               Return False
            Else
@@ -457,7 +457,7 @@ Public Class SimulationExpanderVM
         If nFlag = 11 Then
            ' Imposto stato Pausa
            SetSimulationStatus(MCH_SIM_ST.UI_PAUSE)
-            StatusMsg = EgtMsg(MSG_SIMULATION + 11)   ' PAUSA
+            StatusMsg = EgtMsg(5311)   ' PAUSA
            ' Aggiornamenti per bottone Play/Pause
            SetShowPlay(True)
            NotifyPropertyChanged(NameOf(PlayPauseImage))