You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
132 lines
4.0 KiB
132 lines
4.0 KiB
'*
|
|
' 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
|