TestEIn 1.6b4 :

- gestione chiave licenza con file separato .lic.

Form1.vb

@@ -67,10 +67,10 @@ Public Class Form1
       ' Verifico indice di istanza
       ManageIstance()
       ' Inizializzazione generale di EgtInterface
-      Dim sIniFile As String = m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
+      Dim sLogFile As String = m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
       Dim sLogMsg As String = "User " & SystemInformation.UserName & "\" & SystemInformation.ComputerName & " (" & GetInstance() & ")" & vbLf &
                               My.Application.Info.Description.ToString() & " ver. " & My.Application.Info.Version.ToString()
-      EgtInit(0, sIniFile, sLogMsg)
+      EgtInit(0, sLogFile, sLogMsg)
       ' Leggo file messaggi
       Dim sMsgFile As String = String.Empty
       GetPrivateProfileString(S_GENERAL, K_MESSAGES, "", sMsgFile, m_sIniFile)
@@ -78,9 +78,10 @@ Public Class Form1
       If Not EgtLoadMessages(sMsgFilePath) Then
          EgtOutLog("Error in EgtLoadMessages")
       End If
-      ' Imposto chiave di protezione
+      ' Leggo e imposto chiave di protezione
+      Dim sLicFile As String = m_sConfigDir & "\" & LIC_FILE_NAME
       Dim sKey As String = String.Empty
-      GetPrivateProfileString(S_GENERAL, K_KEY, "", sKey, m_sIniFile)
+      GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile)
       EgtSetKey(sKey)
       ' imposto dir font Nfe e font default
       Dim sNfeDir As String = String.Empty