Dario Sassi
401 lines
15 KiB
VB.net
401 lines
15 KiB
VB.net
Imports System.Threading
|
|
Imports System.Math
|
|
Imports System.IO
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
Imports EgtPHOTOLib
|
|
|
|
Public Class MainWindowM
|
|
|
|
#Region "FIELDS"
|
|
|
|
Friend m_SlabDB As Boolean = False
|
|
|
|
Private m_sDataRoot As String = String.Empty
|
|
Friend ReadOnly Property sDataRoot As String
|
|
Get
|
|
Return m_sDataRoot
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sConfigDir As String = String.Empty
|
|
Public ReadOnly Property sConfigDir As String
|
|
Get
|
|
Return m_sConfigDir
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nDebug As Integer = 0
|
|
|
|
Private m_objMutex As Mutex
|
|
|
|
Private m_bFirstInstance As Boolean = False
|
|
Friend ReadOnly Property bFirstInstance As Boolean
|
|
Get
|
|
Return m_bFirstInstance
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nInstance As Integer = 0
|
|
Friend ReadOnly Property nInstance As Integer
|
|
Get
|
|
Return m_nInstance
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nUserLevel As Integer = 1
|
|
Friend ReadOnly Property nUserLevel As Integer
|
|
Get
|
|
Return m_nUserLevel
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nKeyLevel As Integer = 0
|
|
Friend ReadOnly Property nKeyLevel As Integer
|
|
Get
|
|
Return m_nKeyLevel
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nKeyOptions As UInteger = 0
|
|
Friend ReadOnly Property nKeyOptions As UInteger
|
|
Get
|
|
Return m_nKeyOptions
|
|
End Get
|
|
End Property
|
|
|
|
Private m_bAutoNestOption As Boolean = False
|
|
Friend ReadOnly Property AutoNestOption As Boolean
|
|
Get
|
|
Return m_bAutoNestOption
|
|
End Get
|
|
End Property
|
|
|
|
Friend ReadOnly Property sVersion As String
|
|
Get
|
|
Return My.Application.Info.Version.Major.ToString() & "." &
|
|
My.Application.Info.Version.Minor.ToString() &
|
|
(ChrW(97 - 1 + My.Application.Info.Version.Build)).ToString() &
|
|
My.Application.Info.Version.Revision.ToString()
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sTempDir As String
|
|
Friend ReadOnly Property sTempDir As String
|
|
Get
|
|
Return m_sTempDir
|
|
End Get
|
|
End Property
|
|
|
|
'------------------INIZIO Gestione elenco direttori macchine ------------------
|
|
|
|
Private m_sMachinesRootList As New List(Of String)
|
|
Friend ReadOnly Property sMachinesRootList As List(Of String)
|
|
Get
|
|
Return m_sMachinesRootList
|
|
End Get
|
|
End Property
|
|
|
|
'------------------FINE Gestione elenco direttori macchine ------------------
|
|
|
|
Private m_sMachinesRoot As String
|
|
Friend Property sMachinesRoot As String
|
|
Get
|
|
Return m_sMachinesRoot
|
|
End Get
|
|
Set(value As String)
|
|
m_sMachinesRoot = value
|
|
End Set
|
|
End Property
|
|
Private m_sToolMakersDir As String
|
|
|
|
Friend ReadOnly Property sToolMakersDir As String
|
|
Get
|
|
Return m_sToolMakersDir
|
|
End Get
|
|
End Property
|
|
Private m_sResourcesRoot As String
|
|
Private m_sTablesRoot As String
|
|
Private m_sLogFile As String
|
|
Friend ReadOnly Property sLogFile As String
|
|
Get
|
|
Return m_sLogFile
|
|
End Get
|
|
End Property
|
|
|
|
Friend ReadOnly Property sCsvAutoDir As String
|
|
Get
|
|
Return m_sDataRoot & "\" & CSVAUTO_DIR
|
|
End Get
|
|
End Property
|
|
Friend ReadOnly Property sImgAutoDir As String
|
|
Get
|
|
Return m_sDataRoot & "\" & IMGAUTO_DIR
|
|
End Get
|
|
End Property
|
|
Friend ReadOnly Property sTrfAutoDir As String
|
|
Get
|
|
Return m_sDataRoot & "\" & TRFAUTO_DIR
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sPhotoDir As String
|
|
Friend ReadOnly Property sPhotoDir As String
|
|
Get
|
|
Return m_sPhotoDir
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sBackUpDir As String
|
|
Friend ReadOnly Property sBackUpDir As String
|
|
Get
|
|
Return m_sBackUpDir
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' FIELDS
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
InitializeEgtEnvironment()
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "METHODS"
|
|
|
|
Private Sub InitializeEgtEnvironment()
|
|
'' Abilito drag and drop
|
|
'Me.AllowDrop = True
|
|
' Impostazione path radice per i dati
|
|
m_sDataRoot = System.AppDomain.CurrentDomain.BaseDirectory
|
|
If EgtUILib.GetPrivateProfileString(S_DATA, K_DATAROOT, "", m_sDataRoot, m_sDataRoot & "\" & DAT_FILE_NAME) = 0 Then
|
|
m_sDataRoot = System.AppDomain.CurrentDomain.BaseDirectory
|
|
End If
|
|
' Impostazione direttorio di configurazione
|
|
m_sConfigDir = m_sDataRoot & "\" & CONF_DIR
|
|
' Impostazione direttorio per file temporanei
|
|
m_sTempDir = m_sDataRoot & "\" & TEMP_DIR
|
|
' Impostazione path Ini file
|
|
IniFile.m_sIniFile = m_sConfigDir & "\" & INI_FILE_NAME
|
|
' Impostazione direttorio per backup
|
|
m_sBackUpDir = m_sDataRoot & "\" & BACKUP_DIR
|
|
Directory.CreateDirectory(m_sBackUpDir)
|
|
' Impostazione path resources dir
|
|
m_sResourcesRoot = m_sDataRoot & "\" & RES_DIR
|
|
Dim nIndexDir As Integer = 1
|
|
Dim sCurrMachineDir As String = String.Empty
|
|
While GetMainPrivateProfileString(S_MACH, K_MACHINESDIR & nIndexDir.ToString, "", sCurrMachineDir) <> 0
|
|
If VerifyMachineIsUnique(sCurrMachineDir) Then
|
|
m_sMachinesRootList.Add(sCurrMachineDir)
|
|
End If
|
|
nIndexDir += 1
|
|
End While
|
|
' Impostazione direttorio (versioni precedenti 2.4i2) per le macchine
|
|
If GetMainPrivateProfileString(S_MACH, K_MACHINESDIR, "", m_sMachinesRoot) = 0 Then
|
|
m_sMachinesRoot = m_sDataRoot & "\" & MACHINES_DFL_DIR
|
|
End If
|
|
' Carico il direttorio nell'elenco dei direttori macchina
|
|
If Not String.IsNullOrEmpty(m_sMachinesRoot) Then m_sMachinesRootList.Add(m_sMachinesRoot)
|
|
' Impostazione direttorio per toolmakers
|
|
If GetMainPrivateProfileString(S_MACH, K_TOOLMAKERSDIR, "", m_sToolMakersDir) = 0 Then
|
|
m_sToolMakersDir = m_sDataRoot & "\" & TOOLMAKERS_DFL_DIR
|
|
End If
|
|
' Imposto direttorio per CamAuto
|
|
SetCamAutoDir(m_sDataRoot & "\" & CAMAUTO_DIR)
|
|
' Verifico indice di istanza
|
|
ManageInstance()
|
|
' Imposto tipo di chiave
|
|
EgtSetLockType(KEY_TYPE.HW)
|
|
' Leggo e imposto chiave di protezione
|
|
Dim sLicFileName As String = String.Empty
|
|
GetMainPrivateProfileString(S_GENERAL, K_LICENCE, LIC_FILE_NAME, sLicFileName)
|
|
Dim sLicFile As String = m_sConfigDir & "\" & sLicFileName
|
|
Dim sKey As String = String.Empty
|
|
EgtUILib.GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile)
|
|
EgtSetKey(sKey)
|
|
Dim sNestKey As String = ""
|
|
EgtUILib.GetPrivateProfileString( S_LICENCE, K_NESTKEY, "", sNestKey, sLicFile)
|
|
EgtSetNestKey( sNestKey)
|
|
Dim bNetHwKey As Boolean = ( GetMainPrivateProfileInt(S_GENERAL, K_NETKEY, 0) = 1)
|
|
EgtSetNetHwKey(bNetHwKey)
|
|
Dim sLockId As String = ""
|
|
EgtUILib.GetPrivateProfileString(S_LICENCE, K_LOCKID, "", sLockId, sLicFile)
|
|
If Not String.IsNullOrEmpty(sLockId) Then
|
|
EgtSetLockId(sLockId)
|
|
End If
|
|
' Verifico abilitazione nesting automatico
|
|
m_bAutoNestOption = Not String.IsNullOrWhiteSpace( sNestKey)
|
|
' Recupero livello e opzioni della chiave
|
|
Dim bKey As Boolean = EgtGetKeyLevel(9423, 2708, 1, m_nKeyLevel) And
|
|
EgtGetKeyOptions(9423, 2708, 1, m_nKeyOptions)
|
|
' Verifico abilitazione prodotto
|
|
Dim bProd As Boolean = GetKeyOption(KEY_OPT.OFFICE_BASE)
|
|
' Inizializzazione generale di EgtInterface
|
|
m_nDebug = GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0)
|
|
m_sLogFile = m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
|
|
Dim sLogMsg As String = "User " & Environment.MachineName & "\" & Environment.UserName & " (" & m_nInstance.ToString() & ")" & vbLf &
|
|
My.Application.Info.Title.ToString() & " ver. " &
|
|
My.Application.Info.Version.Major.ToString() &
|
|
"." & My.Application.Info.Version.Minor.ToString() &
|
|
(ChrW(97 - 1 + My.Application.Info.Version.Build)).ToString() &
|
|
My.Application.Info.Version.Revision.ToString()
|
|
EgtInit(m_nDebug, m_sLogFile, sLogMsg)
|
|
EgtSetTempDir(m_sTempDir)
|
|
EgtSetIniFile(IniFile.m_sIniFile)
|
|
' Leggo direttorio dei messaggi (se manca uso direttorio di configurazione)
|
|
Dim sMsgDir As String = String.Empty
|
|
If GetMainPrivateProfileString(S_GENERAL, K_MESSAGESDIR, "", sMsgDir) = 0 Then
|
|
sMsgDir = m_sConfigDir
|
|
End If
|
|
' Leggo lingua corrente
|
|
Dim sLanguage As String = String.Empty
|
|
GetMainPrivateProfileString(S_GENERAL, K_MESSAGES, "", sLanguage)
|
|
' Recupero nome file dei messaggi della lingua corrente
|
|
Dim sMsgName As String = "EgalTechIta.txt"
|
|
Dim nIndex As Integer = 1
|
|
While True
|
|
Dim ReadLanguage As Language = GetMainPrivateProfileLanguage(S_LANGUAGES, K_LANGUAGE & nIndex)
|
|
If IsNothing(ReadLanguage) Then Exit While
|
|
If String.Compare(ReadLanguage.Name, sLanguage, True) = 0 Then
|
|
sMsgName = ReadLanguage.FilePath
|
|
Exit While
|
|
End If
|
|
nIndex += 1
|
|
End While
|
|
' Leggo file messaggi
|
|
Dim sMsgFilePath As String = sMsgDir & "\" & sMsgName
|
|
If Not EgtLoadMessages(sMsgFilePath) Then
|
|
EgtOutLog("Error in EgtLoadMessages")
|
|
End If
|
|
' Leggo e imposto unità di misura per interfaccia utente
|
|
EgtSetUiUnits(GetMainPrivateProfileInt(S_GENERAL, K_MMUNITS, 1) <> 0)
|
|
' Leggo e imposto livello utilizzatore
|
|
m_nUserLevel = Math.Min(m_nKeyLevel, GetMainPrivateProfileInt(S_GENERAL, K_USERLEVEL, 1))
|
|
' Imposto dir font Nfe e font default
|
|
Dim sNfeDir As String = String.Empty
|
|
GetMainPrivateProfileString(S_GEOMDB, K_NFEFONTDIR, "", sNfeDir)
|
|
Dim sDefFont As String = String.Empty
|
|
GetMainPrivateProfileString(S_GEOMDB, K_DEFAULTFONT, "", sDefFont)
|
|
EgtSetFont(sNfeDir, sDefFont)
|
|
' imposto dir di default per libreria Lua e lancio libreria di base
|
|
Dim sLuaLibsDir As String = String.Empty
|
|
GetMainPrivateProfileString(S_LUA, K_LIBSDIR, "", sLuaLibsDir)
|
|
EgtSetLuaLibs(sLuaLibsDir)
|
|
Dim sLuaBaseLib As String = String.Empty
|
|
GetMainPrivateProfileString(S_LUA, K_BASELIB, "EgtBase", sLuaBaseLib)
|
|
EgtLuaRequire(sLuaBaseLib)
|
|
' abilitazione DB
|
|
m_SlabDB = (GetMainPrivateProfileInt(S_GENERAL, "SlabDB", 0) <> 0)
|
|
' Leggo nome cartella delle foto
|
|
GetMainPrivateProfileString(S_GENERAL, K_PHOTODIR, sDataRoot & "\Data", m_sPhotoDir)
|
|
' Creo connessione al Db
|
|
If m_SlabDB AndAlso Not ManageDb.ConnectToDb(m_sPhotoDir & "\" & DB_FILENAME) Then
|
|
EgtOutLog("Error connecting to DB")
|
|
MessageBox.Show(EgtMsg(92000 + 1), EgtMsg(MSG_EGTMSGBOX + 15), MessageBoxButton.OK, MessageBoxImage.Error)
|
|
m_SlabDB = False
|
|
End If
|
|
' Info su opzioni chiave
|
|
EgtOutLog("KeyOptions : " & bKey.ToString() & " " & m_nKeyOptions.ToString() & " " & bProd.ToString())
|
|
EgtPHOTOLib.MainData.SetConfigDir(m_sConfigDir)
|
|
EgtPHOTOLib.MainData.SetDebugLevel(m_nDebug)
|
|
EgtPHOTOLib.MainData.SetKeyLevel(m_nKeyLevel)
|
|
EgtPHOTOLib.MainData.SetKeyOptions(CInt(m_nKeyOptions))
|
|
EgtPHOTOLib.MainData.SetPhotoDir(m_sPhotoDir)
|
|
EgtPHOTOLib.MainData.SetBackUpDir(m_sBackUpDir)
|
|
EgtPHOTOLib.MainData.SetIsOmagOFFICE(True)
|
|
EgtPHOTOLib.MainData.SetUser(Environment.MachineName & "\" & Environment.UserName & " (" & nInstance.ToString() & ")")
|
|
Dim sIdKey As String = String.Empty
|
|
EgtGetKeyInfo(sIdKey)
|
|
EgtPHOTOLib.MainData.SetKey(sIdKey)
|
|
End Sub
|
|
|
|
' verifico che il nome da inserire non esista già in elenco
|
|
Private Function VerifyMachineIsUnique(sMachDir As String) As Boolean
|
|
For Each sDir As String In m_sMachinesRootList
|
|
If String.Compare( sDir.Trim().TrimEnd("\"c), sMachDir.Trim().TrimEnd("\"c), True) = 0 Then
|
|
Return False
|
|
End If
|
|
Next
|
|
Return True
|
|
End Function
|
|
|
|
Private Sub ManageInstance()
|
|
Dim bCreated As Boolean
|
|
Try
|
|
m_objMutex = New Mutex(False, "Global\OmagOFFICE", bCreated)
|
|
Catch
|
|
bCreated = False
|
|
End Try
|
|
m_bFirstInstance = bCreated
|
|
If bCreated Then
|
|
' Prima istanza
|
|
m_nInstance = 1
|
|
' Aggiorno stato istanze attive
|
|
WriteMainPrivateProfileString(S_GENERAL, K_INSTANCES, m_nInstance.ToString())
|
|
Else
|
|
' Leggo il massimo numero di istanze ammesse
|
|
Const MAX_INST As Integer = 32
|
|
Dim nMaxInst As Integer = GetMainPrivateProfileInt(S_GENERAL, K_MAXINST, 1)
|
|
nMaxInst = Max(1, Min(nMaxInst, MAX_INST))
|
|
' Cerco il primo indice di istanza libero
|
|
Dim nTmp As Integer = GetMainPrivateProfileInt(S_GENERAL, K_INSTANCES, 0)
|
|
m_nInstance = 1
|
|
Dim nMask As Integer = 1
|
|
While (nTmp And nMask) <> 0 And m_nInstance < MAX_INST
|
|
m_nInstance += 1
|
|
nMask *= 2
|
|
End While
|
|
' Se l'indice supera il massimo
|
|
If m_nInstance > nMaxInst Then
|
|
' porto in primo piano la prima istanza
|
|
Dim bFound As Boolean = False
|
|
' processi del programma a 32 bit
|
|
Dim localProc As Process() = Process.GetProcessesByName("OmagOFFICER32")
|
|
For Each p As Process In localProc
|
|
If p.Id <> Process.GetCurrentProcess().Id Then
|
|
bFound = True
|
|
ShowWindow(p.MainWindowHandle, 1)
|
|
Exit For
|
|
End If
|
|
Next
|
|
' se non trovati processi a 32 bit provo a 64 bit
|
|
If Not bFound Then
|
|
localProc = Process.GetProcessesByName("OmagOFFICER64")
|
|
For Each p As Process In localProc
|
|
If p.Id <> Process.GetCurrentProcess().Id Then
|
|
bFound = True
|
|
ShowWindow(p.MainWindowHandle, SW.RESTORE)
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
' esco dal programma
|
|
End
|
|
End If
|
|
' Aggiorno stato istanze attive
|
|
nTmp += (1 << (m_nInstance - 1))
|
|
WriteMainPrivateProfileString(S_GENERAL, K_INSTANCES, nTmp.ToString())
|
|
End If
|
|
End Sub
|
|
|
|
Friend Function GetKeyOption(nKeyOpt As KEY_OPT) As Boolean
|
|
Return ((m_nKeyOptions And nKeyOpt) <> 0)
|
|
End Function
|
|
|
|
Friend Sub Close()
|
|
' Terminazione generale di EgtInterface
|
|
EgtExit()
|
|
' Rilascio mutex
|
|
If Not IsNothing(m_objMutex) Then m_objMutex.Close()
|
|
' Aggiorno istanze usate
|
|
Dim nTmp As Integer = GetMainPrivateProfileInt(S_GENERAL, K_INSTANCES, 0)
|
|
nTmp -= (1 << (m_nInstance - 1))
|
|
WriteMainPrivateProfileString(S_GENERAL, K_INSTANCES, nTmp.ToString())
|
|
End Sub
|
|
|
|
#End Region ' METHODS
|
|
|
|
End Class
|