' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'Partner'
' // Generated by LLBLGen v1.21.2003.712 Final on: Mittwoch, 27. Oktober 2010, 14:07:35
' // 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 'Partner'.
	''' </summary>
	Public Class clsPartner
		Inherits clsDBInteractionBase

#Region " Class Member Declarations "

		Private 		m_bCDVSA00, m_bSaldiert As SqlBoolean
		Private 		m_daValidto As SqlDateTime
		Private 		m_iNRPAR00, m_iNRFOG012, m_iAZEPL00 As SqlInt32
		Private 		m_sTXADZ031, m_sTXADZ041, m_sTXADZ061, m_sTXADZ051, m_sBEBAN21, m_sNRFOG21, m_sTXADZ021, m_sTXADZ011, m_sVDMUTER, m_sTSMUT00, m_sIDMSG00, m_sTXRes00, m_sCDBAL00, m_sTXADZ071, m_sSAVRS00, m_sCDVIG00, m_sNRFOG022, m_sBEBAN012, m_sTXADZ012, m_sBEBAN022, m_sBKPAR00, m_sZTMSG00, m_sDMMSG00, m_sCDBNK00, m_sBEPGM00, m_sTXADZ022, m_sNRADR00, m_sNRPARAD, m_sBEBAN011, m_sNRFOG011, m_sTXADZ072, m_sTXADZ042, m_sTXADZ032, m_sTXADZ062, m_sTXADZ052 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>sIDMSG00. May be SqlString.Null</LI>
		'''		 <LI>sDMMSG00. May be SqlString.Null</LI>
		'''		 <LI>sZTMSG00. May be SqlString.Null</LI>
		'''		 <LI>sBEPGM00. May be SqlString.Null</LI>
		'''		 <LI>sCDBNK00. May be SqlString.Null</LI>
		'''		 <LI>iNRPAR00</LI>
		'''		 <LI>sBKPAR00. May be SqlString.Null</LI>
		'''		 <LI>iNRFOG012. May be SqlInt32.Null</LI>
		'''		 <LI>sBEBAN012. May be SqlString.Null</LI>
		'''		 <LI>sNRFOG022. May be SqlString.Null</LI>
		'''		 <LI>sBEBAN022. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ012. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ022. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ032. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ042. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ052. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ062. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ072. May be SqlString.Null</LI>
		'''		 <LI>sNRPARAD. May be SqlString.Null</LI>
		'''		 <LI>sNRADR00. May be SqlString.Null</LI>
		'''		 <LI>sNRFOG011. May be SqlString.Null</LI>
		'''		 <LI>sBEBAN011. May be SqlString.Null</LI>
		'''		 <LI>sNRFOG21. May be SqlString.Null</LI>
		'''		 <LI>sBEBAN21. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ011. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ021. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ031. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ041. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ051. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ061. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ071. May be SqlString.Null</LI>
		'''		 <LI>sCDBAL00. May be SqlString.Null</LI>
		'''		 <LI>sCDVIG00. May be SqlString.Null</LI>
		'''		 <LI>sSAVRS00. May be SqlString.Null</LI>
		'''		 <LI>sTSMUT00. May be SqlString.Null</LI>
		'''		 <LI>sVDMUTER. May be SqlString.Null</LI>
		'''		 <LI>sTXRes00. May be SqlString.Null</LI>
		'''		 <LI>bSaldiert</LI>
		'''		 <LI>iAZEPL00. May be SqlInt32.Null</LI>
		'''		 <LI>bCDVSA00</LI>
		'''		 <LI>daValidto. May be SqlDateTime.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_Partner_Insert]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure

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

			Try
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sIDMSG00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIDMSG00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMMSG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMMSG00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sZTMSG00", SqlDbType.VarChar, 12, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZTMSG00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEPGM00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEPGM00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBNK00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBNK00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBKPAR00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBKPAR00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRFOG012", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRFOG012))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN012", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN012))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG022", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG022))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN022", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN022))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ012", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ012))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ022", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ022))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ032", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ032))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ042", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ042))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ052", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ052))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ062", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ062))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ072", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ072))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPARAD", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPARAD))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRADR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRADR00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG011", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG011))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN011", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN011))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG21", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG21))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN21", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN21))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ011", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ011))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ021", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ021))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ031", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ031))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ041", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ041))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ051", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ051))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ061", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ061))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ071", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ071))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBAL00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBAL00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVIG00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVIG00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAVRS00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAVRS00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTSMUT00", SqlDbType.VarChar, 26, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTSMUT00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sVDMUTER", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVDMUTER))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXRes00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXRes00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bSaldiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bSaldiert))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iAZEPL00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAZEPL00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bCDVSA00", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bCDVSA00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@davalidto", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daValidto))
				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_Partner_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("clsPartner::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>sIDMSG00. May be SqlString.Null</LI>
		'''		 <LI>sDMMSG00. May be SqlString.Null</LI>
		'''		 <LI>sZTMSG00. May be SqlString.Null</LI>
		'''		 <LI>sBEPGM00. May be SqlString.Null</LI>
		'''		 <LI>sCDBNK00. May be SqlString.Null</LI>
		'''		 <LI>iNRPAR00</LI>
		'''		 <LI>sBKPAR00. May be SqlString.Null</LI>
		'''		 <LI>iNRFOG012. May be SqlInt32.Null</LI>
		'''		 <LI>sBEBAN012. May be SqlString.Null</LI>
		'''		 <LI>sNRFOG022. May be SqlString.Null</LI>
		'''		 <LI>sBEBAN022. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ012. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ022. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ032. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ042. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ052. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ062. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ072. May be SqlString.Null</LI>
		'''		 <LI>sNRPARAD. May be SqlString.Null</LI>
		'''		 <LI>sNRADR00. May be SqlString.Null</LI>
		'''		 <LI>sNRFOG011. May be SqlString.Null</LI>
		'''		 <LI>sBEBAN011. May be SqlString.Null</LI>
		'''		 <LI>sNRFOG21. May be SqlString.Null</LI>
		'''		 <LI>sBEBAN21. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ011. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ021. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ031. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ041. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ051. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ061. May be SqlString.Null</LI>
		'''		 <LI>sTXADZ071. May be SqlString.Null</LI>
		'''		 <LI>sCDBAL00. May be SqlString.Null</LI>
		'''		 <LI>sCDVIG00. May be SqlString.Null</LI>
		'''		 <LI>sSAVRS00. May be SqlString.Null</LI>
		'''		 <LI>sTSMUT00. May be SqlString.Null</LI>
		'''		 <LI>sVDMUTER. May be SqlString.Null</LI>
		'''		 <LI>sTXRes00. May be SqlString.Null</LI>
		'''		 <LI>bSaldiert</LI>
		'''		 <LI>iAZEPL00. May be SqlInt32.Null</LI>
		'''		 <LI>bCDVSA00</LI>
		'''		 <LI>daValidto. May be SqlDateTime.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_Partner_Update]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure

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

			Try
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sIDMSG00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIDMSG00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMMSG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMMSG00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sZTMSG00", SqlDbType.VarChar, 12, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZTMSG00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEPGM00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEPGM00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBNK00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBNK00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBKPAR00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBKPAR00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRFOG012", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRFOG012))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN012", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN012))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG022", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG022))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN022", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN022))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ012", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ012))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ022", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ022))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ032", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ032))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ042", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ042))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ052", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ052))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ062", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ062))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ072", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ072))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPARAD", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPARAD))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRADR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRADR00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG011", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG011))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN011", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN011))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG21", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG21))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN21", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN21))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ011", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ011))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ021", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ021))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ031", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ031))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ041", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ041))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ051", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ051))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ061", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ061))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ071", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ071))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBAL00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBAL00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVIG00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVIG00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAVRS00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAVRS00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTSMUT00", SqlDbType.VarChar, 26, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTSMUT00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sVDMUTER", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVDMUTER))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXRes00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXRes00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bSaldiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bSaldiert))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iAZEPL00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAZEPL00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bCDVSA00", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bCDVSA00))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@davalidto", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daValidto))
				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_Partner_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("clsPartner::Update::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>iNRPAR00</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_Partner_Delete]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure

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

			Try
				scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00))
				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_Partner_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("clsPartner::Delete::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>iNRPAR00</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		'''		 <LI>sIDMSG00</LI>
		'''		 <LI>sDMMSG00</LI>
		'''		 <LI>sZTMSG00</LI>
		'''		 <LI>sBEPGM00</LI>
		'''		 <LI>sCDBNK00</LI>
		'''		 <LI>iNRPAR00</LI>
		'''		 <LI>sBKPAR00</LI>
		'''		 <LI>iNRFOG012</LI>
		'''		 <LI>sBEBAN012</LI>
		'''		 <LI>sNRFOG022</LI>
		'''		 <LI>sBEBAN022</LI>
		'''		 <LI>sTXADZ012</LI>
		'''		 <LI>sTXADZ022</LI>
		'''		 <LI>sTXADZ032</LI>
		'''		 <LI>sTXADZ042</LI>
		'''		 <LI>sTXADZ052</LI>
		'''		 <LI>sTXADZ062</LI>
		'''		 <LI>sTXADZ072</LI>
		'''		 <LI>sNRPARAD</LI>
		'''		 <LI>sNRADR00</LI>
		'''		 <LI>sNRFOG011</LI>
		'''		 <LI>sBEBAN011</LI>
		'''		 <LI>sNRFOG21</LI>
		'''		 <LI>sBEBAN21</LI>
		'''		 <LI>sTXADZ011</LI>
		'''		 <LI>sTXADZ021</LI>
		'''		 <LI>sTXADZ031</LI>
		'''		 <LI>sTXADZ041</LI>
		'''		 <LI>sTXADZ051</LI>
		'''		 <LI>sTXADZ061</LI>
		'''		 <LI>sTXADZ071</LI>
		'''		 <LI>sCDBAL00</LI>
		'''		 <LI>sCDVIG00</LI>
		'''		 <LI>sSAVRS00</LI>
		'''		 <LI>sTSMUT00</LI>
		'''		 <LI>sVDMUTER</LI>
		'''		 <LI>sTXRes00</LI>
		'''		 <LI>bSaldiert</LI>
		'''		 <LI>iAZEPL00</LI>
		'''		 <LI>bCDVSA00</LI>
		'''		 <LI>daValidto</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_Partner_SelectOne]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure
			Dim dtToReturn As DataTable = new DataTable("Partner")
			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)

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

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

				If dtToReturn.Rows.Count > 0 Then
					If dtToReturn.Rows(0)("IDMSG00") Is System.DBNull.Value Then
						m_sIDMSG00 = SqlString.Null
					Else
						m_sIDMSG00 = New SqlString(CType(dtToReturn.Rows(0)("IDMSG00"), String))
					End If
					If dtToReturn.Rows(0)("DMMSG00") Is System.DBNull.Value Then
						m_sDMMSG00 = SqlString.Null
					Else
						m_sDMMSG00 = New SqlString(CType(dtToReturn.Rows(0)("DMMSG00"), String))
					End If
					If dtToReturn.Rows(0)("ZTMSG00") Is System.DBNull.Value Then
						m_sZTMSG00 = SqlString.Null
					Else
						m_sZTMSG00 = New SqlString(CType(dtToReturn.Rows(0)("ZTMSG00"), String))
					End If
					If dtToReturn.Rows(0)("BEPGM00") Is System.DBNull.Value Then
						m_sBEPGM00 = SqlString.Null
					Else
						m_sBEPGM00 = New SqlString(CType(dtToReturn.Rows(0)("BEPGM00"), String))
					End If
					If dtToReturn.Rows(0)("CDBNK00") Is System.DBNull.Value Then
						m_sCDBNK00 = SqlString.Null
					Else
						m_sCDBNK00 = New SqlString(CType(dtToReturn.Rows(0)("CDBNK00"), String))
					End If
					m_iNRPAR00 = New SqlInt32(CType(dtToReturn.Rows(0)("NRPAR00"), Integer))
					If dtToReturn.Rows(0)("BKPAR00") Is System.DBNull.Value Then
						m_sBKPAR00 = SqlString.Null
					Else
						m_sBKPAR00 = New SqlString(CType(dtToReturn.Rows(0)("BKPAR00"), String))
					End If
					If dtToReturn.Rows(0)("NRFOG012") Is System.DBNull.Value Then
						m_iNRFOG012 = SqlInt32.Null
					Else
						m_iNRFOG012 = New SqlInt32(CType(dtToReturn.Rows(0)("NRFOG012"), Integer))
					End If
					If dtToReturn.Rows(0)("BEBAN012") Is System.DBNull.Value Then
						m_sBEBAN012 = SqlString.Null
					Else
						m_sBEBAN012 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN012"), String))
					End If
					If dtToReturn.Rows(0)("NRFOG022") Is System.DBNull.Value Then
						m_sNRFOG022 = SqlString.Null
					Else
						m_sNRFOG022 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG022"), String))
					End If
					If dtToReturn.Rows(0)("BEBAN022") Is System.DBNull.Value Then
						m_sBEBAN022 = SqlString.Null
					Else
						m_sBEBAN022 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN022"), String))
					End If
					If dtToReturn.Rows(0)("TXADZ012") Is System.DBNull.Value Then
						m_sTXADZ012 = SqlString.Null
					Else
						m_sTXADZ012 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ012"), String))
					End If
					If dtToReturn.Rows(0)("TXADZ022") Is System.DBNull.Value Then
						m_sTXADZ022 = SqlString.Null
					Else
						m_sTXADZ022 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ022"), String))
					End If
					If dtToReturn.Rows(0)("TXADZ032") Is System.DBNull.Value Then
						m_sTXADZ032 = SqlString.Null
					Else
						m_sTXADZ032 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ032"), String))
					End If
					If dtToReturn.Rows(0)("TXADZ042") Is System.DBNull.Value Then
						m_sTXADZ042 = SqlString.Null
					Else
						m_sTXADZ042 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ042"), String))
					End If
					If dtToReturn.Rows(0)("TXADZ052") Is System.DBNull.Value Then
						m_sTXADZ052 = SqlString.Null
					Else
						m_sTXADZ052 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ052"), String))
					End If
					If dtToReturn.Rows(0)("TXADZ062") Is System.DBNull.Value Then
						m_sTXADZ062 = SqlString.Null
					Else
						m_sTXADZ062 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ062"), String))
					End If
					If dtToReturn.Rows(0)("TXADZ072") Is System.DBNull.Value Then
						m_sTXADZ072 = SqlString.Null
					Else
						m_sTXADZ072 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ072"), String))
					End If
					If dtToReturn.Rows(0)("NRPARAD") Is System.DBNull.Value Then
						m_sNRPARAD = SqlString.Null
					Else
						m_sNRPARAD = New SqlString(CType(dtToReturn.Rows(0)("NRPARAD"), String))
					End If
					If dtToReturn.Rows(0)("NRADR00") Is System.DBNull.Value Then
						m_sNRADR00 = SqlString.Null
					Else
						m_sNRADR00 = New SqlString(CType(dtToReturn.Rows(0)("NRADR00"), String))
					End If
					If dtToReturn.Rows(0)("NRFOG011") Is System.DBNull.Value Then
						m_sNRFOG011 = SqlString.Null
					Else
						m_sNRFOG011 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG011"), String))
					End If
					If dtToReturn.Rows(0)("BEBAN011") Is System.DBNull.Value Then
						m_sBEBAN011 = SqlString.Null
					Else
						m_sBEBAN011 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN011"), String))
					End If
					If dtToReturn.Rows(0)("NRFOG21") Is System.DBNull.Value Then
						m_sNRFOG21 = SqlString.Null
					Else
						m_sNRFOG21 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG21"), String))
					End If
					If dtToReturn.Rows(0)("BEBAN21") Is System.DBNull.Value Then
						m_sBEBAN21 = SqlString.Null
					Else
						m_sBEBAN21 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN21"), String))
					End If
					If dtToReturn.Rows(0)("TXADZ011") Is System.DBNull.Value Then
						m_sTXADZ011 = SqlString.Null
					Else
						m_sTXADZ011 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ011"), String))
					End If
					If dtToReturn.Rows(0)("TXADZ021") Is System.DBNull.Value Then
						m_sTXADZ021 = SqlString.Null
					Else
						m_sTXADZ021 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ021"), String))
					End If
					If dtToReturn.Rows(0)("TXADZ031") Is System.DBNull.Value Then
						m_sTXADZ031 = SqlString.Null
					Else
						m_sTXADZ031 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ031"), String))
					End If
					If dtToReturn.Rows(0)("TXADZ041") Is System.DBNull.Value Then
						m_sTXADZ041 = SqlString.Null
					Else
						m_sTXADZ041 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ041"), String))
					End If
					If dtToReturn.Rows(0)("TXADZ051") Is System.DBNull.Value Then
						m_sTXADZ051 = SqlString.Null
					Else
						m_sTXADZ051 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ051"), String))
					End If
					If dtToReturn.Rows(0)("TXADZ061") Is System.DBNull.Value Then
						m_sTXADZ061 = SqlString.Null
					Else
						m_sTXADZ061 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ061"), String))
					End If
					If dtToReturn.Rows(0)("TXADZ071") Is System.DBNull.Value Then
						m_sTXADZ071 = SqlString.Null
					Else
						m_sTXADZ071 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ071"), String))
					End If
					If dtToReturn.Rows(0)("CDBAL00") Is System.DBNull.Value Then
						m_sCDBAL00 = SqlString.Null
					Else
						m_sCDBAL00 = New SqlString(CType(dtToReturn.Rows(0)("CDBAL00"), String))
					End If
					If dtToReturn.Rows(0)("CDVIG00") Is System.DBNull.Value Then
						m_sCDVIG00 = SqlString.Null
					Else
						m_sCDVIG00 = New SqlString(CType(dtToReturn.Rows(0)("CDVIG00"), String))
					End If
					If dtToReturn.Rows(0)("SAVRS00") Is System.DBNull.Value Then
						m_sSAVRS00 = SqlString.Null
					Else
						m_sSAVRS00 = New SqlString(CType(dtToReturn.Rows(0)("SAVRS00"), String))
					End If
					If dtToReturn.Rows(0)("TSMUT00") Is System.DBNull.Value Then
						m_sTSMUT00 = SqlString.Null
					Else
						m_sTSMUT00 = New SqlString(CType(dtToReturn.Rows(0)("TSMUT00"), String))
					End If
					If dtToReturn.Rows(0)("VDMUTER") Is System.DBNull.Value Then
						m_sVDMUTER = SqlString.Null
					Else
						m_sVDMUTER = New SqlString(CType(dtToReturn.Rows(0)("VDMUTER"), String))
					End If
					If dtToReturn.Rows(0)("TXRes00") Is System.DBNull.Value Then
						m_sTXRes00 = SqlString.Null
					Else
						m_sTXRes00 = New SqlString(CType(dtToReturn.Rows(0)("TXRes00"), String))
					End If
					m_bSaldiert = New SqlBoolean(CType(dtToReturn.Rows(0)("Saldiert"), Boolean))
					If dtToReturn.Rows(0)("AZEPL00") Is System.DBNull.Value Then
						m_iAZEPL00 = SqlInt32.Null
					Else
						m_iAZEPL00 = New SqlInt32(CType(dtToReturn.Rows(0)("AZEPL00"), Integer))
					End If
					m_bCDVSA00 = New SqlBoolean(CType(dtToReturn.Rows(0)("CDVSA00"), Boolean))
					If dtToReturn.Rows(0)("validto") Is System.DBNull.Value Then
						m_daValidto = SqlDateTime.Null
					Else
						m_daValidto = New SqlDateTime(CType(dtToReturn.Rows(0)("validto"), Date))
					End If
				End If
				Return dtToReturn
			Catch ex As Exception
				' // some error occured. Bubble it to caller and encapsulate Exception object
				Throw New Exception("clsPartner::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_Partner_SelectAll]"
			scmCmdToExecute.CommandType = CommandType.StoredProcedure
			Dim dtToReturn As DataTable = new DataTable("Partner")
			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)

			' // Use base class' connection object
			scmCmdToExecute.Connection = 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_Partner_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("clsPartner::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 [sIDMSG00]() As SqlString
			Get
				Return m_sIDMSG00
			End Get
			Set(ByVal Value As SqlString)
				m_sIDMSG00 = Value
			End Set
		End Property


		Public Property [sDMMSG00]() As SqlString
			Get
				Return m_sDMMSG00
			End Get
			Set(ByVal Value As SqlString)
				m_sDMMSG00 = Value
			End Set
		End Property


		Public Property [sZTMSG00]() As SqlString
			Get
				Return m_sZTMSG00
			End Get
			Set(ByVal Value As SqlString)
				m_sZTMSG00 = Value
			End Set
		End Property


		Public Property [sBEPGM00]() As SqlString
			Get
				Return m_sBEPGM00
			End Get
			Set(ByVal Value As SqlString)
				m_sBEPGM00 = Value
			End Set
		End Property


		Public Property [sCDBNK00]() As SqlString
			Get
				Return m_sCDBNK00
			End Get
			Set(ByVal Value As SqlString)
				m_sCDBNK00 = Value
			End Set
		End Property


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


		Public Property [sBKPAR00]() As SqlString
			Get
				Return m_sBKPAR00
			End Get
			Set(ByVal Value As SqlString)
				m_sBKPAR00 = Value
			End Set
		End Property


		Public Property [iNRFOG012]() As SqlInt32
			Get
				Return m_iNRFOG012
			End Get
			Set(ByVal Value As SqlInt32)
				m_iNRFOG012 = Value
			End Set
		End Property


		Public Property [sBEBAN012]() As SqlString
			Get
				Return m_sBEBAN012
			End Get
			Set(ByVal Value As SqlString)
				m_sBEBAN012 = Value
			End Set
		End Property


		Public Property [sNRFOG022]() As SqlString
			Get
				Return m_sNRFOG022
			End Get
			Set(ByVal Value As SqlString)
				m_sNRFOG022 = Value
			End Set
		End Property


		Public Property [sBEBAN022]() As SqlString
			Get
				Return m_sBEBAN022
			End Get
			Set(ByVal Value As SqlString)
				m_sBEBAN022 = Value
			End Set
		End Property


		Public Property [sTXADZ012]() As SqlString
			Get
				Return m_sTXADZ012
			End Get
			Set(ByVal Value As SqlString)
				m_sTXADZ012 = Value
			End Set
		End Property


		Public Property [sTXADZ022]() As SqlString
			Get
				Return m_sTXADZ022
			End Get
			Set(ByVal Value As SqlString)
				m_sTXADZ022 = Value
			End Set
		End Property


		Public Property [sTXADZ032]() As SqlString
			Get
				Return m_sTXADZ032
			End Get
			Set(ByVal Value As SqlString)
				m_sTXADZ032 = Value
			End Set
		End Property


		Public Property [sTXADZ042]() As SqlString
			Get
				Return m_sTXADZ042
			End Get
			Set(ByVal Value As SqlString)
				m_sTXADZ042 = Value
			End Set
		End Property


		Public Property [sTXADZ052]() As SqlString
			Get
				Return m_sTXADZ052
			End Get
			Set(ByVal Value As SqlString)
				m_sTXADZ052 = Value
			End Set
		End Property


		Public Property [sTXADZ062]() As SqlString
			Get
				Return m_sTXADZ062
			End Get
			Set(ByVal Value As SqlString)
				m_sTXADZ062 = Value
			End Set
		End Property


		Public Property [sTXADZ072]() As SqlString
			Get
				Return m_sTXADZ072
			End Get
			Set(ByVal Value As SqlString)
				m_sTXADZ072 = Value
			End Set
		End Property


		Public Property [sNRPARAD]() As SqlString
			Get
				Return m_sNRPARAD
			End Get
			Set(ByVal Value As SqlString)
				m_sNRPARAD = Value
			End Set
		End Property


		Public Property [sNRADR00]() As SqlString
			Get
				Return m_sNRADR00
			End Get
			Set(ByVal Value As SqlString)
				m_sNRADR00 = Value
			End Set
		End Property


		Public Property [sNRFOG011]() As SqlString
			Get
				Return m_sNRFOG011
			End Get
			Set(ByVal Value As SqlString)
				m_sNRFOG011 = Value
			End Set
		End Property


		Public Property [sBEBAN011]() As SqlString
			Get
				Return m_sBEBAN011
			End Get
			Set(ByVal Value As SqlString)
				m_sBEBAN011 = Value
			End Set
		End Property


		Public Property [sNRFOG21]() As SqlString
			Get
				Return m_sNRFOG21
			End Get
			Set(ByVal Value As SqlString)
				m_sNRFOG21 = Value
			End Set
		End Property


		Public Property [sBEBAN21]() As SqlString
			Get
				Return m_sBEBAN21
			End Get
			Set(ByVal Value As SqlString)
				m_sBEBAN21 = Value
			End Set
		End Property


		Public Property [sTXADZ011]() As SqlString
			Get
				Return m_sTXADZ011
			End Get
			Set(ByVal Value As SqlString)
				m_sTXADZ011 = Value
			End Set
		End Property


		Public Property [sTXADZ021]() As SqlString
			Get
				Return m_sTXADZ021
			End Get
			Set(ByVal Value As SqlString)
				m_sTXADZ021 = Value
			End Set
		End Property


		Public Property [sTXADZ031]() As SqlString
			Get
				Return m_sTXADZ031
			End Get
			Set(ByVal Value As SqlString)
				m_sTXADZ031 = Value
			End Set
		End Property


		Public Property [sTXADZ041]() As SqlString
			Get
				Return m_sTXADZ041
			End Get
			Set(ByVal Value As SqlString)
				m_sTXADZ041 = Value
			End Set
		End Property


		Public Property [sTXADZ051]() As SqlString
			Get
				Return m_sTXADZ051
			End Get
			Set(ByVal Value As SqlString)
				m_sTXADZ051 = Value
			End Set
		End Property


		Public Property [sTXADZ061]() As SqlString
			Get
				Return m_sTXADZ061
			End Get
			Set(ByVal Value As SqlString)
				m_sTXADZ061 = Value
			End Set
		End Property


		Public Property [sTXADZ071]() As SqlString
			Get
				Return m_sTXADZ071
			End Get
			Set(ByVal Value As SqlString)
				m_sTXADZ071 = Value
			End Set
		End Property


		Public Property [sCDBAL00]() As SqlString
			Get
				Return m_sCDBAL00
			End Get
			Set(ByVal Value As SqlString)
				m_sCDBAL00 = Value
			End Set
		End Property


		Public Property [sCDVIG00]() As SqlString
			Get
				Return m_sCDVIG00
			End Get
			Set(ByVal Value As SqlString)
				m_sCDVIG00 = Value
			End Set
		End Property


		Public Property [sSAVRS00]() As SqlString
			Get
				Return m_sSAVRS00
			End Get
			Set(ByVal Value As SqlString)
				m_sSAVRS00 = Value
			End Set
		End Property


		Public Property [sTSMUT00]() As SqlString
			Get
				Return m_sTSMUT00
			End Get
			Set(ByVal Value As SqlString)
				m_sTSMUT00 = Value
			End Set
		End Property


		Public Property [sVDMUTER]() As SqlString
			Get
				Return m_sVDMUTER
			End Get
			Set(ByVal Value As SqlString)
				m_sVDMUTER = Value
			End Set
		End Property


		Public Property [sTXRes00]() As SqlString
			Get
				Return m_sTXRes00
			End Get
			Set(ByVal Value As SqlString)
				m_sTXRes00 = Value
			End Set
		End Property


		Public Property [bSaldiert]() As SqlBoolean
			Get
				Return m_bSaldiert
			End Get
			Set(ByVal Value As SqlBoolean)
				Dim bSaldiertTmp As SqlBoolean = Value
				If bSaldiertTmp.IsNull Then
					Throw New ArgumentOutOfRangeException("bSaldiert", "bSaldiert can't be NULL")
				End If
				m_bSaldiert = Value
			End Set
		End Property


		Public Property [iAZEPL00]() As SqlInt32
			Get
				Return m_iAZEPL00
			End Get
			Set(ByVal Value As SqlInt32)
				m_iAZEPL00 = Value
			End Set
		End Property


		Public Property [bCDVSA00]() As SqlBoolean
			Get
				Return m_bCDVSA00
			End Get
			Set(ByVal Value As SqlBoolean)
				Dim bCDVSA00Tmp As SqlBoolean = Value
				If bCDVSA00Tmp.IsNull Then
					Throw New ArgumentOutOfRangeException("bCDVSA00", "bCDVSA00 can't be NULL")
				End If
				m_bCDVSA00 = Value
			End Set
		End Property


		Public Property [daValidto]() As SqlDateTime
			Get
				Return m_daValidto
			End Get
			Set(ByVal Value As SqlDateTime)
				m_daValidto = Value
			End Set
		End Property

#End Region

	End Class
End Namespace