Initial commit

Archiv/EDKB01/Backup/MyObjects/Globals.vb

@@ -0,0 +1,41 @@
+'*
+' 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
+'*
+Module Globals
+    'Datenbankvariablen
+    Public Applikationsdaten As DataTable
+    Public AppldataRow As Integer
+
+    Public sConnectionString_edoka As String
+    Public sConnectionString_journale As String
+    Public sConnectionString_ams As String
+    Public sConnectionString_ZV As String
+    Public sConnectionstring_UVM As String
+    Public sConnectionstring_BL 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 conn_uvm As New edokadb.clsConnectionProvider()
+    Public conn_zv As New edokadb.clsConnectionProvider
+    Public conn_bl As New edokadb.clsConnectionProvider
+
+    Public xFehler 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
+
+End Module