Aggiornamento versione

MainWindow/MainWindowModel.vb

@@ -57,8 +57,8 @@ Friend Class MainWindowModel
       EgtUILib.GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile)
       EgtSetKey(sKey)
       ' Recupero livello e opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(3279, 2412, 1, IniFile.m_nKeyLevel) And
-                            EgtGetKeyOptions(3279, 2412, 1, IniFile.m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(3279, 2501, 1, IniFile.m_nKeyLevel) And
+                            EgtGetKeyOptions(3279, 2501, 1, IniFile.m_nKeyOptions)
       'Inizializzazione generale di EgtInterface
       m_nDebug = GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0)
       Dim sLogFile As String = IniFile.m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())

My Project/AssemblyInfo.vb

@@ -23,16 +23,16 @@ Imports System.Windows
 #Else
 #If DEBUG Then
 <Assembly: AssemblyTitle("EgtDOORCreator Debug 32 bit")> 
-<Assembly: AssemblyDescription("EgtDOORCreatorD32.exe")> 
+<Assembly: AssemblyDescription("EgtDOORCreatorD32.exe")>
 #Else
 <Assembly: AssemblyTitle("EgtDOORCreator Release 32 bit")> 
 <Assembly: AssemblyDescription("EgtDOORCreatorR32.exe")> 
 #End If
 #End If
 
-<Assembly: AssemblyCompany("EgalTech s.r.l.")> 
+<Assembly: AssemblyCompany("Egalware s.r.l.")>
 <Assembly: AssemblyProduct("EgtDOORCreator")>
-<Assembly: AssemblyCopyright("Copyright ©  2016-2022 by EgalTech s.r.l.")>
+<Assembly: AssemblyCopyright("Copyright ©  2016-2023 by Egalware s.r.l.")>
 <Assembly: AssemblyTrademark("")> 
 <Assembly: ComVisible(false)>
 

OptionsWindow/OptionModule.vb

@@ -1071,7 +1071,7 @@ Friend Module OptionModule
 
    Public Sub GetCurrentMachineInMTable()
       ' aggiorno il file Config.ini dell'EgtCAM5
-      EgtLuaExecFile(IniFile.m_sLuaLibsDir & "\ChangeConfig.lua")
+      EgtLuaExecFile(IniFile.m_sConfigDir & "\ChangeConfig.lua")
       ' assegno variabili
       Dim sDir As String = IniFile.m_sDoorsDirPath.Replace("\", "/")
       EgtLuaSetGlobStringVar("CCD.NewBaseDir", sDir)

OptionsWindow/OptionsV.xaml

@@ -286,7 +286,7 @@
                             <TextBlock Text="{Binding BaseDir}"  Grid.Row="1" Grid.Column="2"  Margin="2,10,5,5"
                                 Style="{StaticResource DoorParamsTxBl}"/>
                             <Button Content="{Binding ChangeConfigMsg}"  Grid.Row="1" Grid.Column="3" 
-                                Command="{Binding BrowseCommand}" Margin="5"
+                                Command="{Binding BrowseCommand}" Margin="5" MaxHeight="28"
                                 CommandParameter="ConfigDir"/>
                         </Grid>
                     </GroupBox>

OptionsWindow/OptionsViewModel.vb

@@ -122,7 +122,7 @@ Public Class OptionsVM
 
    Public ReadOnly Property EnableConfig As Boolean
       Get
-         If GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0) > 4 And File.Exists(IniFile.m_sLuaLibsDir & "\ChangeConfig.lua") Then
+         If GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0) > 4 And File.Exists(IniFile.m_sConfigDir & "\ChangeConfig.lua") Then
             Return True
          Else
             Return False
@@ -2068,7 +2068,7 @@ Public Class OptionsVM
 
       If m_IsChangedConfig AndAlso EnableConfig AndAlso m_OrigBaseDir <> IniFile.m_sDoorsDirPath AndAlso m_OrigMTable <> OptionModule.m_SelectedMTable.Name Then
          ' aggiorno il file Config.ini dell'EgtCAM5
-         EgtLuaExecFile(IniFile.m_sLuaLibsDir & "\ChangeConfig.lua")
+         EgtLuaExecFile(IniFile.m_sConfigDir & "\ChangeConfig.lua")
          ' assegno variabili
          EgtLuaSetGlobStringVar("CCD.NewBaseDir", IniFile.m_sDoorsDirPath)
          EgtLuaSetGlobStringVar("CCD.NewMTable", OptionModule.m_SelectedMTable.Name)
@@ -2082,6 +2082,18 @@ Public Class OptionsVM
          Map.refMainWindowVM.CloseApplication()
          Process.Start(Application.ResourceAssembly.Location)
          'End If
+      ElseIf m_IsChangedConfig AndAlso m_OrigMTable <> OptionModule.m_SelectedMTable.Name Then
+         ' aggiorno il file Config.ini dell'EgtCAM5
+         EgtLuaExecFile(IniFile.m_sConfigDir & "\ChangeConfig.lua")
+         ' assegno variabili
+         EgtLuaSetGlobStringVar("CCD.NewBaseDir", IniFile.m_sDoorsDirPath)
+         EgtLuaSetGlobStringVar("CCD.NewMTable", OptionModule.m_SelectedMTable.Name)
+         ' eseguo la funzione che esegue la scrittura delle variabili
+         EgtLuaCallFunction("CCD.ChangeConfigDirectory")
+         Dim sVal As String = ""
+         EgtLuaGetGlobStringVar("CCD.NewMachineName", sVal)
+         OptionModule.m_CurrentMachine = sVal
+         EgtLuaResetGlobVar("CCD")
       End If
 
    End Sub