Initial commit

EDKB14WS/Backup/EDKB14WS/Klassen/DivFrnkt.vb

@@ -0,0 +1,41 @@
+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
+
+