-aggiornato messaggi

OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderVM.vb

@@ -36,7 +36,7 @@ Public Class MachiningTreeExpanderVM
 
    Public ReadOnly Property MachListHdr As String
       Get
-         Return EgtMsg(MSG_OPERATION + 12)                      ' Nuove Lavorazioni
+         Return EgtMsg(5412)     ' Nuove Lavorazioni
       End Get
    End Property
 
@@ -86,7 +86,7 @@ Public Class MachiningTreeExpanderVM
          If MachiningId = GDB_ID.NULL Then
             ' Inserimento lavorazione non riuscito    ERRORE
             'MessageBox.Show(EgtMsg(MSG_OPERATION + 19), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
-            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_OPERATION + 19), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5419), EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)  ' Inserimento lavorazione non riuscito Errore
             Map.refOperationsListExpanderVM.CancelOperationCmd()
             Return
          End If
@@ -128,31 +128,31 @@ Public Class MachiningTreeExpanderVM
    Private Function MachiningTypeToString(Type As Integer) As String
       Select Case Type
          Case MCH_MY.DRILLING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 1)
+            Return EgtMsg(6201)     ' Foratura
          Case MCH_MY.SAWING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 2)
+            Return EgtMsg(6202)     ' Taglio di lama
          Case MCH_MY.MILLING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 3)
+            Return EgtMsg(6203)     ' Fresatura
          Case MCH_MY.POCKETING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 4)
+            Return EgtMsg(6204)     ' Svuotatura
          Case MCH_MY.MORTISING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 5)
+            Return EgtMsg(6205)     ' Mortasatura
          Case MCH_MY.SAWROUGHING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 6)
+            Return EgtMsg(6206)     ' Sgrossatura con lama
          Case MCH_MY.SAWFINISHING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 7)
+            Return EgtMsg(6207)     ' Finitura con lama
          Case MCH_MY.GENMACHINING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 8)
+            Return EgtMsg(6208)     ' Lav. generica
          Case MCH_MY.CHISELING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 9)
+            Return EgtMsg(6209)     ' Scalpellatura
          Case MCH_MY.SURFROUGHING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 10)
+            Return EgtMsg(6210)     ' Sgrossatura superfici
          Case MCH_MY.SURFFINISHING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 11)
+            Return EgtMsg(6211)     ' Finitura superfici
          Case MCH_MY.WATERJETTING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 12)
+            Return EgtMsg(6212)     ' WaterJet
          Case MCH_MY.FIVEAXISMILLING
-            Return EgtMsg(31213)
+            Return EgtMsg(31213)    ' Lav. 5 assi
          Case Else
             Return "Mach"
       End Select