' ///////////////////////////////////////////////////////////////////////////
' // 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:
' ///
' /// - iNRPAR00
' /// - siNRADR00. May be SqlInt16.Null
' /// - siNRVRN00. May be SqlInt16.Null
' /// - siNRAAT00. May be SqlInt16.Null
' /// - sNRPARVO. May be SqlString.Null
' /// - siNRVAZ00. May be SqlInt16.Null
' /// - siNRARD00. May be SqlInt16.Null
' /// - siNRTTV00. May be SqlInt16.Null
' /// - sBEVNM01. May be SqlString.Null
' /// - sBEVNM02. May be SqlString.Null
' /// - sBEVNM03. May be SqlString.Null
' /// - sBEVNM04. May be SqlString.Null
' /// - siNRTTZ00. May be SqlInt16.Null
' /// - sBENNM01. May be SqlString.Null
' /// - sBETRZNN. May be SqlString.Null
' /// - sBENNM02. May be SqlString.Null
' /// - siNRNZU00. May be SqlInt16.Null
' /// - sBETTN00. May be SqlString.Null
' /// - sBENAM01. May be SqlString.Null
' /// - sBENAM02. May be SqlString.Null
' /// - sBENAM03. May be SqlString.Null
' /// - sBECOT01. May be SqlString.Null
' /// - sBECOT02. May be SqlString.Null
' /// - siNRZHK00. May be SqlInt16.Null
' /// - siNRARDZH. May be SqlInt16.Null
' /// - siNRTTVZH. May be SqlInt16.Null
' /// - sBEVNMZH. May be SqlString.Null
' /// - siNRTTZZH. May be SqlInt16.Null
' /// - sBENNMZ1. May be SqlString.Null
' /// - sBETRZZH. May be SqlString.Null
' /// - sBENNMZ2. May be SqlString.Null
' /// - siNRNZUZH. May be SqlInt16.Null
' /// - sBEORTZS. May be SqlString.Null
' /// - sBEWEI00. May be SqlString.Null
' /// - sBEFCHPT. May be SqlString.Null
' /// - sNRFCHPT. May be SqlString.Null
' /// - sBESTR00. May be SqlString.Null
' /// - sNRHAU00. May be SqlString.Null
' /// - sNRSTC00. May be SqlString.Null
' /// - siNRLND00. May be SqlInt16.Null
' /// - sCDPLZ00. May be SqlString.Null
' /// - sBEORTPT. May be SqlString.Null
' /// - sBEDIS00. May be SqlString.Null
' /// - iCDORTPT. May be SqlInt32.Null
' /// - iCDSTRPT. May be SqlInt32.Null
' /// - sSAVRS00. May be SqlString.Null
' /// - siNRUZG00. May be SqlInt16.Null
' /// - siNRNGR00. May be SqlInt16.Null
' /// - siNRFOG01. May be SqlInt16.Null
' /// - sBEBAN01. May be SqlString.Null
' /// - siNRFOG02. May be SqlInt16.Null
' /// - sBEBAN02. May be SqlString.Null
' /// - siNRVRNRI. May be SqlInt16.Null
' /// - sCDMUTER. May be SqlString.Null
' /// - daTSMUT00. May be SqlDateTime.Null
' /// - dcAZVRNHI. May be SqlDecimal.Null
' /// - daDMERF00. May be SqlDateTime.Null
' /// - sSAREC00. May be SqlString.Null
' /// - daDMKTRNA. May be SqlDateTime.Null
' /// - sCDKTRNA. May be SqlString.Null
' /// - sSAKTRNA. May be SqlString.Null
' /// - sCDPAW00. May be SqlString.Null
' /// - sSAREC01. May be SqlString.Null
' ///
' /// 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:
' ///
' /// - iNRPAR00
' /// - siNRADR00. May be SqlInt16.Null
' /// - siNRVRN00. May be SqlInt16.Null
' /// - siNRAAT00. May be SqlInt16.Null
' /// - sNRPARVO. May be SqlString.Null
' /// - siNRVAZ00. May be SqlInt16.Null
' /// - siNRARD00. May be SqlInt16.Null
' /// - siNRTTV00. May be SqlInt16.Null
' /// - sBEVNM01. May be SqlString.Null
' /// - sBEVNM02. May be SqlString.Null
' /// - sBEVNM03. May be SqlString.Null
' /// - sBEVNM04. May be SqlString.Null
' /// - siNRTTZ00. May be SqlInt16.Null
' /// - sBENNM01. May be SqlString.Null
' /// - sBETRZNN. May be SqlString.Null
' /// - sBENNM02. May be SqlString.Null
' /// - siNRNZU00. May be SqlInt16.Null
' /// - sBETTN00. May be SqlString.Null
' /// - sBENAM01. May be SqlString.Null
' /// - sBENAM02. May be SqlString.Null
' /// - sBENAM03. May be SqlString.Null
' /// - sBECOT01. May be SqlString.Null
' /// - sBECOT02. May be SqlString.Null
' /// - siNRZHK00. May be SqlInt16.Null
' /// - siNRARDZH. May be SqlInt16.Null
' /// - siNRTTVZH. May be SqlInt16.Null
' /// - sBEVNMZH. May be SqlString.Null
' /// - siNRTTZZH. May be SqlInt16.Null
' /// - sBENNMZ1. May be SqlString.Null
' /// - sBETRZZH. May be SqlString.Null
' /// - sBENNMZ2. May be SqlString.Null
' /// - siNRNZUZH. May be SqlInt16.Null
' /// - sBEORTZS. May be SqlString.Null
' /// - sBEWEI00. May be SqlString.Null
' /// - sBEFCHPT. May be SqlString.Null
' /// - sNRFCHPT. May be SqlString.Null
' /// - sBESTR00. May be SqlString.Null
' /// - sNRHAU00. May be SqlString.Null
' /// - sNRSTC00. May be SqlString.Null
' /// - siNRLND00. May be SqlInt16.Null
' /// - sCDPLZ00. May be SqlString.Null
' /// - sBEORTPT. May be SqlString.Null
' /// - sBEDIS00. May be SqlString.Null
' /// - iCDORTPT. May be SqlInt32.Null
' /// - iCDSTRPT. May be SqlInt32.Null
' /// - sSAVRS00. May be SqlString.Null
' /// - siNRUZG00. May be SqlInt16.Null
' /// - siNRNGR00. May be SqlInt16.Null
' /// - siNRFOG01. May be SqlInt16.Null
' /// - sBEBAN01. May be SqlString.Null
' /// - siNRFOG02. May be SqlInt16.Null
' /// - sBEBAN02. May be SqlString.Null
' /// - siNRVRNRI. May be SqlInt16.Null
' /// - sCDMUTER. May be SqlString.Null
' /// - daTSMUT00. May be SqlDateTime.Null
' /// - dcAZVRNHI. May be SqlDecimal.Null
' /// - daDMERF00. May be SqlDateTime.Null
' /// - sSAREC00. May be SqlString.Null
' /// - daDMKTRNA. May be SqlDateTime.Null
' /// - sCDKTRNA. May be SqlString.Null
' /// - sSAKTRNA. May be SqlString.Null
' /// - sCDPAW00. May be SqlString.Null
' /// - sSAREC01. May be SqlString.Null
' ///
' /// 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:
' ///
' /// - iErrorCode
' /// - iNRPAR00
' /// - siNRADR00
' /// - siNRVRN00
' /// - siNRAAT00
' /// - sNRPARVO
' /// - siNRVAZ00
' /// - siNRARD00
' /// - siNRTTV00
' /// - sBEVNM01
' /// - sBEVNM02
' /// - sBEVNM03
' /// - sBEVNM04
' /// - siNRTTZ00
' /// - sBENNM01
' /// - sBETRZNN
' /// - sBENNM02
' /// - siNRNZU00
' /// - sBETTN00
' /// - sBENAM01
' /// - sBENAM02
' /// - sBENAM03
' /// - sBECOT01
' /// - sBECOT02
' /// - siNRZHK00
' /// - siNRARDZH
' /// - siNRTTVZH
' /// - sBEVNMZH
' /// - siNRTTZZH
' /// - sBENNMZ1
' /// - sBETRZZH
' /// - sBENNMZ2
' /// - siNRNZUZH
' /// - sBEORTZS
' /// - sBEWEI00
' /// - sBEFCHPT
' /// - sNRFCHPT
' /// - sBESTR00
' /// - sNRHAU00
' /// - sNRSTC00
' /// - siNRLND00
' /// - sCDPLZ00
' /// - sBEORTPT
' /// - sBEDIS00
' /// - iCDORTPT
' /// - iCDSTRPT
' /// - sSAVRS00
' /// - siNRUZG00
' /// - siNRNGR00
' /// - siNRFOG01
' /// - sBEBAN01
' /// - siNRFOG02
' /// - sBEBAN02
' /// - siNRVRNRI
' /// - sCDMUTER
' /// - daTSMUT00
' /// - dcAZVRNHI
' /// - daDMERF00
' /// - sSAREC00
' /// - daDMKTRNA
' /// - sCDKTRNA
' /// - sSAKTRNA
' /// - sCDPAW00
' /// - sSAREC01
' ///
' /// 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