TestEIn :

- impostazione codici chiave con EgtSetKey fatta prima di EgtInit.
This commit is contained in:
Dario Sassi
2015-05-26 15:53:24 +00:00
parent b20f412f55
commit 81eeed933a
2 changed files with 7 additions and 7 deletions
+5 -5
View File
@@ -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
+2 -2
View File
@@ -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")>