EgtCAM5 :

- Aggiunta pagina MTables con abbozzo di gestione tabelle.
- Aggiunta gestione della visualizzazione dei gruppi macchina.
- Aggiunta possibilità di eseguire script di disposizione quando si passa in lavorazione.

ProjectPage/DbPanel/DbPanelViewModel.vb

@@ -10,6 +10,7 @@ Namespace EgtCAM5
       ' Definizione comandi
       Private m_cmdToolDb As ICommand
       Private m_cmdMachDb As ICommand
+      Private m_cmdMTableDb As ICommand
 
 #End Region    'FIELDS & PROPERTIES
 
@@ -85,8 +86,35 @@ Namespace EgtCAM5
 
 #End Region    ' MachDbCommand
 
-#End Region    ' COMMANDS
+#Region "MachDbCommand"
 
+      ''' <summary>
+      ''' Returns a command that do Exec.
+      ''' </summary>
+      Public ReadOnly Property MTableDbCommand As ICommand
+         Get
+            If m_cmdMTableDb Is Nothing Then
+               m_cmdMTableDb = New RelayCommand(AddressOf MTableDb)
+            End If
+            Return m_cmdMTableDb
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Exec.  This method is invoked by the ExecCommand.
+      ''' </summary>
+      Public Sub MTableDb(ByVal param As Object)
+         Dim MTableDbWindow As New MTableDbView
+         MTableDbWindow.Height = 614
+         MTableDbWindow.Width = 1024
+         MTableDbWindow.DataContext = New MTableDbViewModel
+         MTableDbWindow.Owner = Application.Current.MainWindow
+         MTableDbWindow.ShowDialog()
+      End Sub
+
+#End Region    ' MachDbCommand
+
+#End Region    ' COMMANDS
 
    End Class