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.
70 lines
1.9 KiB
70 lines
1.9 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
|
|
|
|
#Region "Deklarationen"
|
|
Public Param As Parameters
|
|
Public DivFnkt As New clsDivFnkt
|
|
|
|
Public Applikationsdaten As DataTable
|
|
Public AppldataRow As Integer
|
|
|
|
|
|
Public sConnectionString As String
|
|
Public conn As New edokadb.clsConnectionProvider()
|
|
Public connJournale As New edokadb.clsConnectionProvider
|
|
|
|
Public CurrentMitarbeiterdata As New DataTable()
|
|
|
|
Public profilnr As Integer
|
|
Public TGNummer As String
|
|
|
|
|
|
Public LogEntry As Log
|
|
|
|
Public LogData As New DataTable
|
|
Public Startzeit As Date
|
|
Public Endzeit As Date
|
|
|
|
#End Region
|
|
|
|
Public Function In_Runtime() As Boolean
|
|
If Endzeit.ToString("t") < Startzeit.ToString("t") Then
|
|
If Now.ToString("t") > Startzeit.ToString("t") Or Now.ToString("t") < Endzeit.ToString("t") Then Return True
|
|
Else
|
|
If Now.ToString("t") > Startzeit.ToString("t") And Now.ToString("t") < Endzeit.ToString("t") Then Return True
|
|
End If
|
|
Return True
|
|
Return False
|
|
End Function
|
|
Public Function ApplicationPath() As String
|
|
'Return Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location)
|
|
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
|
|
End Function
|
|
|
|
#Region "Syslog"
|
|
|
|
Dim EVLog As New EventLog("Log_EDKB14")
|
|
|
|
Public PrintLogType As EventLogEntryType
|
|
|
|
Public Sub PrintLog(ByVal message As String, Optional ByVal eventmessage As EventLogEntryType = EventLogEntryType.Information)
|
|
If Not EventLog.SourceExists("EDKB14") Then
|
|
EventLog.CreateEventSource("EDKB14", "EDKB14 Log")
|
|
End If
|
|
EVLog.Source = "EDKB14 Log"
|
|
EventLog.WriteEntry(EVLog.Source, message, eventmessage)
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
End Module |