Imports System.IO
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Reflection

Public Class clsDivFnkt

#Region "Deklarationen"
    Dim clsjournaleintrag As New edokaDB.clsJournaleintrag

    Public Enum Enum_InfoTyp
        Keine = 0
        Information = 1
        Warnung = 2
        Fehler = 3
    End Enum

#End Region

    Public Sub InsertJournale(ByVal Message As String, ByVal sTyp As Enum_InfoTyp)
        Try

            If sTyp <> Enum_InfoTyp.Keine Then
            End If
            clsjournaleintrag.iJournalnr = New SqlInt32(CType(-3, Int32))
            clsjournaleintrag.daDatumzeit = New SqlDateTime(CType(Now, DateTime))
            clsjournaleintrag.sEintrag = New SqlString(CType(Message, String))
            clsjournaleintrag.cpMainConnectionProvider = Globals.connJournale
            Console.WriteLine(Message)
            Globals.connJournale.OpenConnection()
            clsjournaleintrag.Insert()
            Globals.connJournale.CloseConnection(True)
        Catch ex As Exception
            LogEntry.Writelog(Log.Logtype.Debug, ex.Message)
        End Try

    End Sub

End Class