Initial

2022-12-25 10:09:49 +01:00
commit 406d053e79
3903 changed files with 2127541 additions and 0 deletions
--- a/EDOKA/Backup/DB/MyDBObjects/clsMyPartner.vb
+++ b/EDOKA/Backup/DB/MyDBObjects/clsMyPartner.vb
@@ -0,0 +1,174 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+    Public Class clsMyPartner
+        Public Function search_partner(ByVal query As String, ByVal anzahl As String, ByVal fnkt As Integer) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_search]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, anzahl))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function search_doppelte_partner(ByVal query As String, ByVal table As String, ByVal fnkt As Integer) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_search]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 4))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        Public Function Partner_Detail(ByVal nrpar00 As String) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_detail]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_detail::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Partner_VV(ByVal nrpar00 As String) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_vv]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Partner_Gebdat(ByVal nrpar00 As String) As String
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_gebdat]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@gebdat", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+
+                Return scmCmdToExecute.Parameters("@gebdat").Value
+            Catch ex As Exception
+                '   MsgBox(ex.Message)
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                '  Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
+                Return ""
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Partner_Betreuer(ByVal nrpar00 As String) As String
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_betreuer]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@betreuer", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return scmCmdToExecute.Parameters("@betreuer").Value
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
+                Return ""
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+                dtToReturn.Dispose()
+            End Try
+
+        End Function
+
+
+    End Class
+End Namespace