' /////////////////////////////////////////////////////////////////////////// ' // Description: Data Access class for the table 'Partner_Hauptadresse' ' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 27. April 2003, 22:42:45 ' // 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_dcAZVRNHI As SqlDecimal Private m_iCDORTPT, m_iNRPAR00, m_iCDSTRPT As SqlInt32 Private m_sBEBAN02, m_sBETRZZH, m_sBENNMZ1, m_sCDMUTER, m_sBECOT02, m_sBEVNMZH, m_sBEDIS00, m_sBENNMZ2, m_sNRHAU00, m_sBESTR00, m_sNRSTC00, m_sCDPLZ00, m_sBEBAN01, m_sBEORTZS, m_sBEORTPT, m_sBEWEI00, m_sNRFCHPT, m_sBEFCHPT, m_sSAREC00, m_sSAVRS00, m_sBEVNM02, m_sBEVNM01, m_sCDKTRNA, m_sCDPAW00, m_sSAREC01, m_sNRPARVO, m_sSAKTRNA, m_sBEVNM03, m_sBENAM02, m_sBENAM01, m_sBECOT01, m_sBENAM03, m_sBETTN00, m_sBENNM01, m_sBEVNM04, m_sBENNM02, m_sBETRZNN As SqlString Private m_daDMERF00, m_daDMKTRNA, m_daTSMUT00 As SqlDateTime Private m_siNRFOG01, m_siNRFOG02, m_siNRVRNRI, m_siNRNGR00, m_siNRARD00, m_siNRTTV00, m_siNRTTZ00, m_siNRVAZ00, m_siNRADR00, m_siNRVRN00, m_siNRAAT00, m_siNRNZU00, m_siNRNZUZH, m_siNRLND00, m_siNRUZG00, m_siNRTTZZH, m_siNRZHK00, m_siNRARDZH, m_siNRTTVZH 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, 20, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNM01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNM02", SqlDbType.NVarChar, 20, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNM02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNM03", SqlDbType.NVarChar, 20, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNM03)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNM04", SqlDbType.NVarChar, 20, 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, 35, 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, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBETTN00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENAM01", SqlDbType.NVarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENAM01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENAM02", SqlDbType.NVarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENAM02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENAM03", SqlDbType.NVarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENAM03)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBECOT01", SqlDbType.NVarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBECOT01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBECOT02", SqlDbType.NVarChar, 35, 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, 20, 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, 35, 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, 35, 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, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEORTZS)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEWEI00", SqlDbType.NVarChar, 35, 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, 35, 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, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEORTPT)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEDIS00", SqlDbType.NVarChar, 35, 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, 50, 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, 50, 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, 16, 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, 16, 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, 16, 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("@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, 20, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNM01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNM02", SqlDbType.NVarChar, 20, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNM02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNM03", SqlDbType.NVarChar, 20, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEVNM03)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEVNM04", SqlDbType.NVarChar, 20, 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, 35, 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, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBETTN00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENAM01", SqlDbType.NVarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENAM01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENAM02", SqlDbType.NVarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENAM02)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBENAM03", SqlDbType.NVarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBENAM03)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBECOT01", SqlDbType.NVarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBECOT01)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBECOT02", SqlDbType.NVarChar, 35, 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, 20, 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, 35, 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, 35, 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, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEORTZS)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEWEI00", SqlDbType.NVarChar, 35, 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, 35, 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, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEORTPT)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEDIS00", SqlDbType.NVarChar, 35, 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, 50, 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, 50, 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, 16, 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, 16, 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, 16, 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("@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: ' /// ' /// Public Overrides 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 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: ' /// ' /// Public Overrides 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 #End Region End Class End Namespace