Initial

2022-12-25 10:09:49 +01:00
commit 406d053e79
3903 changed files with 2127541 additions and 0 deletions
--- a/EDOKA/Utils/clsPerformance.vb
+++ b/EDOKA/Utils/clsPerformance.vb
@@ -0,0 +1,86 @@
+Imports UtilityLibrary
+Imports System.IO
+Imports C1.Win.C1TrueDBGrid
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Imports System.ComponentModel
+Imports UtilityLibrary.Win32
+
+Public Class clsPerformance
+    Public Sub insert_entry(ByVal msg As String)
+        If Globals.DoLog = False Then Exit Sub
+        Try
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim i As Integer
+            Dim dtToReturn As DataTable = New DataTable()
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+            scmCmdToExecute.CommandText = "dbo.sp_performance"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@meldung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, msg))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@zeit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Now))
+                sdaAdapter.Fill(dtToReturn)
+            Catch ex As Exception
+                'MsgBox(ex.Message)
+                'Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
+            Finally
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        Catch
+        End Try
+
+    End Sub
+
+    Public Sub force_insert_entry(ByVal msg As String)
+        If Globals.Force_Watch_Message = False Then Exit Sub
+        Try
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim i As Integer
+            Dim dtToReturn As DataTable = New DataTable()
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+            scmCmdToExecute.CommandText = "dbo.sp_performance"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@meldung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, msg))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@zeit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Now))
+                sdaAdapter.Fill(dtToReturn)
+            Catch ex As Exception
+                '                MsgBox(ex.Message)
+                'Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
+            Finally
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        Catch
+        End Try
+
+    End Sub
+
+    Public Sub Insert_DocRestore(ByVal msg As String)
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Dim i As Integer
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        scmCmdToExecute.CommandText = "dbo.sp_dokumentrestore"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        scmCmdToExecute.Connection = conn.scoDBConnection
+        Try
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@meldung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, msg))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
+            sdaAdapter.Fill(dtToReturn)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+        End Try
+    End Sub
+End Class