EgtCam :

- ora i codici chiave vanno impostati prima dell'inizializzazione generale.

MainForm.vb

@@ -219,6 +219,11 @@ Public Class MainForm
         End If
         ' Verifico indice di istanza
         ManageIstance()
+        ' Leggo e imposto chiave di protezione
+        Dim sLicFile As String = m_sConfigDir & "\" & LIC_FILE_NAME
+        Dim sKey As String = String.Empty
+        GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile)
+        EgtSetKey(sKey)
         ' Inizializzazione generale di EgtInterface
         m_nDebug = GetPrivateProfileInt(S_GENERAL, K_DEBUG, 0, m_sIniFile)
         Dim sLogFile As String = m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
@@ -232,11 +237,6 @@ Public Class MainForm
         If Not EgtLoadMessages(sMsgFilePath) Then
             EgtOutLog("Error in EgtLoadMessages")
         End If
-        ' Leggo e imposto chiave di protezione
-        Dim sLicFile As String = m_sConfigDir & "\" & LIC_FILE_NAME
-        Dim sKey As String = String.Empty
-        GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile)
-        EgtSetKey(sKey)
         ' Leggo e imposto livello utilizzatore
         m_nUserLevel = GetPrivateProfileInt(S_GENERAL, K_USERLEVEL, 1, m_sIniFile)
         ' imposto dir font Nfe e font default