Spostato DB Waterjet in EgtWPFLib5

2021-12-10 12:54:24 +01:00
parent 885495b13d
commit 114fc2dfa5
5 changed files with 1 additions and 1041 deletions
@@ -335,7 +335,7 @@ Public Class MyMachinePanelVM
   ''' Execute the Exec.  This method is invoked by the ExecCommand.
   ''' </summary>
   Public Sub WaterjetDb(ByVal param As Object)
-      Dim WaterjetDbWindow As New WaterjetDbWindowV(Application.Current.MainWindow, New WaterjetDbWindowVM)
+      Dim WaterjetDbWindow As New WaterjetDbWindowV(Application.Current.MainWindow, New WaterjetDbWindowVM(CurrentMachine.sMachDir))
      WaterjetDbWindow.Height = 546
      WaterjetDbWindow.Width = 846
      WaterjetDbWindow.ShowDialog()