'* ' 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.01" Public Versionsdatum As String = "06. August 2008" 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 #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