Initial commit

edkb12/edkb12 V14/Backup/EDKB12WS/Globals.vb

@@ -0,0 +1,41 @@
+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