'*
' 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.Reflection
Imports System.IO


Module Globals
    'Datenbankvariablen
    Public Indextyp As Integer = 1
    Public Applikationsdaten As DataTable
    Public AppldataRow As Integer = 0

    Public sConnectionString_edoka As String
    Public sConnectionString_journale As String
    Public sConnectionString_ams As String

    Public args As String() = Environment.GetCommandLineArgs()

    Public conn_edoka As New edokadb.clsConnectionProvider()
    Public conn_journale As New edokadb.clsConnectionProvider()

    Public Fehler 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 oread As System.IO.StreamReader
    Public oread1 As System.IO.StreamReader
    Public Aufgehoben As Boolean
    Public edokadokumentid As String
    Public dokumenttyp As Integer
    Public save_dokumentid As String

    'Public ReservedWords As New Collection()

#Region "BMS"
    Dim journallog As New clsLog

    Public Enum Enum_BMS_Typen
        Information = 1
        Warnung = 2
        Fehler = 3
    End Enum

    Public Enum BMS_Fnkt
        BMSStart = 1
        BMSMessage = 2
        BMSStop = 3
    End Enum

    Public m_log As New Object


    Public Sub BMS_Log(ByVal Fnkt As Integer, Optional ByVal Message As String = "", Optional ByVal MSGType As Enum_BMS_Typen = 1)
        Select Case Fnkt
            Case 1
                journallog.Startlog(Params.ApplicationID)
                journallog.InsertJournale("EDKB09 Start", clsLog.Enum_InfoTyp.Information)
            Case 2
                journallog.InsertJournale(Message, clsLog.Enum_InfoTyp.Information)
            Case 3
                journallog.InsertJournale("EDKB09 Ende", clsLog.Enum_InfoTyp.Information)
            Case Else
        End Select
    End Sub

    'Public Function BMS_Send_Mail(ByVal EMail As String, ByVal Betreff As String, ByVal Meldung As String)

    'End Function

#End Region




    Public Function ApplicationPath() As String
        'Return Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location)
        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
    End Function



End Module