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