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