EgtCAM5 1.6v8 :

- piccole migliorie a tabelle Doors
- modifiche per gestione più fasi di lavorazione.

MTableDb/MTableDbViewModel.vb

@@ -64,7 +64,7 @@ Namespace EgtCAM5
 
       Private Sub SearchTables()
          ' Leggo dal file ini il direttorio per le Table
-         If GetPrivateProfileString(S_TABLE, K_TABLESDIR, "", IniFile.m_sTablesRoot) = 0 _
+         If GetPrivateProfileString(S_DOORS, K_TABLESDIR, "", IniFile.m_sTablesRoot) = 0 _
             Or Not My.Computer.FileSystem.DirectoryExists(IniFile.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.")
@@ -75,10 +75,7 @@ Namespace EgtCAM5
                m_TablesList.Add(New MTableListBoxItem(Path.GetFileNameWithoutExtension(Table), Table))
                Dim sNameIndex As String = Regex.Match(Path.GetFileNameWithoutExtension(Table), "MTable_(\d+)").Groups(1).Value
                Dim nNameIndex As Integer = 0
-               If String.IsNullOrEmpty(sNameIndex) Then
-                  ' il suo valore di default è 1 quindi lo imposto a questo valore
-                  nNameIndex = 0
-               Else
+               If Not String.IsNullOrEmpty(sNameIndex) Then
                   Integer.TryParse(sNameIndex, nNameIndex)
                End If
                If nNameIndex > MTableListBoxItem.NewMTableIndex Then