Initial commit

2020-10-21 10:44:38 +02:00
commit 039adbbadf
1125 changed files with 854026 additions and 0 deletions
--- a/.svn/pristine/5c/5c398ba85111d8204aa9385b9e015c180b05d351.svn-base
+++ b/.svn/pristine/5c/5c398ba85111d8204aa9385b9e015c180b05d351.svn-base
--- a/.svn/pristine/5c/5c7241beffdb614a9bf93b35b9af8756e382cc18.svn-base
+++ b/.svn/pristine/5c/5c7241beffdb614a9bf93b35b9af8756e382cc18.svn-base
@@ -0,0 +1,390 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace DB
+	Public Class clsPruefSchrittHistory
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_bAktiv As SqlBoolean
+		Private 		m_daMutiert_am, m_daEintragdatum, m_daErstellt_am As SqlDateTime
+		Private 		m_iPruefSchrittHistoryNr, m_iPruefschrittNr, m_iMutierer As SqlInt32
+		Private 		m_sBeschreibung As SqlString
+
+#End Region
+
+
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittHistory_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefSchrittHistoryNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefSchrittHistoryNr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittNr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daEintragdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daEintragdatum))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_PruefSchrittHistory_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsPruefSchrittHistory::Insert::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittHistory_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefSchrittHistoryNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefSchrittHistoryNr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittNr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daEintragdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daEintragdatum))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_PruefSchrittHistory_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsPruefSchrittHistory::Update::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		Overrides Public Function Delete() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittHistory_Delete]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefSchrittHistoryNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefSchrittHistoryNr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_PruefSchrittHistory_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsPruefSchrittHistory::Delete::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittHistory_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("PruefSchrittHistory")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iPruefSchrittHistoryNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefSchrittHistoryNr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_PruefSchrittHistory_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				If dtToReturn.Rows.Count > 0 Then
+					m_iPruefSchrittHistoryNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefSchrittHistoryNr"), Integer))
+					If dtToReturn.Rows(0)("PruefschrittNr") Is System.DBNull.Value Then
+						m_iPruefschrittNr = SqlInt32.Null
+					Else
+						m_iPruefschrittNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefschrittNr"), Integer))
+					End If
+					If dtToReturn.Rows(0)("Eintragdatum") Is System.DBNull.Value Then
+						m_daEintragdatum = SqlDateTime.Null
+					Else
+						m_daEintragdatum = New SqlDateTime(CType(dtToReturn.Rows(0)("Eintragdatum"), Date))
+					End If
+					If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
+						m_sBeschreibung = SqlString.Null
+					Else
+						m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
+					End If
+					If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
+						m_bAktiv = SqlBoolean.Null
+					Else
+						m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
+					End If
+					If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
+						m_daErstellt_am = SqlDateTime.Null
+					Else
+						m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
+					End If
+					If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
+						m_daMutiert_am = SqlDateTime.Null
+					Else
+						m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
+					End If
+					If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
+						m_iMutierer = SqlInt32.Null
+					Else
+						m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
+					End If
+				End If
+				Return dtToReturn
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsPruefSchrittHistory::SelectOne::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+				sdaAdapter.Dispose()
+			End Try
+		End Function
+
+
+		Overrides Public Function SelectAll() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittHistory_SelectAll]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("PruefSchrittHistory")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_PruefSchrittHistory_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return dtToReturn
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsPruefSchrittHistory::SelectAll::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+				sdaAdapter.Dispose()
+			End Try
+		End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iPruefSchrittHistoryNr]() As SqlInt32
+			Get
+				Return m_iPruefSchrittHistoryNr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iPruefSchrittHistoryNrTmp As SqlInt32 = Value
+				If iPruefSchrittHistoryNrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iPruefSchrittHistoryNr", "iPruefSchrittHistoryNr can't be NULL")
+				End If
+				m_iPruefSchrittHistoryNr = Value
+			End Set
+		End Property
+
+
+		Public Property [iPruefschrittNr]() As SqlInt32
+			Get
+				Return m_iPruefschrittNr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iPruefschrittNr = Value
+			End Set
+		End Property
+
+
+		Public Property [daEintragdatum]() As SqlDateTime
+			Get
+				Return m_daEintragdatum
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daEintragdatum = Value
+			End Set
+		End Property
+
+
+		Public Property [sBeschreibung]() As SqlString
+			Get
+				Return m_sBeschreibung
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sBeschreibung = Value
+			End Set
+		End Property
+
+
+		Public Property [bAktiv]() As SqlBoolean
+			Get
+				Return m_bAktiv
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAktiv = Value
+			End Set
+		End Property
+
+
+		Public Property [daErstellt_am]() As SqlDateTime
+			Get
+				Return m_daErstellt_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daErstellt_am = Value
+			End Set
+		End Property
+
+
+		Public Property [daMutiert_am]() As SqlDateTime
+			Get
+				Return m_daMutiert_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daMutiert_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iMutierer]() As SqlInt32
+			Get
+				Return m_iMutierer
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMutierer = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace
--- a/.svn/pristine/5c/5c8e842cfc8372c5d7a8074877c337bf93a7ffb6.svn-base
+++ b/.svn/pristine/5c/5c8e842cfc8372c5d7a8074877c337bf93a7ffb6.svn-base
@@ -0,0 +1,39 @@
+Public Class clsStatus
+    Dim stammdaten As New DB.clsStammdaten
+    Dim Status As New DataTable
+
+    Sub New()
+        MyBase.New
+        Status = stammdaten.Get_Stammdaten("PruefSchrittStatus", "Beschreibung")
+    End Sub
+
+    Public Function Get_Mögliche_Status(ByVal aktuellerStatus As Integer, ByRef cbbox As ComboBox) As DataTable
+        Dim dt As New DataTable
+        dt = Status.Copy
+        dt.Rows.Clear()
+
+        Select Case aktuellerStatus
+            Case 1, 2
+                For Each r As DataRow In Status.Rows
+                    If r.Item(0) = 1 Then addrow(dt, r)
+                    If r.Item(0) = 2 Then addrow(dt, r)
+                    If r.Item(0) = 3 Then addrow(dt, r)
+                Next
+
+        End Select
+        cbbox.DataSource = Nothing
+        cbbox.DataSource = dt
+        cbbox.DisplayMember = "Bezeichnung"
+        cbbox.ValueMember = "pruefschrittstatusnr"
+        cbbox.SelectedValue = aktuellerStatus
+    End Function
+
+    Sub addrow(ByRef dt As DataTable, dr As DataRow)
+        Dim r As DataRow = dt.NewRow
+        For Each c As DataColumn In dt.Columns
+            r.Item(c.ColumnName) = dr.Item(c.ColumnName)
+        Next
+        dt.Rows.Add(r)
+    End Sub
+
+End Class