-aggiornato messaggi

MachinePanel/MyMachinePanelVM.vb

@@ -96,17 +96,17 @@ Public Class MyMachinePanelVM
 
    Public ReadOnly Property ToolDBMsg As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 6)
+         Return EgtMsg(5006)     ' Db Ut.
       End Get
    End Property
    Public ReadOnly Property MachiningDbMsg As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 7)
+         Return EgtMsg(5007)     ' Db Lav.
       End Get
    End Property
    Public ReadOnly Property SetUpDbMsg As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 9)
+         Return EgtMsg(5009)     ' Db Att.
       End Get
    End Property
 
@@ -116,22 +116,22 @@ Public Class MyMachinePanelVM
 
    Public ReadOnly Property ToolDBToolTip As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 3)
+         Return EgtMsg(5003)     ' Db Utensili
       End Get
    End Property
    Public ReadOnly Property MachiningDbToolTip As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 4)
+         Return EgtMsg(5004)     ' Db Lavorazioni
       End Get
    End Property
    Public ReadOnly Property SetUpDbToolTip As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 10)
+         Return EgtMsg(5010)     ' Db Attrezzaggio
       End Get
    End Property
    Public ReadOnly Property MachOptionsToolTip As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 8)
+         Return EgtMsg(5008)     ' Opzioni Macchina
       End Get
    End Property
 
@@ -209,7 +209,7 @@ Public Class MyMachinePanelVM
       If Not EgtTdbReload() Then
          EgtOutLog("Impossible reloading tool Db")
          'MessageBox.Show(EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
-         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6130), EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)  ' Impossibile ricaricare il database utensili. Se la cartella delle macchine è su un server, verificare che la connessione sia attiva. Errore
          Return
       End If
 
@@ -233,7 +233,7 @@ Public Class MyMachinePanelVM
       If Not EgtTdbReload() Then
          EgtOutLog("Impossible reloading tool Db")
          'MessageBox.Show(EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
-         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6130), EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)  ' Impossibile ricaricare il database utensili. Se la cartella delle macchine è su un server, verificare che la connessione sia attiva. Errore
          Return
       End If
 
@@ -259,7 +259,7 @@ Public Class MyMachinePanelVM
       If Not EgtMdbReload() Then
          EgtOutLog("Impossible reloading machining Db")
          'MessageBox.Show(EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
-         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6377), EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)  ' Impossibile ricaricare database lavorazioni. Se la cartella delle macchine è su un server, verificare che la connessione sia attiva. Errore
          Return
       End If
       Dim MachDbWindowVM As New EgtWPFLib5.MachiningDbWindowVM(IniFile.m_sCurrMachIniFilePath, IniFile.m_ProjectSceneContext, "Wood", IniFile.m_nUserLevel > 9, True)
@@ -281,7 +281,7 @@ Public Class MyMachinePanelVM
       If Not EgtMdbReload() Then
          EgtOutLog("Impossible reloading machining Db")
          'MessageBox.Show(EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
-         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6377), EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)  ' Impossibile ricaricare database lavorazioni. Se la cartella delle macchine è su un server, verificare che la connessione sia attiva. Errore
          Return
       End If
       Dim MachDbWindowVM As New EgtWPFLib5.MachiningDbWindowVM(IniFile.m_sCurrMachIniFilePath, IniFile.m_ProjectSceneContext, "Wood", IniFile.m_nUserLevel > 9, True)
@@ -307,7 +307,7 @@ Public Class MyMachinePanelVM
       If Not File.Exists(IniFile.m_sCurrMachScriptsDirPath & "\" & SETUP_LUA) Then
          EgtOutLog("SetUp error: SetUp configuration file doesn't exist ")
          'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
-         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6477), EgtMsg(6471), MessageBoxButton.OK, MessageBoxImage.Error)   ' Il file di configurazione non esiste! Errore
          Return
       End If
       ' carico Lua che contiene le funzioni per ottenere le posizioni valide dell'utensile selezionato,
@@ -327,7 +327,7 @@ Public Class MyMachinePanelVM
          If nErr = 0 Then
             If EgtGetHeadExitCount(sHead) = 0 Then
                'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
-               EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+               EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6478), EgtMsg(6471), MessageBoxButton.OK, MessageBoxImage.Error)   ' L'attrezzaggio usa una testa che non esiste sulla macchina! Errore
                Return
             End If
          End If
@@ -378,7 +378,7 @@ Public Class MyMachinePanelVM
       If String.IsNullOrWhiteSpace(IniFile.m_sMachinesRoot) OrElse
          Not Directory.Exists(IniFile.m_sMachinesRoot) OrElse Directory.GetDirectories(IniFile.m_sMachinesRoot).Count = 0 Then
          IniFile.m_ProjectMode = ProjectModeOpt.ONLYDRAW
-         EgtOutLog(EgtMsg(MSG_STATUSBAR + 1))
+         EgtOutLog(EgtMsg(6801))    ' Direttorio Machines non trovato. EgtCAM5 funzionerà in modo solo CAD.
          Return
       End If
       ' Cerco le macchine
@@ -388,7 +388,7 @@ Public Class MyMachinePanelVM
       Next
       If m_MachinesList.Count = 0 Then
          IniFile.m_ProjectMode = ProjectModeOpt.ONLYDRAW
-         EgtOutLog(EgtMsg(MSG_STATUSBAR + 1))
+         EgtOutLog(EgtMsg(6801))    ' Direttorio Machines non trovato. EgtCAM5 funzionerà in modo solo CAD.
          Return
       End If
    End Sub