Initial commit

Archiv/EDKB14WS - Kopie/Backup/EDKB14WS/Globals.vb

@@ -0,0 +1,70 @@
+'*
+' 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