Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient

Namespace DB
    Public Class clsDefinition_Pruefplan
        Inherits clsDBInteractionBase

#Region " Class Member Declarations "

        Private m_bAktiv As SqlBoolean
        Private m_daErstellt_am, m_daGueltig_Bis, m_daMutiert_am As SqlDateTime
        Private m_iMutierer, m_iDefinitionNr, m_iPruefplanNr, m_iDefinition_PruefplanNr As SqlInt32

#End Region


        Public Sub New()
            ' // Nothing for now.
        End Sub


        Public Overrides Function Insert() As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.[pr_Definition_Pruefplan_Insert]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure

            ' // Use base class' connection object
            scmCmdToExecute.Connection = m_scoMainConnection

            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinitionNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDefinitionNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefplanNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_Bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_Bis))
                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("@iDefinition_PruefplanNr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iDefinition_PruefplanNr))
                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_iDefinition_PruefplanNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iDefinition_PruefplanNr").Value, SqlInt32))
                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_Definition_Pruefplan_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("clsDefinition_Pruefplan::Insert::Error occured.", ex)
            Finally
                If m_bMainConnectionIsCreatedLocal Then
                    ' // Close connection.
                    m_scoMainConnection.Close()
                End If
                scmCmdToExecute.Dispose()
            End Try
        End Function


        Public Overrides Function Update() As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.[pr_Definition_Pruefplan_Update]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure

            ' // Use base class' connection object
            scmCmdToExecute.Connection = m_scoMainConnection

            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinition_PruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDefinition_PruefplanNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinitionNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDefinitionNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefplanNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_Bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_Bis))
                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_Definition_Pruefplan_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("clsDefinition_Pruefplan::Update::Error occured.", ex)
            Finally
                If m_bMainConnectionIsCreatedLocal Then
                    ' // Close connection.
                    m_scoMainConnection.Close()
                End If
                scmCmdToExecute.Dispose()
            End Try
        End Function


        Public Overrides Function Delete() As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.[pr_Definition_Pruefplan_Delete]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure

            ' // Use base class' connection object
            scmCmdToExecute.Connection = m_scoMainConnection

            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinition_PruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDefinition_PruefplanNr))
                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_Definition_Pruefplan_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("clsDefinition_Pruefplan::Delete::Error occured.", ex)
            Finally
                If m_bMainConnectionIsCreatedLocal Then
                    ' // Close connection.
                    m_scoMainConnection.Close()
                End If
                scmCmdToExecute.Dispose()
            End Try
        End Function


        Public Overrides Function SelectOne() As DataTable
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.[pr_Definition_Pruefplan_SelectOne]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable("Definition_Pruefplan")
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)

            ' // Use base class' connection object
            scmCmdToExecute.Connection = m_scoMainConnection

            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinition_PruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDefinition_PruefplanNr))
                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_Definition_Pruefplan_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
                End If

                If dtToReturn.Rows.Count > 0 Then
                    m_iDefinition_PruefplanNr = New SqlInt32(CType(dtToReturn.Rows(0)("Definition_PruefplanNr"), Integer))
                    If dtToReturn.Rows(0)("DefinitionNr") Is System.DBNull.Value Then
                        m_iDefinitionNr = SqlInt32.Null
                    Else
                        m_iDefinitionNr = New SqlInt32(CType(dtToReturn.Rows(0)("DefinitionNr"), Integer))
                    End If
                    If dtToReturn.Rows(0)("PruefplanNr") Is System.DBNull.Value Then
                        m_iPruefplanNr = SqlInt32.Null
                    Else
                        m_iPruefplanNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefplanNr"), Integer))
                    End If
                    If dtToReturn.Rows(0)("Gueltig_Bis") Is System.DBNull.Value Then
                        m_daGueltig_Bis = SqlDateTime.Null
                    Else
                        m_daGueltig_Bis = New SqlDateTime(CType(dtToReturn.Rows(0)("Gueltig_Bis"), Date))
                    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("clsDefinition_Pruefplan::SelectOne::Error occured.", ex)
            Finally
                If m_bMainConnectionIsCreatedLocal Then
                    ' // Close connection.
                    m_scoMainConnection.Close()
                End If
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function


        Public Overrides Function SelectAll() As DataTable
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.[pr_Definition_Pruefplan_SelectAll]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable("Definition_Pruefplan")
            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_Definition_Pruefplan_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("clsDefinition_Pruefplan::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 [iDefinition_PruefplanNr]() As SqlInt32
            Get
                Return m_iDefinition_PruefplanNr
            End Get
            Set(ByVal Value As SqlInt32)
                Dim iDefinition_PruefplanNrTmp As SqlInt32 = Value
                If iDefinition_PruefplanNrTmp.IsNull Then
                    Throw New ArgumentOutOfRangeException("iDefinition_PruefplanNr", "iDefinition_PruefplanNr can't be NULL")
                End If
                m_iDefinition_PruefplanNr = Value
            End Set
        End Property


        Public Property [iDefinitionNr]() As SqlInt32
            Get
                Return m_iDefinitionNr
            End Get
            Set(ByVal Value As SqlInt32)
                m_iDefinitionNr = Value
            End Set
        End Property


        Public Property [iPruefplanNr]() As SqlInt32
            Get
                Return m_iPruefplanNr
            End Get
            Set(ByVal Value As SqlInt32)
                m_iPruefplanNr = Value
            End Set
        End Property


        Public Property [daGueltig_Bis]() As SqlDateTime
            Get
                Return m_daGueltig_Bis
            End Get
            Set(ByVal Value As SqlDateTime)
                m_daGueltig_Bis = 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