'*
' Modul Globals
'
' Dieses Modul beinhaltet Public Objekte und Variablen, welche während der gesamten
' Luafzeit von EDOKA benötigt werden
' 
' Autor: Stefan Hutter
' Datum: 2.12.2002
'*
Imports System.Reflection
Imports System.IO
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 CurrentMitarbeiterdata As New DataTable()

    Public profilnr As Integer
    Public TGNummer As String


    Public LogEntry As Log

    Public LogData As New DataTable
    Public Startzeit As Date
    Public Endzeit As Date

#End Region

    Public Function In_Runtime() As Boolean
        If Endzeit.ToString("t") < Startzeit.ToString("t") Then
            If Now.ToString("t") > Startzeit.ToString("t") Or Now.ToString("t") < Endzeit.ToString("t") Then Return True
        Else
            If Now.ToString("t") > Startzeit.ToString("t") And Now.ToString("t") < Endzeit.ToString("t") Then Return True
        End If
        Return True
        Return False
    End Function
Public Function ApplicationPath() As String
    'Return Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location)
    Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
End Function

#Region "Syslog"

Dim EVLog As New EventLog("Log_EDKB14")

Public PrintLogType As EventLogEntryType

Public Sub PrintLog(ByVal message As String, Optional ByVal eventmessage As EventLogEntryType = EventLogEntryType.Information)
    If Not EventLog.SourceExists("EDKB14") Then
        EventLog.CreateEventSource("EDKB14", "EDKB14 Log")
    End If
    EVLog.Source = "EDKB14 Log"
    EventLog.WriteEntry(EVLog.Source, message, eventmessage)
End Sub

#End Region

End Module