42 lines
1.1 KiB
VB.net
42 lines
1.1 KiB
VB.net
Module Globals
|
|
|
|
|
|
#Region "Deklarationen"
|
|
Public Param As Parameters
|
|
Public DivFnkt As New clsDivFnkt
|
|
|
|
Public Applikationsdaten As DataTable
|
|
Public AppldataRow As Integer
|
|
|
|
|
|
Public sConnectionString As String
|
|
Public conn As New edokadb.clsConnectionProvider()
|
|
Public connJournale As New edokadb.clsConnectionProvider
|
|
|
|
Public Mitarbeiter As New edokadb.clsMyMitarbeiter()
|
|
Public CurrentMitarbeiterdata As New DataTable()
|
|
Public profilnr As Integer
|
|
Public TGNummer As String
|
|
|
|
Public objAvaloqDokumentWerte As New AvaloqDokumentWerte()
|
|
|
|
|
|
#End Region
|
|
#Region "Syslog"
|
|
|
|
Dim EVLog As New EventLog("Log_EDKB07")
|
|
|
|
Public PrintLogType As EventLogEntryType
|
|
|
|
Public Sub PrintLog(ByVal message As String, Optional ByVal eventmessage As EventLogEntryType = EventLogEntryType.Information)
|
|
If Not EventLog.SourceExists("EDKB12") Then
|
|
EventLog.CreateEventSource("EDKB12", "EDKB12 Log")
|
|
End If
|
|
EVLog.Source = "EDKB12 Log"
|
|
EventLog.WriteEntry(EVLog.Source, message, eventmessage)
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
End Module
|