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.
135 lines
4.6 KiB
135 lines
4.6 KiB
'''<summary>Globale Variablen und FUnktionen</summary>
|
|
Module Globals
|
|
'''<summary>Datentabelle mit den EDOKA-Applikationsdaten</summary>
|
|
Public Applikationsdaten As DataTable
|
|
'''<summary>Datensatzzeiger in der Tabelle Applikationsdaten</summary>
|
|
Public AppldataRow As Integer
|
|
|
|
'''<summary>Verbindung zur Daten EDOKA</summary>
|
|
Public sConnectionString_edoka As String
|
|
'''<summary>Verbindung zur Daten EDOKA_Journale</summary>
|
|
Public sConnectionString_journale As String
|
|
'''<summary>Verbindung zur Daten EDOKA_Journale mit dem Mail-User</summary>
|
|
Public sConnectionString_journale_Mail As String
|
|
Public CurrentTS As String
|
|
Public BLScan As Boolean = False
|
|
Public NoIndexdata As Boolean = False
|
|
Public ImportPraefix As String = "EDKIMP"
|
|
Public ImportPraefix_Canon_Nr As Integer = 0
|
|
'Public Canon_Herkunft As String = "IRIS_FORMS"
|
|
Public Fehlermeldung As String = ""
|
|
Public Function Canon_Herkunft(Input As String) As Boolean
|
|
If Input = "IRIS_FORMS" Then
|
|
Return True
|
|
Exit Function
|
|
End If
|
|
If Input = "IRIS_FORMS_DMS" Then
|
|
Return True
|
|
Exit Function
|
|
End If
|
|
If Input = "IRIS_FORMS_EDK" Then
|
|
Return True
|
|
Exit Function
|
|
End If
|
|
If Input = "IRIS_FORMS_LSV" Then
|
|
Return True
|
|
Exit Function
|
|
End If
|
|
If Input = "IRIS_FORMS_UVM" Then
|
|
Return True
|
|
Exit Function
|
|
End If
|
|
Return False
|
|
End Function
|
|
|
|
'''<summary>Befehlszeilenargumente</summary>
|
|
Public args As String() = Environment.GetCommandLineArgs()
|
|
|
|
'''<summary>Connectionprovider für die Datenbank EDOKA</summary>
|
|
'''<seealso
|
|
'''cref="edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
|
Public conn_edoka As New edokadb.clsConnectionProvider()
|
|
'''<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
|
|
'''<seealso
|
|
'''cref="edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
|
Public conn_journale As New edokadb.clsConnectionProvider()
|
|
|
|
|
|
'''<summary>Connectionprovider für die Datenbank EDOKA_Journale</summary>
|
|
'''<seealso
|
|
'''cref="edokadb.clsConnectionProvider">edokadb.clsConnectionProvider</seealso>
|
|
Public conn_journale_Mail As New edokadb.clsConnectionProvider()
|
|
|
|
'''<summary>Instanz des Objektes DivFnkt</summary>
|
|
Public DivFnkt As New clsDivFnkt()
|
|
|
|
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 temp_indexdaten As DataTable
|
|
|
|
|
|
Public ofile As System.IO.File
|
|
Public oread As System.IO.StreamReader
|
|
|
|
'''<summary>Hält die Applikationsdaten für ein zu importierendes Dokumente
|
|
'''fest</summary>
|
|
Public ApplData As New DataTable()
|
|
|
|
'''<summary>Ausgabe eines Strings mit vorgestelltem TimeStamp</summary>
|
|
'''<param name="s"></param>
|
|
Public Sub PrintOut(ByVal s As String)
|
|
'Console.WriteLine(Format(Now, "yyyyMMddHHmmss") + ": " + s)
|
|
PrintLog(Format(Now, "yyyyMMddHHmmss") + ": " + s, EventLogEntryType.Information)
|
|
End Sub
|
|
|
|
Public Sub Printout(ByVal s As String, ByVal LogEntryType As EventLogEntryType)
|
|
PrintLog(Format(Now, "yyyyMMddHHmmss") + ": " + s, LogEntryType)
|
|
End Sub
|
|
|
|
Dim EVLog As New EventLog("Log_EDKB08")
|
|
|
|
'''<summary>Eintrag ins EventLog von EDKB08 schreiben</summary>
|
|
'''<param name="message"></param>
|
|
'''<param name="eventmessage"></param>
|
|
Public Sub PrintLog(ByVal message As String, Optional ByVal eventmessage As EventLogEntryType = EventLogEntryType.Information)
|
|
#If CONFIG = "Release" Then 'Release
|
|
If Not EventLog.SourceExists("EDKB08") Then
|
|
EventLog.CreateEventSource("EDKB08", "EDKB08 Log")
|
|
End If
|
|
EVLog.Source = "EDKB08 Log"
|
|
|
|
EventLog.WriteEntry(EVLog.Source, message, eventmessage)
|
|
#Else
|
|
Debug.Print(message)
|
|
|
|
|
|
|
|
#End If
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
'''<summary>Globaler Verweis zur Klasse CLSJournal</summary>
|
|
Public Journal As New clsJournal()
|
|
|
|
'''<summary>Daten für der Herkunftsapplikation</summary>
|
|
'''<remarks>Diese interne Tabelle enthält die Daten für die Herkunftsapplikation
|
|
'''einer Indexdatei</remarks>
|
|
Public Herkunftsapplikation As DataTable
|
|
|
|
'''<summary>Interne Variable zur Festhaltung von Fehlern</summary>
|
|
Public Fehler As Integer = 0
|
|
|
|
|
|
Public Mitarbeiternr As Integer = 0
|
|
|
|
|
|
|
|
|
|
End Module
|