EDOKA_Client/EDOKA/Utils/Globals.vb

'*
' 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.Runtime.Remoting.Metadata.W3cXsd2001

Module Globals
    '20201022 



    Public WithEvents Generic_Event_Handler As New Generic_Event_Handler
    'EDOKA-Version
    Public Version As String = "5.6"
    Public Versionsdatum As String = "21.03.2022"
    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
    Public Messagecount As Integer = 0

    '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

    'Office_2010
    Public Office_2010_Standard_Dokumentviewer As Boolean
    Public Office_2010_Word_Autoexec As Boolean
    Public Office_2010_Word_Start_Delay As Integer
    Public Office_2010_DocView_Nativ As Boolean
    Public Office_2010_Always_New_Word As Boolean
    Public Office_2010_Always_New_Excel As Boolean

    Public TempParent As Object = Nothing

    Public Dokument_Importfilename As String = ""

    Public Reset_Printer_Duplex_Settings As Integer = 0
    Public Duplexmode As String

    '20200901
    Public wait_after_searchlist As Integer = 0
    Public try_count_search As Integer = 0
    Public force_not_found As Boolean = False
    Public force_not_found_count As Integer = 0
    Public force_not_found_counter As Integer = 0
    Public Force_Watch_Message As Boolean = False
    Public UseOlibFile As Boolean = False
    Public ProblemDokumentZwingend As Boolean = False
    Public Wordlib_Sleep As Integer = 400
    Public Wordlib_Sleep_Savedata As Integer = 600
    Public Check_Doc_Timer As Integer = 1000
    Public NewFileWacher As New NewFileCheck
#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

#Region "Office 2016"
    Public Office2010WatchFIles As New DataTable
    Public UseOffice2016 As Boolean = False
    Public Office2016Debug As Boolean = False
    Public PDFWaitTime As Integer = 600
#End Region

    Public Printersettings As New clsprinter
    Public Connection_Overwritten As Boolean = False


End Module