TestEIn :
- impostazione codici chiave con EgtSetKey fatta prima di EgtInit.
This commit is contained in:
@@ -88,6 +88,11 @@ Public Class Form1
|
||||
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())
|
||||
@@ -101,11 +106,6 @@ Public Class Form1
|
||||
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
|
||||
|
||||
@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
|
||||
' utilizzando l'asterisco (*) come descritto di seguito:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.6.5.4")>
|
||||
<Assembly: AssemblyFileVersion("1.6.5.4")>
|
||||
<Assembly: AssemblyVersion("1.6.5.5")>
|
||||
<Assembly: AssemblyFileVersion("1.6.5.5")>
|
||||
|
||||
Reference in New Issue
Block a user