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.
90 lines
2.0 KiB
90 lines
2.0 KiB
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 |