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.
96 lines
3.5 KiB
96 lines
3.5 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
|
|
|
|
|
|
'''<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 Not EventLog.SourceExists("EDKB08") Then
|
|
EventLog.CreateEventSource("EDKB08", "EDKB08 Log")
|
|
End If
|
|
EVLog.Source = "EDKB08 Log"
|
|
EventLog.WriteEntry(EVLog.Source, message, eventmessage)
|
|
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
|