OmagOFFICE 2.2c2 :

- Gestione dei parametri da visualizzare per ciascun utensile del DB Utensile ora è spostata sulla libreria EgtWPFLib5 (come già fatto per Db Lavorazioni)
2020-03-04 11:27:31 +00:00
parent 60994d180b
commit fcf53b9902
3 changed files with 12 additions and 14 deletions
@@ -143,10 +143,16 @@ Public Class MachinePanelVM
         MessageBox.Show(EgtMsg(MSG_TOOLDBERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
         Return
      End If
-      Dim ToolDbWindow As New ToolDbWindowV(Application.Current.MainWindow, New ToolDbWindowVM(CurrentMachine.sMachDir, CurrentMachine.sMachIniFile, OmagOFFICEMap.refSceneHostVM.MainScene.GetCtx()))
-      ToolDbWindow.Height = 640
-      ToolDbWindow.Width = 1024
-      ToolDbWindow.ShowDialog()
+
+      Dim ToolDbWindowVM As New ToolDbWindowVM(CurrentMachine.sMachDir, CurrentMachine.sMachIniFile, OmagOFFICEMap.refSceneHostVM.MainScene.GetCtx(), "Stone")
+      Dim ToolDbWindowV As New ToolDbWindowV(Application.Current.MainWindow, ToolDbWindowVM)
+      If ToolDbWindowVM.MatType <> 0 Then
+         ToolDbWindowV.Height = 640
+         ToolDbWindowV.Width = 1024
+         ToolDbWindowV.ShowDialog()
+      Else
+         Exit Sub
+      End If

      If Not SetUpUtility.IsValidToolHeadExitInSetUp() Then
         SetUp_Background = Brushes.Red