' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'Vertragsereignis'
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 26. Mai 2009, 18:34:55
' // 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 TKB.VV.DB
	''' <summary>
	''' Purpose: Data Access class for the table 'Vertragsereignis'.
	''' </summary>
	Public Class clsVertragsereignis
		Inherits clsDBInteractionBase

#Region " Class Member Declarations "

		Private 		m_bInklMwSt, m_bAktiv As SqlBoolean
		Private 		m_daDatum, m_daEnde, m_daStart, m_daErstellt_am, m_daMutiert_am As SqlDateTime
		Private 		m_fBetrag As SqlDouble
		Private 		m_iSecurityLevelNr, m_iKuendigungsfristnr, m_iMutierer, m_iMandantNr, m_iKostenartNr, m_iKostenartNrOld, m_iVertragselementnr, m_iVertragselementnrOld, m_iPeriodizitaetNr, m_iEreignistypNr, m_iEreignistypNrOld, m_iVorlaufzeit, m_iEreignisNr 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>iEreignisNr</LI>
		'''		 <LI>iVertragselementnr. May be SqlInt32.Null</LI>
		'''		 <LI>iEreignistypNr. May be SqlInt32.Null</LI>
		'''		 <LI>iPeriodizitaetNr. May be SqlInt32.Null</LI>
		'''		 <LI>sBezeichnung. May be SqlString.Null</LI>
		'''		 <LI>sBeschreibung. May be SqlString.Null</LI>
		'''		 <LI>fBetrag. May be SqlDouble.Null</LI>
		'''		 <LI>bInklMwSt. May be SqlBoolean.Null</LI>
		'''		 <LI>daDatum. May be SqlDateTime.Null</LI>
		'''		 <LI>daStart. May be SqlDateTime.Null</LI>
		'''		 <LI>daEnde. May be SqlDateTime.Null</LI>
		'''		 <LI>iVorlaufzeit. May be SqlInt32.Null</LI>
		'''		 <LI>iKostenartNr. May be SqlInt32.Null</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>
		'''		 <LI>iMandantNr. May be SqlInt32.Null</LI>
		'''		 <LI>iSecurityLevelNr. May be SqlInt32.Null</LI>
		'''		 <LI>iKuendigungsfristnr. May be SqlInt32.Null</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		'''</UL>
		''' </remarks>
		Overrides Public Function Insert() As Boolean
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_Insert]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure

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

			Try
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iEreignisNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEreignisNr))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iVertragselementnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVertragselementnr))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iEreignistypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iEreignistypNr))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iPeriodizitaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPeriodizitaetNr))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@fBetrag", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fBetrag))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bInklMwSt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bInklMwSt))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@daDatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daDatum))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@daStart", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daStart))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@daEnde", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daEnde))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iVorlaufzeit", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlaufzeit))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iKostenartNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKostenartNr))
				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("@iMandantNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantNr))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iSecurityLevelNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSecurityLevelNr))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iKuendigungsfristnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKuendigungsfristnr))
				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_Vertragsereignis_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("clsVertragsereignis::Insert::Error occured.", ex)
			Finally
				If m_bMainConnectionIsCreatedLocal Then
					' // Close connection.
					m_scoMainConnection.Close()
				End If
				scmCmdToExecute.Dispose()
			End Try
		End Function


		''' <summary>
		''' Purpose: Update method. This method will Update one existing row in the database.
		''' </summary>
		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iEreignisNr</LI>
		'''		 <LI>iVertragselementnr. May be SqlInt32.Null</LI>
		'''		 <LI>iEreignistypNr. May be SqlInt32.Null</LI>
		'''		 <LI>iPeriodizitaetNr. May be SqlInt32.Null</LI>
		'''		 <LI>sBezeichnung. May be SqlString.Null</LI>
		'''		 <LI>sBeschreibung. May be SqlString.Null</LI>
		'''		 <LI>fBetrag. May be SqlDouble.Null</LI>
		'''		 <LI>bInklMwSt. May be SqlBoolean.Null</LI>
		'''		 <LI>daDatum. May be SqlDateTime.Null</LI>
		'''		 <LI>daStart. May be SqlDateTime.Null</LI>
		'''		 <LI>daEnde. May be SqlDateTime.Null</LI>
		'''		 <LI>iVorlaufzeit. May be SqlInt32.Null</LI>
		'''		 <LI>iKostenartNr. May be SqlInt32.Null</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>
		'''		 <LI>iMandantNr. May be SqlInt32.Null</LI>
		'''		 <LI>iSecurityLevelNr. May be SqlInt32.Null</LI>
		'''		 <LI>iKuendigungsfristnr. May be SqlInt32.Null</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		'''</UL>
		''' </remarks>
		Overrides Public Function Update() As Boolean
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_Update]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure

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

			Try
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iEreignisNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEreignisNr))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iVertragselementnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVertragselementnr))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iEreignistypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iEreignistypNr))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iPeriodizitaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPeriodizitaetNr))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@fBetrag", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fBetrag))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bInklMwSt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bInklMwSt))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@daDatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daDatum))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@daStart", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daStart))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@daEnde", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daEnde))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iVorlaufzeit", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlaufzeit))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iKostenartNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKostenartNr))
				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("@iMandantNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantNr))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iSecurityLevelNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSecurityLevelNr))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iKuendigungsfristnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKuendigungsfristnr))
				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_Vertragsereignis_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("clsVertragsereignis::Update::Error occured.", ex)
			Finally
				If m_bMainConnectionIsCreatedLocal Then
					' // Close connection.
					m_scoMainConnection.Close()
				End If
				scmCmdToExecute.Dispose()
			End Try
		End Function


		''' <summary>
		''' Purpose: Update method for updating one or more rows using the Foreign Key 'Vertragselementnr.
		''' This method will Update one or more existing rows in the database. It will reset the field 'Vertragselementnr' in
		''' all rows which have as value for this field the value as set in property 'iVertragselementnrOld' to 
		''' the value as set in property 'iVertragselementnr'.
		''' </summary>
		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iVertragselementnr. May be SqlInt32.Null</LI>
		'''		 <LI>iVertragselementnrOld. May be SqlInt32.Null</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		''' </UL>
		''' </remarks>
		Public Function UpdateAllWVertragselementnrLogic() As Boolean
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_UpdateAllWVertragselementnrLogic]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure

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

			Try
				scmCmdToExecute.Parameters.Add(new SqlParameter("@iVertragselementnr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iVertragselementnr))
				scmCmdToExecute.Parameters.Add(new SqlParameter("@iVertragselementnrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVertragselementnrOld))
				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_iVertragselementnr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iVertragselementnr").Value, Integer))

				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
					' // Throw error.
					Throw New Exception("Stored Procedure 'pr_Vertragsereignis_UpdateAllWVertragselementnrLogic' 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("clsVertragsereignis::UpdateAllWVertragselementnrLogic::Error occured.", ex)
			Finally
				If m_bMainConnectionIsCreatedLocal Then
					' // Close connection.
					m_scoMainConnection.Close()
				End If
				scmCmdToExecute.Dispose()
			End Try
		End Function


		''' <summary>
		''' Purpose: Update method for updating one or more rows using the Foreign Key 'EreignistypNr.
		''' This method will Update one or more existing rows in the database. It will reset the field 'EreignistypNr' in
		''' all rows which have as value for this field the value as set in property 'iEreignistypNrOld' to 
		''' the value as set in property 'iEreignistypNr'.
		''' </summary>
		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iEreignistypNr. May be SqlInt32.Null</LI>
		'''		 <LI>iEreignistypNrOld. May be SqlInt32.Null</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		''' </UL>
		''' </remarks>
		Public Function UpdateAllWEreignistypNrLogic() As Boolean
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_UpdateAllWEreignistypNrLogic]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure

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

			Try
				scmCmdToExecute.Parameters.Add(new SqlParameter("@iEreignistypNr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iEreignistypNr))
				scmCmdToExecute.Parameters.Add(new SqlParameter("@iEreignistypNrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iEreignistypNrOld))
				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_iEreignistypNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iEreignistypNr").Value, Integer))

				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
					' // Throw error.
					Throw New Exception("Stored Procedure 'pr_Vertragsereignis_UpdateAllWEreignistypNrLogic' 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("clsVertragsereignis::UpdateAllWEreignistypNrLogic::Error occured.", ex)
			Finally
				If m_bMainConnectionIsCreatedLocal Then
					' // Close connection.
					m_scoMainConnection.Close()
				End If
				scmCmdToExecute.Dispose()
			End Try
		End Function


		''' <summary>
		''' Purpose: Update method for updating one or more rows using the Foreign Key 'KostenartNr.
		''' This method will Update one or more existing rows in the database. It will reset the field 'KostenartNr' in
		''' all rows which have as value for this field the value as set in property 'iKostenartNrOld' to 
		''' the value as set in property 'iKostenartNr'.
		''' </summary>
		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iKostenartNr. May be SqlInt32.Null</LI>
		'''		 <LI>iKostenartNrOld. May be SqlInt32.Null</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		''' </UL>
		''' </remarks>
		Public Function UpdateAllWKostenartNrLogic() As Boolean
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_UpdateAllWKostenartNrLogic]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure

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

			Try
				scmCmdToExecute.Parameters.Add(new SqlParameter("@iKostenartNr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iKostenartNr))
				scmCmdToExecute.Parameters.Add(new SqlParameter("@iKostenartNrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKostenartNrOld))
				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_iKostenartNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iKostenartNr").Value, Integer))

				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
					' // Throw error.
					Throw New Exception("Stored Procedure 'pr_Vertragsereignis_UpdateAllWKostenartNrLogic' 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("clsVertragsereignis::UpdateAllWKostenartNrLogic::Error occured.", ex)
			Finally
				If m_bMainConnectionIsCreatedLocal Then
					' // Close connection.
					m_scoMainConnection.Close()
				End If
				scmCmdToExecute.Dispose()
			End Try
		End Function


		''' <summary>
		''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
		''' </summary>
		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iEreignisNr</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		'''</UL>
		''' </remarks>
		Overrides Public Function Delete() As Boolean
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_Delete]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure

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

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


		''' <summary>
		''' Purpose: Delete method for a foreign key. This method will Delete one or more rows from the database, based on the Foreign Key 'Vertragselementnr'
		''' </summary>
		''' <returns>true if succeeded, false otherwise </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iVertragselementnr. May be SqlInt32.Null</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		''' </UL>
		''' </remarks>
		Public Function DeleteAllWVertragselementnrLogic() As Boolean
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_DeleteAllWVertragselementnrLogic]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure

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

			Try
				scmCmdToExecute.Parameters.Add(new SqlParameter("@iVertragselementnr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iVertragselementnr))
				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_iVertragselementnr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iVertragselementnr").Value, Integer))

				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
					' // Throw error.
					Throw New Exception("Stored Procedure 'pr_Vertragsereignis_DeleteAllWVertragselementnrLogic' 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("clsVertragsereignis::DeleteAllWVertragselementnrLogic::Error occured.", ex)
			Finally
				If m_bMainConnectionIsCreatedLocal Then
					' // Close connection.
					m_scoMainConnection.Close()
				End If
				scmCmdToExecute.Dispose()
			End Try
		End Function


		''' <summary>
		''' Purpose: Delete method for a foreign key. This method will Delete one or more rows from the database, based on the Foreign Key 'EreignistypNr'
		''' </summary>
		''' <returns>true if succeeded, false otherwise </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iEreignistypNr. May be SqlInt32.Null</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		''' </UL>
		''' </remarks>
		Public Function DeleteAllWEreignistypNrLogic() As Boolean
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_DeleteAllWEreignistypNrLogic]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure

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

			Try
				scmCmdToExecute.Parameters.Add(new SqlParameter("@iEreignistypNr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iEreignistypNr))
				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_iEreignistypNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iEreignistypNr").Value, Integer))

				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
					' // Throw error.
					Throw New Exception("Stored Procedure 'pr_Vertragsereignis_DeleteAllWEreignistypNrLogic' 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("clsVertragsereignis::DeleteAllWEreignistypNrLogic::Error occured.", ex)
			Finally
				If m_bMainConnectionIsCreatedLocal Then
					' // Close connection.
					m_scoMainConnection.Close()
				End If
				scmCmdToExecute.Dispose()
			End Try
		End Function


		''' <summary>
		''' Purpose: Delete method for a foreign key. This method will Delete one or more rows from the database, based on the Foreign Key 'KostenartNr'
		''' </summary>
		''' <returns>true if succeeded, false otherwise </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iKostenartNr. May be SqlInt32.Null</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		''' </UL>
		''' </remarks>
		Public Function DeleteAllWKostenartNrLogic() As Boolean
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_DeleteAllWKostenartNrLogic]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure

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

			Try
				scmCmdToExecute.Parameters.Add(new SqlParameter("@iKostenartNr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iKostenartNr))
				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_iKostenartNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iKostenartNr").Value, Integer))

				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
					' // Throw error.
					Throw New Exception("Stored Procedure 'pr_Vertragsereignis_DeleteAllWKostenartNrLogic' 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("clsVertragsereignis::DeleteAllWKostenartNrLogic::Error occured.", ex)
			Finally
				If m_bMainConnectionIsCreatedLocal Then
					' // Close connection.
					m_scoMainConnection.Close()
				End If
				scmCmdToExecute.Dispose()
			End Try
		End Function


		''' <summary>
		''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
		''' </summary>
		''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iEreignisNr</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		'''		 <LI>iEreignisNr</LI>
		'''		 <LI>iVertragselementnr</LI>
		'''		 <LI>iEreignistypNr</LI>
		'''		 <LI>iPeriodizitaetNr</LI>
		'''		 <LI>sBezeichnung</LI>
		'''		 <LI>sBeschreibung</LI>
		'''		 <LI>fBetrag</LI>
		'''		 <LI>bInklMwSt</LI>
		'''		 <LI>daDatum</LI>
		'''		 <LI>daStart</LI>
		'''		 <LI>daEnde</LI>
		'''		 <LI>iVorlaufzeit</LI>
		'''		 <LI>iKostenartNr</LI>
		'''		 <LI>bAktiv</LI>
		'''		 <LI>daErstellt_am</LI>
		'''		 <LI>daMutiert_am</LI>
		'''		 <LI>iMutierer</LI>
		'''		 <LI>iMandantNr</LI>
		'''		 <LI>iSecurityLevelNr</LI>
		'''		 <LI>iKuendigungsfristnr</LI>
		'''</UL>
		''' Will fill all properties corresponding with a field in the table with the value of the row selected.
		''' </remarks>
		Overrides Public Function SelectOne() As DataTable
			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_SelectOne]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure
			Dim dtToReturn As DataTable = new DataTable("Vertragsereignis")
			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)

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

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

				If dtToReturn.Rows.Count > 0 Then
					m_iEreignisNr = New SqlInt32(CType(dtToReturn.Rows(0)("EreignisNr"), Integer))
					If dtToReturn.Rows(0)("Vertragselementnr") Is System.DBNull.Value Then
						m_iVertragselementnr = SqlInt32.Null
					Else
						m_iVertragselementnr = New SqlInt32(CType(dtToReturn.Rows(0)("Vertragselementnr"), Integer))
					End If
					If dtToReturn.Rows(0)("EreignistypNr") Is System.DBNull.Value Then
						m_iEreignistypNr = SqlInt32.Null
					Else
						m_iEreignistypNr = New SqlInt32(CType(dtToReturn.Rows(0)("EreignistypNr"), Integer))
					End If
					If dtToReturn.Rows(0)("PeriodizitaetNr") Is System.DBNull.Value Then
						m_iPeriodizitaetNr = SqlInt32.Null
					Else
						m_iPeriodizitaetNr = New SqlInt32(CType(dtToReturn.Rows(0)("PeriodizitaetNr"), Integer))
					End If
					If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
						m_sBezeichnung = SqlString.Null
					Else
						m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
					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)("Betrag") Is System.DBNull.Value Then
						m_fBetrag = SqlDouble.Null
					Else
						m_fBetrag = New SqlDouble(CType(dtToReturn.Rows(0)("Betrag"), Double))
					End If
					If dtToReturn.Rows(0)("InklMwSt") Is System.DBNull.Value Then
						m_bInklMwSt = SqlBoolean.Null
					Else
						m_bInklMwSt = New SqlBoolean(CType(dtToReturn.Rows(0)("InklMwSt"), Boolean))
					End If
					If dtToReturn.Rows(0)("Datum") Is System.DBNull.Value Then
						m_daDatum = SqlDateTime.Null
					Else
						m_daDatum = New SqlDateTime(CType(dtToReturn.Rows(0)("Datum"), Date))
					End If
					If dtToReturn.Rows(0)("Start") Is System.DBNull.Value Then
						m_daStart = SqlDateTime.Null
					Else
						m_daStart = New SqlDateTime(CType(dtToReturn.Rows(0)("Start"), Date))
					End If
					If dtToReturn.Rows(0)("Ende") Is System.DBNull.Value Then
						m_daEnde = SqlDateTime.Null
					Else
						m_daEnde = New SqlDateTime(CType(dtToReturn.Rows(0)("Ende"), Date))
					End If
					If dtToReturn.Rows(0)("Vorlaufzeit") Is System.DBNull.Value Then
						m_iVorlaufzeit = SqlInt32.Null
					Else
						m_iVorlaufzeit = New SqlInt32(CType(dtToReturn.Rows(0)("Vorlaufzeit"), Integer))
					End If
					If dtToReturn.Rows(0)("KostenartNr") Is System.DBNull.Value Then
						m_iKostenartNr = SqlInt32.Null
					Else
						m_iKostenartNr = New SqlInt32(CType(dtToReturn.Rows(0)("KostenartNr"), Integer))
					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
					If dtToReturn.Rows(0)("MandantNr") Is System.DBNull.Value Then
						m_iMandantNr = SqlInt32.Null
					Else
						m_iMandantNr = New SqlInt32(CType(dtToReturn.Rows(0)("MandantNr"), Integer))
					End If
					If dtToReturn.Rows(0)("SecurityLevelNr") Is System.DBNull.Value Then
						m_iSecurityLevelNr = SqlInt32.Null
					Else
						m_iSecurityLevelNr = New SqlInt32(CType(dtToReturn.Rows(0)("SecurityLevelNr"), Integer))
					End If
					If dtToReturn.Rows(0)("Kuendigungsfristnr") Is System.DBNull.Value Then
						m_iKuendigungsfristnr = SqlInt32.Null
					Else
						m_iKuendigungsfristnr = New SqlInt32(CType(dtToReturn.Rows(0)("Kuendigungsfristnr"), 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("clsVertragsereignis::SelectOne::Error occured.", ex)
			Finally
				If m_bMainConnectionIsCreatedLocal Then
					' // Close connection.
					m_scoMainConnection.Close()
				End If
				scmCmdToExecute.Dispose()
				sdaAdapter.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>
		Overrides Public Function SelectAll() As DataTable
			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_SelectAll]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure
			Dim dtToReturn As DataTable = new DataTable("Vertragsereignis")
			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_Vertragsereignis_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("clsVertragsereignis::SelectAll::Error occured.", ex)
			Finally
				If m_bMainConnectionIsCreatedLocal Then
					' // Close connection.
					m_scoMainConnection.Close()
				End If
				scmCmdToExecute.Dispose()
				sdaAdapter.Dispose()
			End Try
		End Function


		''' <summary>
		''' Purpose: Select method for a foreign key. This method will Select one or more rows from the database, based on the Foreign Key 'Vertragselementnr'
		''' </summary>
		''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iVertragselementnr. May be SqlInt32.Null</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		''' </UL>
		''' </remarks>
		Public Function SelectAllWVertragselementnrLogic() As DataTable
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_SelectAllWVertragselementnrLogic]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure
			Dim dtToReturn As DataTable = new DataTable("Vertragsereignis")
			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)

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

			Try
				scmCmdToExecute.Parameters.Add(new SqlParameter("@iVertragselementnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVertragselementnr))
				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_iVertragselementnr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iVertragselementnr").Value, Integer))

				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
					' // Throw error.
					Throw New Exception("Stored Procedure 'pr_Vertragsereignis_SelectAllWVertragselementnrLogic' 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("clsVertragsereignis::SelectAllWVertragselementnrLogic::Error occured.", ex)
			Finally
				If m_bMainConnectionIsCreatedLocal Then
					' // Close connection.
					m_scoMainConnection.Close()
				End If
				scmCmdToExecute.Dispose()
				sdaAdapter.Dispose()
			End Try
		End Function


		''' <summary>
		''' Purpose: Select method for a foreign key. This method will Select one or more rows from the database, based on the Foreign Key 'EreignistypNr'
		''' </summary>
		''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iEreignistypNr. May be SqlInt32.Null</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		''' </UL>
		''' </remarks>
		Public Function SelectAllWEreignistypNrLogic() As DataTable
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_SelectAllWEreignistypNrLogic]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure
			Dim dtToReturn As DataTable = new DataTable("Vertragsereignis")
			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)

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

			Try
				scmCmdToExecute.Parameters.Add(new SqlParameter("@iEreignistypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iEreignistypNr))
				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_iEreignistypNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iEreignistypNr").Value, Integer))

				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
					' // Throw error.
					Throw New Exception("Stored Procedure 'pr_Vertragsereignis_SelectAllWEreignistypNrLogic' 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("clsVertragsereignis::SelectAllWEreignistypNrLogic::Error occured.", ex)
			Finally
				If m_bMainConnectionIsCreatedLocal Then
					' // Close connection.
					m_scoMainConnection.Close()
				End If
				scmCmdToExecute.Dispose()
				sdaAdapter.Dispose()
			End Try
		End Function


		''' <summary>
		''' Purpose: Select method for a foreign key. This method will Select one or more rows from the database, based on the Foreign Key 'KostenartNr'
		''' </summary>
		''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iKostenartNr. May be SqlInt32.Null</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		''' </UL>
		''' </remarks>
		Public Function SelectAllWKostenartNrLogic() As DataTable
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_SelectAllWKostenartNrLogic]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure
			Dim dtToReturn As DataTable = new DataTable("Vertragsereignis")
			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)

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

			Try
				scmCmdToExecute.Parameters.Add(new SqlParameter("@iKostenartNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKostenartNr))
				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_iKostenartNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iKostenartNr").Value, Integer))

				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
					' // Throw error.
					Throw New Exception("Stored Procedure 'pr_Vertragsereignis_SelectAllWKostenartNrLogic' 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("clsVertragsereignis::SelectAllWKostenartNrLogic::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 [iEreignisNr]() As SqlInt32
			Get
				Return m_iEreignisNr
			End Get
			Set(ByVal Value As SqlInt32)
				Dim iEreignisNrTmp As SqlInt32 = Value
				If iEreignisNrTmp.IsNull Then
					Throw New ArgumentOutOfRangeException("iEreignisNr", "iEreignisNr can't be NULL")
				End If
				m_iEreignisNr = Value
			End Set
		End Property


		Public Property [iVertragselementnr]() As SqlInt32
			Get
				Return m_iVertragselementnr
			End Get
			Set(ByVal Value As SqlInt32)
				m_iVertragselementnr = Value
			End Set
		End Property
		Public Property [iVertragselementnrOld]() As SqlInt32
			Get
				Return m_iVertragselementnrOld
			End Get
			Set(ByVal Value As SqlInt32)
				m_iVertragselementnrOld = Value
			End Set
		End Property


		Public Property [iEreignistypNr]() As SqlInt32
			Get
				Return m_iEreignistypNr
			End Get
			Set(ByVal Value As SqlInt32)
				m_iEreignistypNr = Value
			End Set
		End Property
		Public Property [iEreignistypNrOld]() As SqlInt32
			Get
				Return m_iEreignistypNrOld
			End Get
			Set(ByVal Value As SqlInt32)
				m_iEreignistypNrOld = Value
			End Set
		End Property


		Public Property [iPeriodizitaetNr]() As SqlInt32
			Get
				Return m_iPeriodizitaetNr
			End Get
			Set(ByVal Value As SqlInt32)
				m_iPeriodizitaetNr = 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 [sBeschreibung]() As SqlString
			Get
				Return m_sBeschreibung
			End Get
			Set(ByVal Value As SqlString)
				m_sBeschreibung = Value
			End Set
		End Property


		Public Property [fBetrag]() As SqlDouble
			Get
				Return m_fBetrag
			End Get
			Set(ByVal Value As SqlDouble)
				m_fBetrag = Value
			End Set
		End Property


		Public Property [bInklMwSt]() As SqlBoolean
			Get
				Return m_bInklMwSt
			End Get
			Set(ByVal Value As SqlBoolean)
				m_bInklMwSt = Value
			End Set
		End Property


		Public Property [daDatum]() As SqlDateTime
			Get
				Return m_daDatum
			End Get
			Set(ByVal Value As SqlDateTime)
				m_daDatum = Value
			End Set
		End Property


		Public Property [daStart]() As SqlDateTime
			Get
				Return m_daStart
			End Get
			Set(ByVal Value As SqlDateTime)
				m_daStart = Value
			End Set
		End Property


		Public Property [daEnde]() As SqlDateTime
			Get
				Return m_daEnde
			End Get
			Set(ByVal Value As SqlDateTime)
				m_daEnde = Value
			End Set
		End Property


		Public Property [iVorlaufzeit]() As SqlInt32
			Get
				Return m_iVorlaufzeit
			End Get
			Set(ByVal Value As SqlInt32)
				m_iVorlaufzeit = Value
			End Set
		End Property


		Public Property [iKostenartNr]() As SqlInt32
			Get
				Return m_iKostenartNr
			End Get
			Set(ByVal Value As SqlInt32)
				m_iKostenartNr = Value
			End Set
		End Property
		Public Property [iKostenartNrOld]() As SqlInt32
			Get
				Return m_iKostenartNrOld
			End Get
			Set(ByVal Value As SqlInt32)
				m_iKostenartNrOld = 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


		Public Property [iMandantNr]() As SqlInt32
			Get
				Return m_iMandantNr
			End Get
			Set(ByVal Value As SqlInt32)
				m_iMandantNr = Value
			End Set
		End Property


		Public Property [iSecurityLevelNr]() As SqlInt32
			Get
				Return m_iSecurityLevelNr
			End Get
			Set(ByVal Value As SqlInt32)
				m_iSecurityLevelNr = Value
			End Set
		End Property


		Public Property [iKuendigungsfristnr]() As SqlInt32
			Get
				Return m_iKuendigungsfristnr
			End Get
			Set(ByVal Value As SqlInt32)
				m_iKuendigungsfristnr = Value
			End Set
		End Property

#End Region

	End Class
End Namespace