EgtCAM5 :

- Aggiunta possibilità di getire progressbar e output message presenti nella StatusBar da LUA.
- Inizio scrittura della struttura per MTables.
- Aggiunta la possibilità di aggiungere nuovi gruppi di lavorazione.
- Gestita uscita da NewMachiningCmd(in OperationList) con Esc.

MTableDb/MTableDbViewModel.vb

@@ -17,6 +17,16 @@ Namespace EgtCAM5
          End Set
       End Property
 
+      Private m_SelectedTable As String
+      Public Property SelectedTable As String
+         Get
+            Return m_SelectedTable
+         End Get
+         Set(value As String)
+            m_SelectedTable = value
+         End Set
+      End Property
+
       Private m_Title As String
       Public ReadOnly Property Title As String
          Get
@@ -29,20 +39,14 @@ Namespace EgtCAM5
       End Sub
 
       Private Sub SearchTables()
-         '' Leggo dal file ini il direttorio per le Table
-         'If GetPrivateProfileString(S_TABLE, K_TABLESDIR, "", m_sTablesRoot) = 0 _
-         '   Or not My.Computer.FileSystem.DirectoryExists(m_sTablesRoot) Then
-         '   ' Se non lo trovo mando messaggio di errore e chiudo la finestra
-         '   MessageBox.Show("ERROR IN LOADING TABLES", "Tables dir not found.")
-         'End If
-         ' se trovo la cartella carico la lista di tabelle
-
-
-         Dim TempArray As String() = Directory.GetDirectories(IniFile.m_sMachinesRoot)
-         If TempArray.Count = 0 Then
-            'esci
+         ' Leggo dal file ini il direttorio per le Table
+         If GetPrivateProfileString(S_TABLE, K_TABLESDIR, "", m_sTablesRoot) = 0 _
+            Or Not My.Computer.FileSystem.DirectoryExists(m_sTablesRoot) Then
+            ' Se non lo trovo mando messaggio di errore e chiudo la finestra
+            MessageBox.Show("ERROR IN LOADING TABLES", "Tables dir not found.")
          End If
-         For Each Table In My.Computer.FileSystem.GetFiles("c:\EgtData\Doors\MTables\")
+         ' se trovo la cartella carico la lista di tabelle
+         For Each Table In My.Computer.FileSystem.GetFiles(m_sTablesRoot)
             m_TablesList.Add(Path.GetFileNameWithoutExtension(Table))
          Next
       End Sub