Initial

EDOKA/Backup1/Utils/Globals.vb

@@ -0,0 +1,133 @@
+'*
+' 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
+
+
+
+    'EDOKA-Version
+    Public Version As String = "4.04"
+    Public Versionsdatum As String = "31. Oktober 2009"
+    Public Force_Exit As Boolean = False
+    'Datenbankvariablen
+    Public sConnectionString As String
+    Public Applikationsdaten As DataTable
+    Public AppldataRow As Integer
+    Public conn As New edokadb.clsConnectionProvider()
+    Public Mitarbeiter As New edokadb.clsMyMitarbeiter()
+    Public MyMsg As New EDOKA.MyMessage()
+    Public MyTxt As New EDOKA.MyText()
+    Public DivFnkt As New EDOKA.clsDivFnkt()
+    Public Archivfnkt As New EDOKA.clsarchivfnkt()
+    Public Spalten As New DataTable()
+    'Mandanten-Definitionen
+    Public MandantNr As Int32
+    Public MandantText As String
+    Public MitarbeiterNr As Long
+    Public Sprache As Integer
+    Public Words As New Collection()
+    Public Apphandle As Int32
+    Public bckdokument As Boolean
+    Public EinzelDokument As Boolean
+    Public StatusChanges_Dokumentid As String
+    Public StatusChanges_Status As String
+    Public DokumentID_New_Copy As String
+
+    Public CurrentMitarbeiterdata As New DataTable()
+    Public profilnr As Integer
+    Public TGNummer As String
+
+    Public general_dsbr As New DataSet()
+    Public general_ds As New DataSet()
+    Public Dokumentcoldindex_Changed As Boolean
+    Public dokumentcoldindex_status As String
+    Public dokumentid_changed As Boolean
+    Public Dokumentidalt As String
+    Public Ersetzte_Dokumente_Reaktivieren As Boolean
+
+    'Bedingte Retournierung
+    Public DokumentColdIndex_ChangedBR As Boolean
+    Public Dokumentcoldindex_statusbr As String
+    Public dokumentid_changedbr As Boolean
+    Public Dokumentidaltbr As String
+    Public ersetzte_dokumente_reaktivierenbr As Boolean
+    Public DokumentID_New_CopyBR As String
+
+
+    Public WinPos As New WindowPositions()
+    Public Vorlagendata As New DataTable()
+
+    ' Dokumentart
+    Public objTreeEntries As New edokadb.TreeEntries()
+    Public objTreeEntry As New edokadb.TreeEntry()
+    Public hasmessage As Integer
+
+    'Imagelisten
+    Public DokumentartenImages As New ImageList()
+
+    Public SelectedDokumentID As String
+
+    Public ColdMeldung As String
+    Public PerfMon As New clsPerformance()
+    Public DoLog As Boolean = False
+
+    Public stv As Integer
+    Public In_Bearbeitung As Boolean = False
+    Public Vorlagenfilter As Integer = 0
+    Public Save_Partnersuche As New DataTable()
+    Public show_releasenotes As Boolean = False
+    Public Bearbeitung_Problemdokumente As Boolean = False
+    Public Global_ForceExit As Boolean = False
+
+    Public EDOKAMAIN_Statusbar As StatusBar
+    Public EDOKAMAIN_WindowWidth As Integer
+    Public EDOKAMAIN_WindowHeight As Integer
+
+    Public ConnectionFileName As String = ""
+    Public g_bRun As Boolean        'Wird auf true gesetzt, wenn die Applikatin gestartet wird. Verhindert, dass zur Entwicklung der Code durchlaufen wird
+
+    Public HTMLHelp As New HHctrlapi()
+
+    ' EDEX_Dokumentpakete
+    Public Vorlagendata_Vollstaendig As New DataTable()
+    Public DokumentPaket As Boolean = False
+    Public Individuelles_Dokumentpaket As Boolean = False
+    Public DP_Collection As New Collection()
+
+    Public DokAnKundeVersant As Boolean = False
+	Public DokAnKundeVersantPruefen As Boolean = False
+
+	Public WordActive As Integer = 0
+	''Public WordHandle As Long
+
+    ' Avaloq Schnitstelle zu EDOKA
+    Public objAvaloqDokumentWerte As New AvaloqDokumentWerte()
+    Public objSpooler As frmAvaloqSpooler
+
+    Public CutOverDatum As Date
+    Public SpoolerDir As String
+    Public SpoolerTempDir As String
+    Public DeleteSpoolerFile As Integer
+    Public OutputDir_VorlagenExport As String
+    'Rel. 4.03
+
+
+#Region " Mehrfachdruck"
+
+    'Public fMehrfachdruck As New frmMehrfachdruck()
+    Public fMehrfachdruck As frmMehrfachdruck
+    Public iMerker As Integer = 0
+
+    Public _HashThreads As New Hashtable()
+    Public _HashDruckanzeige As New Hashtable()
+
+#End Region
+
+
+End Module