Initial commit

edkb04op/EDKB04OP/Globals.vb

@@ -0,0 +1,60 @@
+Imports System.Reflection
+Imports System.IO
+
+Module Globals
+    Public Applikationsdaten As DataTable
+    Public AppldataRow As Integer
+
+    Public sConnectionString_edoka As String
+    Public sConnectionString_journale As String
+    Public sConnectionString_tgdata As String
+
+    Public args As String() = Environment.GetCommandLineArgs()
+
+    Public Params As New ClsParameter()
+
+    Public conn_edoka As New edokadb.clsConnectionProvider()
+    Public conn_journale As New edokadb.clsConnectionProvider()
+    Public conn_tgdata 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 ofile As System.IO.File
+    Public oread As System.IO.StreamReader
+    'test
+
+    'NEU
+    Public appPath As String = Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+
+#Region "BMS - Normal"
+
+
+#If CONFIG = "Release" Then
+    Public m_log As bms.Logging
+
+#Else
+    Public m_log As log
+
+    Public Class log
+        Function log(ByVal msg As String, Optional type As Integer = 0)
+
+        End Function
+
+        Public Function start()
+
+        End Function
+
+        Public Function ende()
+
+        End Function
+    End Class
+
+#End If
+
+#End Region
+
+End Module