' /////////////////////////////////////////////////////////////////////////// ' // Description: Data Access class for the table 'Partner_Hauptadresse' ' // 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 ''' ''' Purpose: Data Access class for the table 'Partner_Hauptadresse'. ''' Public Class clsPartner_Hauptadresse Inherits clsDBInteractionBase #Region " Class Member Declarations " Private m_daValidto As SqlDateTime Private m_dcAZVRNHI As SqlDecimal Private m_iNRPAR00, m_iCDORTPT, m_iCDSTRPT As SqlInt32 Private m_sBEORTZS, m_sNRPARVO, m_sNRFCHPT, m_sBEWEI00, m_sBENNMZ2, m_sBEVNMZH, m_sSAREC00, m_sBETRZZH, m_sBENNMZ1, m_sBESTR00, m_sSAVRS00, m_sCDMUTER, m_sBEBAN01, m_sBEBAN02, m_sBEDIS00, m_sNRSTC00, m_sNRHAU00, m_sBEORTPT, m_sCDPLZ00, m_sBENNM01, m_sCDPAW00, m_sBENNM02, m_sBEFCHPT, m_sBEVNM04, m_sBEVNM01, m_sSAREC01, m_sBEVNM03, m_sBEVNM02, m_sSAKTRNA, m_sCDKTRNA, m_sBENAM03, m_sBECOT02, m_sBECOT01, m_sBETTN00, m_sBETRZNN, m_sBENAM02, m_sBENAM01 As SqlString Private m_daDMERF00, m_daTSMUT00, m_daDMKTRNA As SqlDateTime Private m_siNRFOG02, m_siNRADR00, m_siNRVRNRI, m_siNRNZUZH, m_siNRZHK00, m_siNRARDZH, m_siNRTTVZH, m_siNRNZU00, m_siNRARD00, m_siNRTTV00, m_siNRTTZ00, m_siNRTTZZH, m_siNRUZG00, m_siNRNGR00, m_siNRFOG01, m_siNRVRN00, m_siNRVAZ00, m_siNRLND00, m_siNRAAT00 As SqlInt16 #End Region ''' ''' Purpose: Class constructor. ''' Public Sub New() ' // Nothing for now. End Sub ''' ''' Purpose: Insert method. This method will insert one new row into the database. ''' ''' True if succeeded, otherwise an Exception is thrown. ''' ''' Properties needed for this method: ''' ''' Properties set after a succesful call of this method: ''' ''' Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Partner_Hauptadresse_Insert]" 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("@siNRADR00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRADR00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRVRN00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRVRN00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRAAT00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRAAT00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPARVO", SqlDbType.NVarChar, 16, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPARVO)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRVAZ00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRVAZ00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRARD00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRARD00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRTTV00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRTTV00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNM01", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNM01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNM02", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNM02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNM03", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNM03)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNM04", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNM04)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRTTZ00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRTTZ00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENNM01", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENNM01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBETRZNN", SqlDbType.NVarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBETRZNN)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENNM02", SqlDbType.NVarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENNM02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRNZU00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRNZU00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBETTN00", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBETTN00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENAM01", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENAM01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENAM02", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENAM02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENAM03", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENAM03)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBECOT01", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBECOT01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBECOT02", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBECOT02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRZHK00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRZHK00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRARDZH", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRARDZH)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRTTVZH", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRTTVZH)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNMZH", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNMZH)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRTTZZH", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRTTZZH)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENNMZ1", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENNMZ1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBETRZZH", SqlDbType.NVarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBETRZZH)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENNMZ2", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENNMZ2)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRNZUZH", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRNZUZH)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEORTZS", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEORTZS)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEWEI00", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEWEI00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEFCHPT", SqlDbType.NVarChar, 16, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEFCHPT)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFCHPT", SqlDbType.NVarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFCHPT)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBESTR00", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBESTR00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRHAU00", SqlDbType.NVarChar, 6, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRHAU00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRSTC00", SqlDbType.NVarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRSTC00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRLND00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRLND00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDPLZ00", SqlDbType.NVarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDPLZ00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEORTPT", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEORTPT)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEDIS00", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEDIS00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iCDORTPT", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iCDORTPT)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iCDSTRPT", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iCDSTRPT)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAVRS00", SqlDbType.NVarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAVRS00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRUZG00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRUZG00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRNGR00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRNGR00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRFOG01", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRFOG01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN01", SqlDbType.NVarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRFOG02", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRFOG02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN02", SqlDbType.NVarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRVRNRI", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRVRNRI)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDMUTER", SqlDbType.NVarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDMUTER)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daTSMUT00", SqlDbType.SmallDateTime, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daTSMUT00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dcAZVRNHI", SqlDbType.Decimal, 5, ParameterDirection.Input, True, 5, 1, "", DataRowVersion.Proposed, m_dcAZVRNHI)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daDMERF00", SqlDbType.SmallDateTime, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daDMERF00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAREC00", SqlDbType.NVarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAREC00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daDMKTRNA", SqlDbType.SmallDateTime, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daDMKTRNA)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDKTRNA", SqlDbType.NVarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDKTRNA)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAKTRNA", SqlDbType.NVarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAKTRNA)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDPAW00", SqlDbType.NVarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDPAW00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAREC01", SqlDbType.NVarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAREC01)) 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. 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_Hauptadresse_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_Hauptadresse::Insert::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function ''' ''' Purpose: Update method. This method will Update one existing row in the database. ''' ''' True if succeeded, otherwise an Exception is thrown. ''' ''' Properties needed for this method: ''' ''' Properties set after a succesful call of this method: ''' ''' Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Partner_Hauptadresse_Update]" 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("@siNRADR00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRADR00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRVRN00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRVRN00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRAAT00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRAAT00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPARVO", SqlDbType.NVarChar, 16, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPARVO)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRVAZ00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRVAZ00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRARD00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRARD00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRTTV00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRTTV00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNM01", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNM01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNM02", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNM02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNM03", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNM03)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNM04", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNM04)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRTTZ00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRTTZ00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENNM01", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENNM01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBETRZNN", SqlDbType.NVarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBETRZNN)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENNM02", SqlDbType.NVarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENNM02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRNZU00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRNZU00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBETTN00", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBETTN00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENAM01", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENAM01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENAM02", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENAM02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENAM03", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENAM03)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBECOT01", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBECOT01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBECOT02", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBECOT02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRZHK00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRZHK00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRARDZH", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRARDZH)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRTTVZH", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRTTVZH)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNMZH", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNMZH)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRTTZZH", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRTTZZH)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENNMZ1", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENNMZ1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBETRZZH", SqlDbType.NVarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBETRZZH)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENNMZ2", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENNMZ2)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRNZUZH", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRNZUZH)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEORTZS", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEORTZS)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEWEI00", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEWEI00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEFCHPT", SqlDbType.NVarChar, 16, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEFCHPT)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFCHPT", SqlDbType.NVarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFCHPT)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBESTR00", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBESTR00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRHAU00", SqlDbType.NVarChar, 6, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRHAU00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRSTC00", SqlDbType.NVarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRSTC00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRLND00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRLND00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDPLZ00", SqlDbType.NVarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDPLZ00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEORTPT", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEORTPT)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEDIS00", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEDIS00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iCDORTPT", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iCDORTPT)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iCDSTRPT", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iCDSTRPT)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAVRS00", SqlDbType.NVarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAVRS00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRUZG00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRUZG00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRNGR00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRNGR00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRFOG01", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRFOG01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN01", SqlDbType.NVarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRFOG02", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRFOG02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN02", SqlDbType.NVarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@siNRVRNRI", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siNRVRNRI)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDMUTER", SqlDbType.NVarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDMUTER)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daTSMUT00", SqlDbType.SmallDateTime, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daTSMUT00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dcAZVRNHI", SqlDbType.Decimal, 5, ParameterDirection.Input, True, 5, 1, "", DataRowVersion.Proposed, m_dcAZVRNHI)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daDMERF00", SqlDbType.SmallDateTime, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daDMERF00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAREC00", SqlDbType.NVarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAREC00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daDMKTRNA", SqlDbType.SmallDateTime, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daDMKTRNA)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDKTRNA", SqlDbType.NVarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDKTRNA)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAKTRNA", SqlDbType.NVarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAKTRNA)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDPAW00", SqlDbType.NVarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDPAW00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAREC01", SqlDbType.NVarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAREC01)) 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. 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_Hauptadresse_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_Hauptadresse::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function ''' ''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. ''' ''' True if succeeded, otherwise an Exception is thrown. ''' ''' Properties needed for this method: ''' ''' Properties set after a succesful call of this method: ''' ''' Overrides Public Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Partner_Hauptadresse_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. 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_Hauptadresse_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_Hauptadresse::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function ''' ''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. ''' ''' DataTable object if succeeded, otherwise an Exception is thrown. ''' ''' Properties needed for this method: ''' ''' Properties set after a succesful call of this method: ''' ''' Will fill all properties corresponding with a field in the table with the value of the row selected. ''' Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Partner_Hauptadresse_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("Partner_Hauptadresse") 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_Hauptadresse_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_iNRPAR00 = New SqlInt32(CType(dtToReturn.Rows(0)("NRPAR00"), Integer)) If dtToReturn.Rows(0)("NRADR00") Is System.DBNull.Value Then m_siNRADR00 = SqlInt16.Null Else m_siNRADR00 = New SqlInt16(CType(dtToReturn.Rows(0)("NRADR00"), Short)) End If If dtToReturn.Rows(0)("NRVRN00") Is System.DBNull.Value Then m_siNRVRN00 = SqlInt16.Null Else m_siNRVRN00 = New SqlInt16(CType(dtToReturn.Rows(0)("NRVRN00"), Short)) End If If dtToReturn.Rows(0)("NRAAT00") Is System.DBNull.Value Then m_siNRAAT00 = SqlInt16.Null Else m_siNRAAT00 = New SqlInt16(CType(dtToReturn.Rows(0)("NRAAT00"), Short)) End If If dtToReturn.Rows(0)("NRPARVO") Is System.DBNull.Value Then m_sNRPARVO = SqlString.Null Else m_sNRPARVO = New SqlString(CType(dtToReturn.Rows(0)("NRPARVO"), String)) End If If dtToReturn.Rows(0)("NRVAZ00") Is System.DBNull.Value Then m_siNRVAZ00 = SqlInt16.Null Else m_siNRVAZ00 = New SqlInt16(CType(dtToReturn.Rows(0)("NRVAZ00"), Short)) End If If dtToReturn.Rows(0)("NRARD00") Is System.DBNull.Value Then m_siNRARD00 = SqlInt16.Null Else m_siNRARD00 = New SqlInt16(CType(dtToReturn.Rows(0)("NRARD00"), Short)) End If If dtToReturn.Rows(0)("NRTTV00") Is System.DBNull.Value Then m_siNRTTV00 = SqlInt16.Null Else m_siNRTTV00 = New SqlInt16(CType(dtToReturn.Rows(0)("NRTTV00"), Short)) End If If dtToReturn.Rows(0)("BEVNM01") Is System.DBNull.Value Then m_sBEVNM01 = SqlString.Null Else m_sBEVNM01 = New SqlString(CType(dtToReturn.Rows(0)("BEVNM01"), String)) End If If dtToReturn.Rows(0)("BEVNM02") Is System.DBNull.Value Then m_sBEVNM02 = SqlString.Null Else m_sBEVNM02 = New SqlString(CType(dtToReturn.Rows(0)("BEVNM02"), String)) End If If dtToReturn.Rows(0)("BEVNM03") Is System.DBNull.Value Then m_sBEVNM03 = SqlString.Null Else m_sBEVNM03 = New SqlString(CType(dtToReturn.Rows(0)("BEVNM03"), String)) End If If dtToReturn.Rows(0)("BEVNM04") Is System.DBNull.Value Then m_sBEVNM04 = SqlString.Null Else m_sBEVNM04 = New SqlString(CType(dtToReturn.Rows(0)("BEVNM04"), String)) End If If dtToReturn.Rows(0)("NRTTZ00") Is System.DBNull.Value Then m_siNRTTZ00 = SqlInt16.Null Else m_siNRTTZ00 = New SqlInt16(CType(dtToReturn.Rows(0)("NRTTZ00"), Short)) End If If dtToReturn.Rows(0)("BENNM01") Is System.DBNull.Value Then m_sBENNM01 = SqlString.Null Else m_sBENNM01 = New SqlString(CType(dtToReturn.Rows(0)("BENNM01"), String)) End If If dtToReturn.Rows(0)("BETRZNN") Is System.DBNull.Value Then m_sBETRZNN = SqlString.Null Else m_sBETRZNN = New SqlString(CType(dtToReturn.Rows(0)("BETRZNN"), String)) End If If dtToReturn.Rows(0)("BENNM02") Is System.DBNull.Value Then m_sBENNM02 = SqlString.Null Else m_sBENNM02 = New SqlString(CType(dtToReturn.Rows(0)("BENNM02"), String)) End If If dtToReturn.Rows(0)("NRNZU00") Is System.DBNull.Value Then m_siNRNZU00 = SqlInt16.Null Else m_siNRNZU00 = New SqlInt16(CType(dtToReturn.Rows(0)("NRNZU00"), Short)) End If If dtToReturn.Rows(0)("BETTN00") Is System.DBNull.Value Then m_sBETTN00 = SqlString.Null Else m_sBETTN00 = New SqlString(CType(dtToReturn.Rows(0)("BETTN00"), String)) End If If dtToReturn.Rows(0)("BENAM01") Is System.DBNull.Value Then m_sBENAM01 = SqlString.Null Else m_sBENAM01 = New SqlString(CType(dtToReturn.Rows(0)("BENAM01"), String)) End If If dtToReturn.Rows(0)("BENAM02") Is System.DBNull.Value Then m_sBENAM02 = SqlString.Null Else m_sBENAM02 = New SqlString(CType(dtToReturn.Rows(0)("BENAM02"), String)) End If If dtToReturn.Rows(0)("BENAM03") Is System.DBNull.Value Then m_sBENAM03 = SqlString.Null Else m_sBENAM03 = New SqlString(CType(dtToReturn.Rows(0)("BENAM03"), String)) End If If dtToReturn.Rows(0)("BECOT01") Is System.DBNull.Value Then m_sBECOT01 = SqlString.Null Else m_sBECOT01 = New SqlString(CType(dtToReturn.Rows(0)("BECOT01"), String)) End If If dtToReturn.Rows(0)("BECOT02") Is System.DBNull.Value Then m_sBECOT02 = SqlString.Null Else m_sBECOT02 = New SqlString(CType(dtToReturn.Rows(0)("BECOT02"), String)) End If If dtToReturn.Rows(0)("NRZHK00") Is System.DBNull.Value Then m_siNRZHK00 = SqlInt16.Null Else m_siNRZHK00 = New SqlInt16(CType(dtToReturn.Rows(0)("NRZHK00"), Short)) End If If dtToReturn.Rows(0)("NRARDZH") Is System.DBNull.Value Then m_siNRARDZH = SqlInt16.Null Else m_siNRARDZH = New SqlInt16(CType(dtToReturn.Rows(0)("NRARDZH"), Short)) End If If dtToReturn.Rows(0)("NRTTVZH") Is System.DBNull.Value Then m_siNRTTVZH = SqlInt16.Null Else m_siNRTTVZH = New SqlInt16(CType(dtToReturn.Rows(0)("NRTTVZH"), Short)) End If If dtToReturn.Rows(0)("BEVNMZH") Is System.DBNull.Value Then m_sBEVNMZH = SqlString.Null Else m_sBEVNMZH = New SqlString(CType(dtToReturn.Rows(0)("BEVNMZH"), String)) End If If dtToReturn.Rows(0)("NRTTZZH") Is System.DBNull.Value Then m_siNRTTZZH = SqlInt16.Null Else m_siNRTTZZH = New SqlInt16(CType(dtToReturn.Rows(0)("NRTTZZH"), Short)) End If If dtToReturn.Rows(0)("BENNMZ1") Is System.DBNull.Value Then m_sBENNMZ1 = SqlString.Null Else m_sBENNMZ1 = New SqlString(CType(dtToReturn.Rows(0)("BENNMZ1"), String)) End If If dtToReturn.Rows(0)("BETRZZH") Is System.DBNull.Value Then m_sBETRZZH = SqlString.Null Else m_sBETRZZH = New SqlString(CType(dtToReturn.Rows(0)("BETRZZH"), String)) End If If dtToReturn.Rows(0)("BENNMZ2") Is System.DBNull.Value Then m_sBENNMZ2 = SqlString.Null Else m_sBENNMZ2 = New SqlString(CType(dtToReturn.Rows(0)("BENNMZ2"), String)) End If If dtToReturn.Rows(0)("NRNZUZH") Is System.DBNull.Value Then m_siNRNZUZH = SqlInt16.Null Else m_siNRNZUZH = New SqlInt16(CType(dtToReturn.Rows(0)("NRNZUZH"), Short)) End If If dtToReturn.Rows(0)("BEORTZS") Is System.DBNull.Value Then m_sBEORTZS = SqlString.Null Else m_sBEORTZS = New SqlString(CType(dtToReturn.Rows(0)("BEORTZS"), String)) End If If dtToReturn.Rows(0)("BEWEI00") Is System.DBNull.Value Then m_sBEWEI00 = SqlString.Null Else m_sBEWEI00 = New SqlString(CType(dtToReturn.Rows(0)("BEWEI00"), String)) End If If dtToReturn.Rows(0)("BEFCHPT") Is System.DBNull.Value Then m_sBEFCHPT = SqlString.Null Else m_sBEFCHPT = New SqlString(CType(dtToReturn.Rows(0)("BEFCHPT"), String)) End If If dtToReturn.Rows(0)("NRFCHPT") Is System.DBNull.Value Then m_sNRFCHPT = SqlString.Null Else m_sNRFCHPT = New SqlString(CType(dtToReturn.Rows(0)("NRFCHPT"), String)) End If If dtToReturn.Rows(0)("BESTR00") Is System.DBNull.Value Then m_sBESTR00 = SqlString.Null Else m_sBESTR00 = New SqlString(CType(dtToReturn.Rows(0)("BESTR00"), String)) End If If dtToReturn.Rows(0)("NRHAU00") Is System.DBNull.Value Then m_sNRHAU00 = SqlString.Null Else m_sNRHAU00 = New SqlString(CType(dtToReturn.Rows(0)("NRHAU00"), String)) End If If dtToReturn.Rows(0)("NRSTC00") Is System.DBNull.Value Then m_sNRSTC00 = SqlString.Null Else m_sNRSTC00 = New SqlString(CType(dtToReturn.Rows(0)("NRSTC00"), String)) End If If dtToReturn.Rows(0)("NRLND00") Is System.DBNull.Value Then m_siNRLND00 = SqlInt16.Null Else m_siNRLND00 = New SqlInt16(CType(dtToReturn.Rows(0)("NRLND00"), Short)) End If If dtToReturn.Rows(0)("CDPLZ00") Is System.DBNull.Value Then m_sCDPLZ00 = SqlString.Null Else m_sCDPLZ00 = New SqlString(CType(dtToReturn.Rows(0)("CDPLZ00"), String)) End If If dtToReturn.Rows(0)("BEORTPT") Is System.DBNull.Value Then m_sBEORTPT = SqlString.Null Else m_sBEORTPT = New SqlString(CType(dtToReturn.Rows(0)("BEORTPT"), String)) End If If dtToReturn.Rows(0)("BEDIS00") Is System.DBNull.Value Then m_sBEDIS00 = SqlString.Null Else m_sBEDIS00 = New SqlString(CType(dtToReturn.Rows(0)("BEDIS00"), String)) End If If dtToReturn.Rows(0)("CDORTPT") Is System.DBNull.Value Then m_iCDORTPT = SqlInt32.Null Else m_iCDORTPT = New SqlInt32(CType(dtToReturn.Rows(0)("CDORTPT"), Integer)) End If If dtToReturn.Rows(0)("CDSTRPT") Is System.DBNull.Value Then m_iCDSTRPT = SqlInt32.Null Else m_iCDSTRPT = New SqlInt32(CType(dtToReturn.Rows(0)("CDSTRPT"), Integer)) 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)("NRUZG00") Is System.DBNull.Value Then m_siNRUZG00 = SqlInt16.Null Else m_siNRUZG00 = New SqlInt16(CType(dtToReturn.Rows(0)("NRUZG00"), Short)) End If If dtToReturn.Rows(0)("NRNGR00") Is System.DBNull.Value Then m_siNRNGR00 = SqlInt16.Null Else m_siNRNGR00 = New SqlInt16(CType(dtToReturn.Rows(0)("NRNGR00"), Short)) End If If dtToReturn.Rows(0)("NRFOG01") Is System.DBNull.Value Then m_siNRFOG01 = SqlInt16.Null Else m_siNRFOG01 = New SqlInt16(CType(dtToReturn.Rows(0)("NRFOG01"), Short)) End If If dtToReturn.Rows(0)("BEBAN01") Is System.DBNull.Value Then m_sBEBAN01 = SqlString.Null Else m_sBEBAN01 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN01"), String)) End If If dtToReturn.Rows(0)("NRFOG02") Is System.DBNull.Value Then m_siNRFOG02 = SqlInt16.Null Else m_siNRFOG02 = New SqlInt16(CType(dtToReturn.Rows(0)("NRFOG02"), Short)) End If If dtToReturn.Rows(0)("BEBAN02") Is System.DBNull.Value Then m_sBEBAN02 = SqlString.Null Else m_sBEBAN02 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN02"), String)) End If If dtToReturn.Rows(0)("NRVRNRI") Is System.DBNull.Value Then m_siNRVRNRI = SqlInt16.Null Else m_siNRVRNRI = New SqlInt16(CType(dtToReturn.Rows(0)("NRVRNRI"), Short)) End If If dtToReturn.Rows(0)("CDMUTER") Is System.DBNull.Value Then m_sCDMUTER = SqlString.Null Else m_sCDMUTER = New SqlString(CType(dtToReturn.Rows(0)("CDMUTER"), String)) End If If dtToReturn.Rows(0)("TSMUT00") Is System.DBNull.Value Then m_daTSMUT00 = SqlDateTime.Null Else m_daTSMUT00 = New SqlDateTime(CType(dtToReturn.Rows(0)("TSMUT00"), Date)) End If If dtToReturn.Rows(0)("AZVRNHI") Is System.DBNull.Value Then m_dcAZVRNHI = SqlDecimal.Null Else m_dcAZVRNHI = New SqlDecimal(CType(dtToReturn.Rows(0)("AZVRNHI"), Decimal)) End If If dtToReturn.Rows(0)("DMERF00") Is System.DBNull.Value Then m_daDMERF00 = SqlDateTime.Null Else m_daDMERF00 = New SqlDateTime(CType(dtToReturn.Rows(0)("DMERF00"), Date)) End If If dtToReturn.Rows(0)("SAREC00") Is System.DBNull.Value Then m_sSAREC00 = SqlString.Null Else m_sSAREC00 = New SqlString(CType(dtToReturn.Rows(0)("SAREC00"), String)) End If If dtToReturn.Rows(0)("DMKTRNA") Is System.DBNull.Value Then m_daDMKTRNA = SqlDateTime.Null Else m_daDMKTRNA = New SqlDateTime(CType(dtToReturn.Rows(0)("DMKTRNA"), Date)) End If If dtToReturn.Rows(0)("CDKTRNA") Is System.DBNull.Value Then m_sCDKTRNA = SqlString.Null Else m_sCDKTRNA = New SqlString(CType(dtToReturn.Rows(0)("CDKTRNA"), String)) End If If dtToReturn.Rows(0)("SAKTRNA") Is System.DBNull.Value Then m_sSAKTRNA = SqlString.Null Else m_sSAKTRNA = New SqlString(CType(dtToReturn.Rows(0)("SAKTRNA"), String)) End If If dtToReturn.Rows(0)("CDPAW00") Is System.DBNull.Value Then m_sCDPAW00 = SqlString.Null Else m_sCDPAW00 = New SqlString(CType(dtToReturn.Rows(0)("CDPAW00"), String)) End If If dtToReturn.Rows(0)("SAREC01") Is System.DBNull.Value Then m_sSAREC01 = SqlString.Null Else m_sSAREC01 = New SqlString(CType(dtToReturn.Rows(0)("SAREC01"), String)) End If 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_Hauptadresse::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function ''' ''' Purpose: SelectAll method. This method will Select all rows from the table. ''' ''' DataTable object if succeeded, otherwise an Exception is thrown. ''' ''' Properties set after a succesful call of this method: ''' ''' Overrides Public Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Partner_Hauptadresse_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("Partner_Hauptadresse") 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_Hauptadresse_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_Hauptadresse::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 [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 [siNRADR00]() As SqlInt16 Get Return m_siNRADR00 End Get Set(ByVal Value As SqlInt16) m_siNRADR00 = Value End Set End Property Public Property [siNRVRN00]() As SqlInt16 Get Return m_siNRVRN00 End Get Set(ByVal Value As SqlInt16) m_siNRVRN00 = Value End Set End Property Public Property [siNRAAT00]() As SqlInt16 Get Return m_siNRAAT00 End Get Set(ByVal Value As SqlInt16) m_siNRAAT00 = Value End Set End Property Public Property [sNRPARVO]() As SqlString Get Return m_sNRPARVO End Get Set(ByVal Value As SqlString) m_sNRPARVO = Value End Set End Property Public Property [siNRVAZ00]() As SqlInt16 Get Return m_siNRVAZ00 End Get Set(ByVal Value As SqlInt16) m_siNRVAZ00 = Value End Set End Property Public Property [siNRARD00]() As SqlInt16 Get Return m_siNRARD00 End Get Set(ByVal Value As SqlInt16) m_siNRARD00 = Value End Set End Property Public Property [siNRTTV00]() As SqlInt16 Get Return m_siNRTTV00 End Get Set(ByVal Value As SqlInt16) m_siNRTTV00 = Value End Set End Property Public Property [sBEVNM01]() As SqlString Get Return m_sBEVNM01 End Get Set(ByVal Value As SqlString) m_sBEVNM01 = Value End Set End Property Public Property [sBEVNM02]() As SqlString Get Return m_sBEVNM02 End Get Set(ByVal Value As SqlString) m_sBEVNM02 = Value End Set End Property Public Property [sBEVNM03]() As SqlString Get Return m_sBEVNM03 End Get Set(ByVal Value As SqlString) m_sBEVNM03 = Value End Set End Property Public Property [sBEVNM04]() As SqlString Get Return m_sBEVNM04 End Get Set(ByVal Value As SqlString) m_sBEVNM04 = Value End Set End Property Public Property [siNRTTZ00]() As SqlInt16 Get Return m_siNRTTZ00 End Get Set(ByVal Value As SqlInt16) m_siNRTTZ00 = Value End Set End Property Public Property [sBENNM01]() As SqlString Get Return m_sBENNM01 End Get Set(ByVal Value As SqlString) m_sBENNM01 = Value End Set End Property Public Property [sBETRZNN]() As SqlString Get Return m_sBETRZNN End Get Set(ByVal Value As SqlString) m_sBETRZNN = Value End Set End Property Public Property [sBENNM02]() As SqlString Get Return m_sBENNM02 End Get Set(ByVal Value As SqlString) m_sBENNM02 = Value End Set End Property Public Property [siNRNZU00]() As SqlInt16 Get Return m_siNRNZU00 End Get Set(ByVal Value As SqlInt16) m_siNRNZU00 = Value End Set End Property Public Property [sBETTN00]() As SqlString Get Return m_sBETTN00 End Get Set(ByVal Value As SqlString) m_sBETTN00 = Value End Set End Property Public Property [sBENAM01]() As SqlString Get Return m_sBENAM01 End Get Set(ByVal Value As SqlString) m_sBENAM01 = Value End Set End Property Public Property [sBENAM02]() As SqlString Get Return m_sBENAM02 End Get Set(ByVal Value As SqlString) m_sBENAM02 = Value End Set End Property Public Property [sBENAM03]() As SqlString Get Return m_sBENAM03 End Get Set(ByVal Value As SqlString) m_sBENAM03 = Value End Set End Property Public Property [sBECOT01]() As SqlString Get Return m_sBECOT01 End Get Set(ByVal Value As SqlString) m_sBECOT01 = Value End Set End Property Public Property [sBECOT02]() As SqlString Get Return m_sBECOT02 End Get Set(ByVal Value As SqlString) m_sBECOT02 = Value End Set End Property Public Property [siNRZHK00]() As SqlInt16 Get Return m_siNRZHK00 End Get Set(ByVal Value As SqlInt16) m_siNRZHK00 = Value End Set End Property Public Property [siNRARDZH]() As SqlInt16 Get Return m_siNRARDZH End Get Set(ByVal Value As SqlInt16) m_siNRARDZH = Value End Set End Property Public Property [siNRTTVZH]() As SqlInt16 Get Return m_siNRTTVZH End Get Set(ByVal Value As SqlInt16) m_siNRTTVZH = Value End Set End Property Public Property [sBEVNMZH]() As SqlString Get Return m_sBEVNMZH End Get Set(ByVal Value As SqlString) m_sBEVNMZH = Value End Set End Property Public Property [siNRTTZZH]() As SqlInt16 Get Return m_siNRTTZZH End Get Set(ByVal Value As SqlInt16) m_siNRTTZZH = Value End Set End Property Public Property [sBENNMZ1]() As SqlString Get Return m_sBENNMZ1 End Get Set(ByVal Value As SqlString) m_sBENNMZ1 = Value End Set End Property Public Property [sBETRZZH]() As SqlString Get Return m_sBETRZZH End Get Set(ByVal Value As SqlString) m_sBETRZZH = Value End Set End Property Public Property [sBENNMZ2]() As SqlString Get Return m_sBENNMZ2 End Get Set(ByVal Value As SqlString) m_sBENNMZ2 = Value End Set End Property Public Property [siNRNZUZH]() As SqlInt16 Get Return m_siNRNZUZH End Get Set(ByVal Value As SqlInt16) m_siNRNZUZH = Value End Set End Property Public Property [sBEORTZS]() As SqlString Get Return m_sBEORTZS End Get Set(ByVal Value As SqlString) m_sBEORTZS = Value End Set End Property Public Property [sBEWEI00]() As SqlString Get Return m_sBEWEI00 End Get Set(ByVal Value As SqlString) m_sBEWEI00 = Value End Set End Property Public Property [sBEFCHPT]() As SqlString Get Return m_sBEFCHPT End Get Set(ByVal Value As SqlString) m_sBEFCHPT = Value End Set End Property Public Property [sNRFCHPT]() As SqlString Get Return m_sNRFCHPT End Get Set(ByVal Value As SqlString) m_sNRFCHPT = Value End Set End Property Public Property [sBESTR00]() As SqlString Get Return m_sBESTR00 End Get Set(ByVal Value As SqlString) m_sBESTR00 = Value End Set End Property Public Property [sNRHAU00]() As SqlString Get Return m_sNRHAU00 End Get Set(ByVal Value As SqlString) m_sNRHAU00 = Value End Set End Property Public Property [sNRSTC00]() As SqlString Get Return m_sNRSTC00 End Get Set(ByVal Value As SqlString) m_sNRSTC00 = Value End Set End Property Public Property [siNRLND00]() As SqlInt16 Get Return m_siNRLND00 End Get Set(ByVal Value As SqlInt16) m_siNRLND00 = Value End Set End Property Public Property [sCDPLZ00]() As SqlString Get Return m_sCDPLZ00 End Get Set(ByVal Value As SqlString) m_sCDPLZ00 = Value End Set End Property Public Property [sBEORTPT]() As SqlString Get Return m_sBEORTPT End Get Set(ByVal Value As SqlString) m_sBEORTPT = Value End Set End Property Public Property [sBEDIS00]() As SqlString Get Return m_sBEDIS00 End Get Set(ByVal Value As SqlString) m_sBEDIS00 = Value End Set End Property Public Property [iCDORTPT]() As SqlInt32 Get Return m_iCDORTPT End Get Set(ByVal Value As SqlInt32) m_iCDORTPT = Value End Set End Property Public Property [iCDSTRPT]() As SqlInt32 Get Return m_iCDSTRPT End Get Set(ByVal Value As SqlInt32) m_iCDSTRPT = 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 [siNRUZG00]() As SqlInt16 Get Return m_siNRUZG00 End Get Set(ByVal Value As SqlInt16) m_siNRUZG00 = Value End Set End Property Public Property [siNRNGR00]() As SqlInt16 Get Return m_siNRNGR00 End Get Set(ByVal Value As SqlInt16) m_siNRNGR00 = Value End Set End Property Public Property [siNRFOG01]() As SqlInt16 Get Return m_siNRFOG01 End Get Set(ByVal Value As SqlInt16) m_siNRFOG01 = Value End Set End Property Public Property [sBEBAN01]() As SqlString Get Return m_sBEBAN01 End Get Set(ByVal Value As SqlString) m_sBEBAN01 = Value End Set End Property Public Property [siNRFOG02]() As SqlInt16 Get Return m_siNRFOG02 End Get Set(ByVal Value As SqlInt16) m_siNRFOG02 = Value End Set End Property Public Property [sBEBAN02]() As SqlString Get Return m_sBEBAN02 End Get Set(ByVal Value As SqlString) m_sBEBAN02 = Value End Set End Property Public Property [siNRVRNRI]() As SqlInt16 Get Return m_siNRVRNRI End Get Set(ByVal Value As SqlInt16) m_siNRVRNRI = Value End Set End Property Public Property [sCDMUTER]() As SqlString Get Return m_sCDMUTER End Get Set(ByVal Value As SqlString) m_sCDMUTER = Value End Set End Property Public Property [daTSMUT00]() As SqlDateTime Get Return m_daTSMUT00 End Get Set(ByVal Value As SqlDateTime) m_daTSMUT00 = Value End Set End Property Public Property [dcAZVRNHI]() As SqlDecimal Get Return m_dcAZVRNHI End Get Set(ByVal Value As SqlDecimal) m_dcAZVRNHI = Value End Set End Property Public Property [daDMERF00]() As SqlDateTime Get Return m_daDMERF00 End Get Set(ByVal Value As SqlDateTime) m_daDMERF00 = Value End Set End Property Public Property [sSAREC00]() As SqlString Get Return m_sSAREC00 End Get Set(ByVal Value As SqlString) m_sSAREC00 = Value End Set End Property Public Property [daDMKTRNA]() As SqlDateTime Get Return m_daDMKTRNA End Get Set(ByVal Value As SqlDateTime) m_daDMKTRNA = Value End Set End Property Public Property [sCDKTRNA]() As SqlString Get Return m_sCDKTRNA End Get Set(ByVal Value As SqlString) m_sCDKTRNA = Value End Set End Property Public Property [sSAKTRNA]() As SqlString Get Return m_sSAKTRNA End Get Set(ByVal Value As SqlString) m_sSAKTRNA = Value End Set End Property Public Property [sCDPAW00]() As SqlString Get Return m_sCDPAW00 End Get Set(ByVal Value As SqlString) m_sCDPAW00 = Value End Set End Property Public Property [sSAREC01]() As SqlString Get Return m_sSAREC01 End Get Set(ByVal Value As SqlString) m_sSAREC01 = 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