Initial commit

Archiv/EDKB09 - Kopie_alt/Backup/utils/Globals.vb

@@ -0,0 +1,91 @@
+'*
+' 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
+    'Datenbankvariablen
+    Public Indextyp As Integer = 1
+    Public Applikationsdaten As DataTable
+    Public AppldataRow As Integer
+
+    Public sConnectionString_edoka As String
+    Public sConnectionString_journale As String
+    Public sConnectionString_ams As String
+
+    Public args As String() = Environment.GetCommandLineArgs()
+
+    Public conn_edoka As New edokadb.clsConnectionProvider()
+    Public conn_journale As New edokadb.clsConnectionProvider()
+
+    Public Fehler As Integer = 0
+    Public Warning As Integer = 0
+    Public DokumentID As String
+    Public ColdDokumentID As String
+    Public KeyNr As Long
+    Public Params As New ClsParameters()
+
+    Public oread As System.IO.StreamReader
+    Public oread1 As System.IO.StreamReader
+    Public Aufgehoben As Boolean
+    Public edokadokumentid As String
+    Public dokumenttyp As Integer
+    Public save_dokumentid As String
+
+    'Public ReservedWords As New Collection()
+
+#Region "BMS"
+
+    Public Enum Enum_BMS_Typen
+        Information = 1
+        Warnung = 2
+        Fehler = 3
+    End Enum
+
+    Public Enum BMS_Fnkt
+        BMSStart = 1
+        BMSMessage = 2
+        BMSStop = 3
+    End Enum
+
+    Public m_log As New bms.Logging(11, Common.Common.JobType.StartJob)
+
+    Public Sub BMS_Log(ByVal Fnkt As Integer, Optional ByVal Message As String = "", Optional ByVal MSGType As Enum_BMS_Typen = 1)
+        Select Case Fnkt
+            Case 1
+                '                Dim m_log As New bms.Logging(11, Common.Common.JobType.StartJob)
+                m_log.Start()
+            Case 2
+                m_log.Log(Message, MSGType)
+            Case 3
+                m_log.Ende()
+            Case Else
+                'BMS Else
+        End Select
+    End Sub
+
+    'Public Function BMS_Send_Mail(ByVal EMail As String, ByVal Betreff As String, ByVal Meldung As String)
+
+    'End Function
+
+#End Region
+
+
+
+
+    Public Function ApplicationPath() As String
+        'Return Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location)
+        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+    End Function
+
+
+
+End Module