Initial commit

Archiv/EDKB02 - Kopie/MyObjects/Globals.vb

@@ -0,0 +1,51 @@
+'*
+' 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 conn_ams 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 ofile As System.IO.File
+    Public oread As System.IO.StreamReader
+    Public Aufgehoben As Boolean
+    Public edokadokumentid As String
+    Public dokumenttyp As Integer
+    Public save_dokumentid As String
+
+    Public ArchivierteDokumente As Integer = 0
+
+
+    Public Function ApplicationPath() As String
+        'Return Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location)
+        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+    End Function
+
+End Module