Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes

Public Class clsLog
    Dim m_journalid As Long
    Dim m_applikationid As Long

    Dim clsapplikation As New edokadb.clsApplikation()
    Dim clsjournal As New edokadb.clsJournal()
    Dim clsjournaleintrag As New edokadb.clsJournaleintrag()

    Public Sub Startlog(ByVal ApplicationID As Integer)
        clsapplikation.iApplikationnr = New SqlInt32(CType(ApplicationID, Int32))
        clsapplikation.cpMainConnectionProvider = conn_journale
        clsapplikation.SelectOne()
        Me.m_applikationid = clsapplikation.iApplikationnr.Value

        clsjournal.daStart = New SqlDateTime(CType(Now, DateTime))
        clsjournal.iApplikationnr = New SqlInt32(CType(Me.m_applikationid, Int32))
        clsjournal.bFehlerhaft = New SqlBoolean(CType(False, Boolean))
        clsjournal.sFehlerbeschreibung = New SqlString(CType("", String))
        clsjournal.cpMainConnectionProvider = conn_journale
        conn_journale.OpenConnection()
        clsjournal.Insert()
        Me.m_journalid = clsjournal.iJournalnr.Value
        conn_journale.CloseConnection(True)
    End Sub

    Public Sub InsertJournale(ByVal Message As String)
        clsjournaleintrag.iJournalnr = New SqlInt32(CType(Me.m_journalid, Int32))
        clsjournaleintrag.daDatumzeit = New SqlDateTime(CType(Now, DateTime))
        clsjournaleintrag.sEintrag = New SqlString(CType(Message, String))
        clsjournaleintrag.cpMainConnectionProvider = conn_journale
        Console.WriteLine(Message)
        conn_journale.OpenConnection()
        clsjournaleintrag.Insert()
        conn_journale.CloseConnection(True)
    End Sub

    Public Sub StopLog(ByVal applicationid As Integer)
        clsapplikation.iApplikationnr = New SqlInt32(CType(applicationid, Int32))
        clsapplikation.cpMainConnectionProvider = conn_journale
        clsapplikation.SelectOne()
        clsapplikation.daLastrun = New SqlDateTime(CType(Now, DateTime))
        conn_journale.OpenConnection()
        clsapplikation.Update()
        conn_journale.CloseConnection(True)
    End Sub

End Class