' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'dokumentfavorithierarchie'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 11. Februar 2003, 14:08:01
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient

Namespace edokadb
    ' /// <summary>
    ' /// Purpose: Data Access class for the table 'dokumentfavorithierarchie'.
    ' /// </summary>
    Public Class clsDokumentfavorithierarchie
        Inherits clsDBInteractionBase

#Region " Class Member Declarations "

        Private m_bAktiv As SqlBoolean
        Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
        Private m_iMitarbeiternr, m_iSprache, m_iMandantnr, m_iParentid, m_iMutierer, m_iDokumentfavorithierarchinr, m_iImageindexopen, m_iImageindex, m_iSort As SqlInt32
        Private m_sBezeichnung, m_sBeschreibung As SqlString

#End Region


        ' /// <summary>
        ' /// Purpose: Class constructor.
        ' /// </summary>
        Public Sub New()
            ' // Nothing for now.
        End Sub


        ' /// <summary>
        ' /// Purpose: Insert method. This method will insert one new row into the database.
        ' /// </summary>
        ' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
        ' /// <remarks>
        ' /// Properties needed for this method: 
        ' /// <UL>
        ' ///		 <LI>iDokumentfavorithierarchinr</LI>
        ' ///		 <LI>sBezeichnung. May be SqlString.Null</LI>
        ' ///		 <LI>iParentid. May be SqlInt32.Null</LI>
        ' ///		 <LI>iSort. May be SqlInt32.Null</LI>
        ' ///		 <LI>iImageindex. May be SqlInt32.Null</LI>
        ' ///		 <LI>iImageindexopen. May be SqlInt32.Null</LI>
        ' ///		 <LI>sBeschreibung. May be SqlString.Null</LI>
        ' ///		 <LI>iMitarbeiternr</LI>
        ' ///		 <LI>iMandantnr</LI>
        ' ///		 <LI>iSprache</LI>
        ' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
        ' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
        ' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
        ' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
        ' /// </UL>
        ' /// Properties set after a succesful call of this method: 
        ' /// <UL>
        ' ///		 <LI>iErrorCode</LI>
        ' /// </UL>
        ' /// </remarks>
        Public Overrides Function Insert() As Boolean
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.[pr_dokumentfavorithierarchie_Insert]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure

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

            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentfavorithierarchinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentfavorithierarchinr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@iparentid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@isort", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSort))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@iimageindex", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iImageindex))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@iimageindexopen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iImageindexopen))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", 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.
                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_dokumentfavorithierarchie_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("clsDokumentfavorithierarchie::Insert::Error occured.", ex)
            Finally
                If m_bMainConnectionIsCreatedLocal Then
                    ' // Close connection.
                    m_scoMainConnection.Close()
                End If
                scmCmdToExecute.Dispose()
            End Try
        End Function


        ' /// <summary>
        ' /// Purpose: SelectAll method. This method will Select all rows from the table.
        ' /// </summary>
        ' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
        ' /// <remarks>
        ' /// Properties set after a succesful call of this method: 
        ' /// <UL>
        ' ///		 <LI>iErrorCode</LI>
        ' /// </UL>
        ' /// </remarks>
        Public Overrides Function SelectAll() As DataTable
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.[pr_dokumentfavorithierarchie_SelectAll]"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            Dim dtToReturn As DataTable = New DataTable("dokumentfavorithierarchie")
            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_dokumentfavorithierarchie_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("clsDokumentfavorithierarchie::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 [iDokumentfavorithierarchinr]() As SqlInt32
            Get
                Return m_iDokumentfavorithierarchinr
            End Get
            Set(ByVal Value As SqlInt32)
                Dim iDokumentfavorithierarchinrTmp As SqlInt32 = Value
                If iDokumentfavorithierarchinrTmp.IsNull Then
                    Throw New ArgumentOutOfRangeException("iDokumentfavorithierarchinr", "iDokumentfavorithierarchinr can't be NULL")
                End If
                m_iDokumentfavorithierarchinr = Value
            End Set
        End Property


        Public Property [sBezeichnung]() As SqlString
            Get
                Return m_sBezeichnung
            End Get
            Set(ByVal Value As SqlString)
                m_sBezeichnung = Value
            End Set
        End Property


        Public Property [iParentid]() As SqlInt32
            Get
                Return m_iParentid
            End Get
            Set(ByVal Value As SqlInt32)
                m_iParentid = Value
            End Set
        End Property


        Public Property [iSort]() As SqlInt32
            Get
                Return m_iSort
            End Get
            Set(ByVal Value As SqlInt32)
                m_iSort = Value
            End Set
        End Property


        Public Property [iImageindex]() As SqlInt32
            Get
                Return m_iImageindex
            End Get
            Set(ByVal Value As SqlInt32)
                m_iImageindex = Value
            End Set
        End Property


        Public Property [iImageindexopen]() As SqlInt32
            Get
                Return m_iImageindexopen
            End Get
            Set(ByVal Value As SqlInt32)
                m_iImageindexopen = 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 [iMitarbeiternr]() As SqlInt32
            Get
                Return m_iMitarbeiternr
            End Get
            Set(ByVal Value As SqlInt32)
                Dim iMitarbeiternrTmp As SqlInt32 = Value
                If iMitarbeiternrTmp.IsNull Then
                    Throw New ArgumentOutOfRangeException("iMitarbeiternr", "iMitarbeiternr can't be NULL")
                End If
                m_iMitarbeiternr = Value
            End Set
        End Property


        Public Property [iMandantnr]() As SqlInt32
            Get
                Return m_iMandantnr
            End Get
            Set(ByVal Value As SqlInt32)
                Dim iMandantnrTmp As SqlInt32 = Value
                If iMandantnrTmp.IsNull Then
                    Throw New ArgumentOutOfRangeException("iMandantnr", "iMandantnr can't be NULL")
                End If
                m_iMandantnr = Value
            End Set
        End Property


        Public Property [iSprache]() As SqlInt32
            Get
                Return m_iSprache
            End Get
            Set(ByVal Value As SqlInt32)
                Dim iSpracheTmp As SqlInt32 = Value
                If iSpracheTmp.IsNull Then
                    Throw New ArgumentOutOfRangeException("iSprache", "iSprache can't be NULL")
                End If
                m_iSprache = 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