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.
93 lines
2.5 KiB
93 lines
2.5 KiB
'*
|
|
' 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
|