diff --git a/DdfFile.vb b/DdfFile.vb index 2060925..4e06c27 100644 --- a/DdfFile.vb +++ b/DdfFile.vb @@ -63,7 +63,8 @@ Friend Module DdfFile DdfFileContent.Add("#EGTDOORCREATOR") Dim Config As String = IniFile.m_sDoorsDirPath Config = Path.GetFileName(Config) - DdfFileContent.Add("#Config: " & Config) + ' versione 2.7d1: non esiste un sottodirettorio di Doors allora non stampo il nome della configurazione + If Config <> "Doors" Then DdfFileContent.Add("#Config: " & Config) ' versione 2.6g1: salvo il nome del template da cui รจ genetato il file corrente If Not String.IsNullOrEmpty(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.OrigTemplate) Then DdfFileContent.Add("#OrigTemplate: " & Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.OrigTemplate) diff --git a/MainWindow/MainWindowModel.vb b/MainWindow/MainWindowModel.vb index 5d58b88..2f6b969 100644 --- a/MainWindow/MainWindowModel.vb +++ b/MainWindow/MainWindowModel.vb @@ -71,8 +71,8 @@ Friend Class MainWindowModel EgtSetLockId(sLockId) End If ' Recupero livello e opzioni della chiave - Dim bKey As Boolean = EgtGetKeyLevel(3279, 2703, 1, IniFile.m_nKeyLevel) And - EgtGetKeyOptions(3279, 2703, 1, IniFile.m_nKeyOptions) + Dim bKey As Boolean = EgtGetKeyLevel(3279, 2704, 1, IniFile.m_nKeyLevel) And + EgtGetKeyOptions(3279, 2704, 1, IniFile.m_nKeyOptions) ' Leggo e imposto livello utilizzatore IniFile.m_nUserLevel = Math.Min(IniFile.m_nKeyLevel, GetMainPrivateProfileInt(S_GENERAL, K_USERLEVEL, 1)) 'Inizializzazione generale di EgtInterface diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index cbd9fc3..dfd7016 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -72,5 +72,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + +