Imports System.Reflection
Imports System.IO

#If CONFIG = "Debug" Then
Imports System.Diagnostics
#End If

Module Globals
    Public Applikationsdaten As DataTable
    Public AppldataRow As Integer

    Public sConnectionString_edoka As String
    Public sConnectionString_journale As String
    Public sConnectionString_tgdata As String

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

    Public Params As New ClsParameter()

    Public conn_edoka As New edokadb.clsConnectionProvider()
    Public conn_journale As New edokadb.clsConnectionProvider()
    Public conn_tgdata 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 ofile As System.IO.File
    Public oread As System.IO.StreamReader
    'test

    'NEU
    Public appPath As String = Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"

    Public archiveFilename As String = ""
    Public ReadOnly Property LogId As String
        Get
            Dim ret As String = ""
            If archiveFilename <> "" Then
                ret = " [" & archiveFilename & "]"
            End If
            Return ret
        End Get
    End Property

#Region "BMS - Normal"

    Public Class LogAdapter
        Sub log(ByVal msg As String, Optional type As Integer = 0)
            m_logOld.Log(msg & LogId, type)
        End Sub

        Public Sub start()
            m_logOld.Start()
        End Sub

        Public Sub ende()
            m_logOld.Ende()
        End Sub

    End Class

    Public m_log As LogAdapter

#If CONFIG = "Release" Then
    Public m_logOld As bms.Logging
#Else
    Public m_logOld As log

    Public Class log
        Sub log(ByVal msg As String, Optional type As Integer = 0)
            Debug.Print("{0}: {1}", type, msg)
        End Sub

        Public Sub start()

        End Sub

        Public Sub ende()

        End Sub
    End Class

#End If

#End Region

End Module