Initial commit

EDKB07WS/Backup1/clsLog.vb

@@ -0,0 +1,106 @@
+Imports System
+Imports System.Configuration
+Imports System.Data
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+Imports System.IO
+Imports System.ComponentModel
+
+Public Class clsLog
+
+#Region " Deklarationen"
+
+    '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
+
+    'BUD - 12.10.2006 - Log mit BMS ergänzt
+    Public Enum Enum_InfoTyp
+        Keine = 0
+        Information = 1
+        Warnung = 2
+        Fehler = 3
+    End Enum
+
+#End Region
+
+    Public Sub Startlog(ByVal ApplicationID As Integer)
+        Try
+            'clsapplikation.iApplikationnr = New SqlInt32(CType(ApplicationID, Int32))
+            'clsapplikation.cpMainConnectionProvider = conn_journale
+            'clsapplikation.SelectOne()
+            Me.m_applikationid = ApplicationID
+
+            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()
+            Globals.m_journalid = clsjournal.iJournalnr.Value
+            conn_journale.CloseConnection(True)
+        Catch ex As Exception
+            Globals.PrintLog("Journalzugriff:" + ex.Message)
+            m_log.Log("clsLog:Startlog:" + ex.Message + ex.StackTrace, Common.Common.JournalEntryType.Warning)
+        End Try
+    End Sub
+
+    Public Sub InsertJournale(ByVal Message As String, ByVal sTyp As Enum_InfoTyp)
+        If sTyp <> Enum_InfoTyp.Keine Then
+            m_log.Log(Message, sTyp)
+        End If
+        clsjournaleintrag.iJournalnr = New SqlInt32(CType(Globals.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 Function insert_journaldatei(ByVal dateiname As String, ByVal physicalfile As String) As Boolean
+        Dim Connection As New SqlConnection
+        Dim DA As New SqlDataAdapter("select * from journaldatei where journaldateinr > 99999999", Globals.sConnectionString_journale)
+        Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
+        Dim ds As New DataSet
+        Try
+            Dim fs As New FileStream(physicalfile, FileMode.OpenOrCreate, FileAccess.Read)
+            Dim mydata(fs.Length) As Byte
+            fs.Read(mydata, 0, fs.Length)
+            fs.Close()
+            Try
+                Connection.ConnectionString = Globals.sConnectionString
+                Connection.Open()
+                DA.Fill(ds, "docs")
+                Dim myRow As DataRow
+                myRow = ds.Tables(0).NewRow
+                myRow.Item(1) = Globals.m_journalid
+                myRow.Item(2) = dateiname
+                myRow.Item(3) = mydata
+                myRow.Item(4) = physicalfile
+                ds.Tables(0).Rows.Add(myRow)
+                DA.Update(ds, "docs")
+            Catch ex As Exception
+                m_log.Log("clsLog:insert_journaldatei:1:" + ex.Message + ex.StackTrace, Common.Common.JournalEntryType.Warning)
+                Return False
+            End Try
+            fs = Nothing
+            cb = Nothing
+            ds = Nothing
+            DA = Nothing
+
+            Connection.Close()
+            Connection = Nothing
+        Catch ex As Exception
+            m_log.Log("clsLog:insert_journaldatei:2:" + ex.Message + ex.StackTrace, Common.Common.JournalEntryType.Warning)
+        End Try
+        Return True
+    End Function
+
+
+End Class