You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1592 lines
70 KiB
1592 lines
70 KiB
' ///////////////////////////////////////////////////////////////////////////
|
|
' // 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
|
|
' /// <summary>
|
|
' /// Purpose: Data Access class for the table 'Partner_Hauptadresse'.
|
|
' /// </summary>
|
|
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
|
|
|
|
|
|
' /// <summary>
|
|
' /// Purpose: Class constructor.
|
|
' /// </summary>
|
|
Public Sub New()
|
|
' // Nothing for now.
|
|
End Sub
|
|
|
|
|
|
' /// <summary>
|
|
' /// Purpose: Insert method. This method will insert one new row into the database.
|
|
' /// </summary>
|
|
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
|
' /// <remarks>
|
|
' /// Properties needed for this method:
|
|
' /// <UL>
|
|
' /// <LI>iNRPAR00</LI>
|
|
' /// <LI>siNRADR00. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRVRN00. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRAAT00. May be SqlInt16.Null</LI>
|
|
' /// <LI>sNRPARVO. May be SqlString.Null</LI>
|
|
' /// <LI>siNRVAZ00. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRARD00. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRTTV00. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBEVNM01. May be SqlString.Null</LI>
|
|
' /// <LI>sBEVNM02. May be SqlString.Null</LI>
|
|
' /// <LI>sBEVNM03. May be SqlString.Null</LI>
|
|
' /// <LI>sBEVNM04. May be SqlString.Null</LI>
|
|
' /// <LI>siNRTTZ00. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBENNM01. May be SqlString.Null</LI>
|
|
' /// <LI>sBETRZNN. May be SqlString.Null</LI>
|
|
' /// <LI>sBENNM02. May be SqlString.Null</LI>
|
|
' /// <LI>siNRNZU00. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBETTN00. May be SqlString.Null</LI>
|
|
' /// <LI>sBENAM01. May be SqlString.Null</LI>
|
|
' /// <LI>sBENAM02. May be SqlString.Null</LI>
|
|
' /// <LI>sBENAM03. May be SqlString.Null</LI>
|
|
' /// <LI>sBECOT01. May be SqlString.Null</LI>
|
|
' /// <LI>sBECOT02. May be SqlString.Null</LI>
|
|
' /// <LI>siNRZHK00. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRARDZH. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRTTVZH. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBEVNMZH. May be SqlString.Null</LI>
|
|
' /// <LI>siNRTTZZH. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBENNMZ1. May be SqlString.Null</LI>
|
|
' /// <LI>sBETRZZH. May be SqlString.Null</LI>
|
|
' /// <LI>sBENNMZ2. May be SqlString.Null</LI>
|
|
' /// <LI>siNRNZUZH. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBEORTZS. May be SqlString.Null</LI>
|
|
' /// <LI>sBEWEI00. May be SqlString.Null</LI>
|
|
' /// <LI>sBEFCHPT. May be SqlString.Null</LI>
|
|
' /// <LI>sNRFCHPT. May be SqlString.Null</LI>
|
|
' /// <LI>sBESTR00. May be SqlString.Null</LI>
|
|
' /// <LI>sNRHAU00. May be SqlString.Null</LI>
|
|
' /// <LI>sNRSTC00. May be SqlString.Null</LI>
|
|
' /// <LI>siNRLND00. May be SqlInt16.Null</LI>
|
|
' /// <LI>sCDPLZ00. May be SqlString.Null</LI>
|
|
' /// <LI>sBEORTPT. May be SqlString.Null</LI>
|
|
' /// <LI>sBEDIS00. May be SqlString.Null</LI>
|
|
' /// <LI>iCDORTPT. May be SqlInt32.Null</LI>
|
|
' /// <LI>iCDSTRPT. May be SqlInt32.Null</LI>
|
|
' /// <LI>sSAVRS00. May be SqlString.Null</LI>
|
|
' /// <LI>siNRUZG00. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRNGR00. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRFOG01. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBEBAN01. May be SqlString.Null</LI>
|
|
' /// <LI>siNRFOG02. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBEBAN02. May be SqlString.Null</LI>
|
|
' /// <LI>siNRVRNRI. May be SqlInt16.Null</LI>
|
|
' /// <LI>sCDMUTER. May be SqlString.Null</LI>
|
|
' /// <LI>daTSMUT00. May be SqlDateTime.Null</LI>
|
|
' /// <LI>dcAZVRNHI. May be SqlDecimal.Null</LI>
|
|
' /// <LI>daDMERF00. May be SqlDateTime.Null</LI>
|
|
' /// <LI>sSAREC00. May be SqlString.Null</LI>
|
|
' /// <LI>daDMKTRNA. May be SqlDateTime.Null</LI>
|
|
' /// <LI>sCDKTRNA. May be SqlString.Null</LI>
|
|
' /// <LI>sSAKTRNA. May be SqlString.Null</LI>
|
|
' /// <LI>sCDPAW00. May be SqlString.Null</LI>
|
|
' /// <LI>sSAREC01. May be SqlString.Null</LI>
|
|
' /// </UL>
|
|
' /// Properties set after a succesful call of this method:
|
|
' /// <UL>
|
|
' /// <LI>iErrorCode</LI>
|
|
' /// </UL>
|
|
' /// </remarks>
|
|
Overrides Public Function Insert() As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Partner_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
|
|
|
|
|
|
' /// <summary>
|
|
' /// Purpose: Update method. This method will Update one existing row in the database.
|
|
' /// </summary>
|
|
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
|
' /// <remarks>
|
|
' /// Properties needed for this method:
|
|
' /// <UL>
|
|
' /// <LI>iNRPAR00</LI>
|
|
' /// <LI>siNRADR00. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRVRN00. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRAAT00. May be SqlInt16.Null</LI>
|
|
' /// <LI>sNRPARVO. May be SqlString.Null</LI>
|
|
' /// <LI>siNRVAZ00. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRARD00. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRTTV00. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBEVNM01. May be SqlString.Null</LI>
|
|
' /// <LI>sBEVNM02. May be SqlString.Null</LI>
|
|
' /// <LI>sBEVNM03. May be SqlString.Null</LI>
|
|
' /// <LI>sBEVNM04. May be SqlString.Null</LI>
|
|
' /// <LI>siNRTTZ00. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBENNM01. May be SqlString.Null</LI>
|
|
' /// <LI>sBETRZNN. May be SqlString.Null</LI>
|
|
' /// <LI>sBENNM02. May be SqlString.Null</LI>
|
|
' /// <LI>siNRNZU00. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBETTN00. May be SqlString.Null</LI>
|
|
' /// <LI>sBENAM01. May be SqlString.Null</LI>
|
|
' /// <LI>sBENAM02. May be SqlString.Null</LI>
|
|
' /// <LI>sBENAM03. May be SqlString.Null</LI>
|
|
' /// <LI>sBECOT01. May be SqlString.Null</LI>
|
|
' /// <LI>sBECOT02. May be SqlString.Null</LI>
|
|
' /// <LI>siNRZHK00. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRARDZH. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRTTVZH. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBEVNMZH. May be SqlString.Null</LI>
|
|
' /// <LI>siNRTTZZH. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBENNMZ1. May be SqlString.Null</LI>
|
|
' /// <LI>sBETRZZH. May be SqlString.Null</LI>
|
|
' /// <LI>sBENNMZ2. May be SqlString.Null</LI>
|
|
' /// <LI>siNRNZUZH. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBEORTZS. May be SqlString.Null</LI>
|
|
' /// <LI>sBEWEI00. May be SqlString.Null</LI>
|
|
' /// <LI>sBEFCHPT. May be SqlString.Null</LI>
|
|
' /// <LI>sNRFCHPT. May be SqlString.Null</LI>
|
|
' /// <LI>sBESTR00. May be SqlString.Null</LI>
|
|
' /// <LI>sNRHAU00. May be SqlString.Null</LI>
|
|
' /// <LI>sNRSTC00. May be SqlString.Null</LI>
|
|
' /// <LI>siNRLND00. May be SqlInt16.Null</LI>
|
|
' /// <LI>sCDPLZ00. May be SqlString.Null</LI>
|
|
' /// <LI>sBEORTPT. May be SqlString.Null</LI>
|
|
' /// <LI>sBEDIS00. May be SqlString.Null</LI>
|
|
' /// <LI>iCDORTPT. May be SqlInt32.Null</LI>
|
|
' /// <LI>iCDSTRPT. May be SqlInt32.Null</LI>
|
|
' /// <LI>sSAVRS00. May be SqlString.Null</LI>
|
|
' /// <LI>siNRUZG00. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRNGR00. May be SqlInt16.Null</LI>
|
|
' /// <LI>siNRFOG01. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBEBAN01. May be SqlString.Null</LI>
|
|
' /// <LI>siNRFOG02. May be SqlInt16.Null</LI>
|
|
' /// <LI>sBEBAN02. May be SqlString.Null</LI>
|
|
' /// <LI>siNRVRNRI. May be SqlInt16.Null</LI>
|
|
' /// <LI>sCDMUTER. May be SqlString.Null</LI>
|
|
' /// <LI>daTSMUT00. May be SqlDateTime.Null</LI>
|
|
' /// <LI>dcAZVRNHI. May be SqlDecimal.Null</LI>
|
|
' /// <LI>daDMERF00. May be SqlDateTime.Null</LI>
|
|
' /// <LI>sSAREC00. May be SqlString.Null</LI>
|
|
' /// <LI>daDMKTRNA. May be SqlDateTime.Null</LI>
|
|
' /// <LI>sCDKTRNA. May be SqlString.Null</LI>
|
|
' /// <LI>sSAKTRNA. May be SqlString.Null</LI>
|
|
' /// <LI>sCDPAW00. May be SqlString.Null</LI>
|
|
' /// <LI>sSAREC01. May be SqlString.Null</LI>
|
|
' /// </UL>
|
|
' /// Properties set after a succesful call of this method:
|
|
' /// <UL>
|
|
' /// <LI>iErrorCode</LI>
|
|
' /// </UL>
|
|
' /// </remarks>
|
|
Overrides Public Function Update() As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Partner_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
|
|
|
|
|
|
' /// <summary>
|
|
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
|
' /// </summary>
|
|
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
|
' /// <remarks>
|
|
' /// Properties needed for this method:
|
|
' /// <UL>
|
|
' /// <LI>iNRPAR00</LI>
|
|
' /// </UL>
|
|
' /// Properties set after a succesful call of this method:
|
|
' /// <UL>
|
|
' /// <LI>iErrorCode</LI>
|
|
' /// </UL>
|
|
' /// </remarks>
|
|
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
|
|
|
|
|
|
' /// <summary>
|
|
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
|
' /// </summary>
|
|
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
|
' /// <remarks>
|
|
' /// Properties needed for this method:
|
|
' /// <UL>
|
|
' /// <LI>iNRPAR00</LI>
|
|
' /// </UL>
|
|
' /// Properties set after a succesful call of this method:
|
|
' /// <UL>
|
|
' /// <LI>iErrorCode</LI>
|
|
' /// <LI>iNRPAR00</LI>
|
|
' /// <LI>siNRADR00</LI>
|
|
' /// <LI>siNRVRN00</LI>
|
|
' /// <LI>siNRAAT00</LI>
|
|
' /// <LI>sNRPARVO</LI>
|
|
' /// <LI>siNRVAZ00</LI>
|
|
' /// <LI>siNRARD00</LI>
|
|
' /// <LI>siNRTTV00</LI>
|
|
' /// <LI>sBEVNM01</LI>
|
|
' /// <LI>sBEVNM02</LI>
|
|
' /// <LI>sBEVNM03</LI>
|
|
' /// <LI>sBEVNM04</LI>
|
|
' /// <LI>siNRTTZ00</LI>
|
|
' /// <LI>sBENNM01</LI>
|
|
' /// <LI>sBETRZNN</LI>
|
|
' /// <LI>sBENNM02</LI>
|
|
' /// <LI>siNRNZU00</LI>
|
|
' /// <LI>sBETTN00</LI>
|
|
' /// <LI>sBENAM01</LI>
|
|
' /// <LI>sBENAM02</LI>
|
|
' /// <LI>sBENAM03</LI>
|
|
' /// <LI>sBECOT01</LI>
|
|
' /// <LI>sBECOT02</LI>
|
|
' /// <LI>siNRZHK00</LI>
|
|
' /// <LI>siNRARDZH</LI>
|
|
' /// <LI>siNRTTVZH</LI>
|
|
' /// <LI>sBEVNMZH</LI>
|
|
' /// <LI>siNRTTZZH</LI>
|
|
' /// <LI>sBENNMZ1</LI>
|
|
' /// <LI>sBETRZZH</LI>
|
|
' /// <LI>sBENNMZ2</LI>
|
|
' /// <LI>siNRNZUZH</LI>
|
|
' /// <LI>sBEORTZS</LI>
|
|
' /// <LI>sBEWEI00</LI>
|
|
' /// <LI>sBEFCHPT</LI>
|
|
' /// <LI>sNRFCHPT</LI>
|
|
' /// <LI>sBESTR00</LI>
|
|
' /// <LI>sNRHAU00</LI>
|
|
' /// <LI>sNRSTC00</LI>
|
|
' /// <LI>siNRLND00</LI>
|
|
' /// <LI>sCDPLZ00</LI>
|
|
' /// <LI>sBEORTPT</LI>
|
|
' /// <LI>sBEDIS00</LI>
|
|
' /// <LI>iCDORTPT</LI>
|
|
' /// <LI>iCDSTRPT</LI>
|
|
' /// <LI>sSAVRS00</LI>
|
|
' /// <LI>siNRUZG00</LI>
|
|
' /// <LI>siNRNGR00</LI>
|
|
' /// <LI>siNRFOG01</LI>
|
|
' /// <LI>sBEBAN01</LI>
|
|
' /// <LI>siNRFOG02</LI>
|
|
' /// <LI>sBEBAN02</LI>
|
|
' /// <LI>siNRVRNRI</LI>
|
|
' /// <LI>sCDMUTER</LI>
|
|
' /// <LI>daTSMUT00</LI>
|
|
' /// <LI>dcAZVRNHI</LI>
|
|
' /// <LI>daDMERF00</LI>
|
|
' /// <LI>sSAREC00</LI>
|
|
' /// <LI>daDMKTRNA</LI>
|
|
' /// <LI>sCDKTRNA</LI>
|
|
' /// <LI>sSAKTRNA</LI>
|
|
' /// <LI>sCDPAW00</LI>
|
|
' /// <LI>sSAREC01</LI>
|
|
' /// </UL>
|
|
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
|
' /// </remarks>
|
|
Overrides Public Function SelectOne() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Partner_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
|
|
|
|
|
|
' /// <summary>
|
|
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
|
' /// </summary>
|
|
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
|
' /// <remarks>
|
|
' /// Properties set after a succesful call of this method:
|
|
' /// <UL>
|
|
' /// <LI>iErrorCode</LI>
|
|
' /// </UL>
|
|
' /// </remarks>
|
|
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
|