Imports System.IO
Imports System.Reflection
'''<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
    Public appPath As String = Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"

    '''<summary>Verbindung zur Daten EDOKA</summary>
    Public sConnectionString_edoka As String
    '''<summary>Verbindung zur Daten EDOKA_Journale</summary>

    Public MailBody 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


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

    End Sub




End Module