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.
1151 lines
45 KiB
1151 lines
45 KiB
' ///////////////////////////////////////////////////////////////////////////
|
|
' // Description: Data Access class for the table 'Partner'
|
|
' // 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
|
|
''' <summary>
|
|
''' Purpose: Data Access class for the table 'Partner'.
|
|
''' </summary>
|
|
Public Class clsPartner
|
|
Inherits clsDBInteractionBase
|
|
|
|
#Region " Class Member Declarations "
|
|
|
|
Private m_bCDVSA00, m_bSaldiert As SqlBoolean
|
|
Private m_daValidto As SqlDateTime
|
|
Private m_iNRPAR00, m_iNRFOG012, m_iAZEPL00 As SqlInt32
|
|
Private m_sTXADZ031, m_sTXADZ041, m_sTXADZ061, m_sTXADZ051, m_sBEBAN21, m_sNRFOG21, m_sTXADZ021, m_sTXADZ011, m_sVDMUTER, m_sTSMUT00, m_sIDMSG00, m_sTXRes00, m_sCDBAL00, m_sTXADZ071, m_sSAVRS00, m_sCDVIG00, m_sNRFOG022, m_sBEBAN012, m_sTXADZ012, m_sBEBAN022, m_sBKPAR00, m_sZTMSG00, m_sDMMSG00, m_sCDBNK00, m_sBEPGM00, m_sTXADZ022, m_sNRADR00, m_sNRPARAD, m_sBEBAN011, m_sNRFOG011, m_sTXADZ072, m_sTXADZ042, m_sTXADZ032, m_sTXADZ062, m_sTXADZ052 As SqlString
|
|
|
|
#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>sIDMSG00. May be SqlString.Null</LI>
|
|
''' <LI>sDMMSG00. May be SqlString.Null</LI>
|
|
''' <LI>sZTMSG00. May be SqlString.Null</LI>
|
|
''' <LI>sBEPGM00. May be SqlString.Null</LI>
|
|
''' <LI>sCDBNK00. May be SqlString.Null</LI>
|
|
''' <LI>iNRPAR00</LI>
|
|
''' <LI>sBKPAR00. May be SqlString.Null</LI>
|
|
''' <LI>iNRFOG012. May be SqlInt32.Null</LI>
|
|
''' <LI>sBEBAN012. May be SqlString.Null</LI>
|
|
''' <LI>sNRFOG022. May be SqlString.Null</LI>
|
|
''' <LI>sBEBAN022. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ012. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ022. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ032. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ042. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ052. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ062. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ072. May be SqlString.Null</LI>
|
|
''' <LI>sNRPARAD. May be SqlString.Null</LI>
|
|
''' <LI>sNRADR00. May be SqlString.Null</LI>
|
|
''' <LI>sNRFOG011. May be SqlString.Null</LI>
|
|
''' <LI>sBEBAN011. May be SqlString.Null</LI>
|
|
''' <LI>sNRFOG21. May be SqlString.Null</LI>
|
|
''' <LI>sBEBAN21. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ011. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ021. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ031. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ041. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ051. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ061. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ071. May be SqlString.Null</LI>
|
|
''' <LI>sCDBAL00. May be SqlString.Null</LI>
|
|
''' <LI>sCDVIG00. May be SqlString.Null</LI>
|
|
''' <LI>sSAVRS00. May be SqlString.Null</LI>
|
|
''' <LI>sTSMUT00. May be SqlString.Null</LI>
|
|
''' <LI>sVDMUTER. May be SqlString.Null</LI>
|
|
''' <LI>sTXRes00. May be SqlString.Null</LI>
|
|
''' <LI>bSaldiert</LI>
|
|
''' <LI>iAZEPL00. May be SqlInt32.Null</LI>
|
|
''' <LI>bCDVSA00</LI>
|
|
''' <LI>daValidto. May be SqlDateTime.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_Insert]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sIDMSG00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIDMSG00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMMSG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMMSG00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sZTMSG00", SqlDbType.VarChar, 12, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZTMSG00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEPGM00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEPGM00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBNK00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBNK00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBKPAR00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBKPAR00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRFOG012", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRFOG012))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN012", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN012))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG022", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG022))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN022", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN022))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ012", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ012))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ022", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ022))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ032", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ032))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ042", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ042))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ052", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ052))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ062", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ062))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ072", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ072))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPARAD", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPARAD))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRADR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRADR00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG011", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG011))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN011", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN011))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG21", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG21))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN21", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN21))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ011", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ011))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ021", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ021))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ031", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ031))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ041", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ041))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ051", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ051))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ061", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ061))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ071", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ071))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBAL00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBAL00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVIG00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVIG00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAVRS00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAVRS00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTSMUT00", SqlDbType.VarChar, 26, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTSMUT00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sVDMUTER", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVDMUTER))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXRes00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXRes00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bSaldiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bSaldiert))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAZEPL00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAZEPL00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bCDVSA00", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bCDVSA00))
|
|
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_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::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>sIDMSG00. May be SqlString.Null</LI>
|
|
''' <LI>sDMMSG00. May be SqlString.Null</LI>
|
|
''' <LI>sZTMSG00. May be SqlString.Null</LI>
|
|
''' <LI>sBEPGM00. May be SqlString.Null</LI>
|
|
''' <LI>sCDBNK00. May be SqlString.Null</LI>
|
|
''' <LI>iNRPAR00</LI>
|
|
''' <LI>sBKPAR00. May be SqlString.Null</LI>
|
|
''' <LI>iNRFOG012. May be SqlInt32.Null</LI>
|
|
''' <LI>sBEBAN012. May be SqlString.Null</LI>
|
|
''' <LI>sNRFOG022. May be SqlString.Null</LI>
|
|
''' <LI>sBEBAN022. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ012. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ022. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ032. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ042. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ052. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ062. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ072. May be SqlString.Null</LI>
|
|
''' <LI>sNRPARAD. May be SqlString.Null</LI>
|
|
''' <LI>sNRADR00. May be SqlString.Null</LI>
|
|
''' <LI>sNRFOG011. May be SqlString.Null</LI>
|
|
''' <LI>sBEBAN011. May be SqlString.Null</LI>
|
|
''' <LI>sNRFOG21. May be SqlString.Null</LI>
|
|
''' <LI>sBEBAN21. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ011. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ021. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ031. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ041. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ051. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ061. May be SqlString.Null</LI>
|
|
''' <LI>sTXADZ071. May be SqlString.Null</LI>
|
|
''' <LI>sCDBAL00. May be SqlString.Null</LI>
|
|
''' <LI>sCDVIG00. May be SqlString.Null</LI>
|
|
''' <LI>sSAVRS00. May be SqlString.Null</LI>
|
|
''' <LI>sTSMUT00. May be SqlString.Null</LI>
|
|
''' <LI>sVDMUTER. May be SqlString.Null</LI>
|
|
''' <LI>sTXRes00. May be SqlString.Null</LI>
|
|
''' <LI>bSaldiert</LI>
|
|
''' <LI>iAZEPL00. May be SqlInt32.Null</LI>
|
|
''' <LI>bCDVSA00</LI>
|
|
''' <LI>daValidto. May be SqlDateTime.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_Update]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sIDMSG00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIDMSG00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMMSG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMMSG00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sZTMSG00", SqlDbType.VarChar, 12, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZTMSG00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEPGM00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEPGM00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBNK00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBNK00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBKPAR00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBKPAR00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRFOG012", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRFOG012))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN012", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN012))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG022", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG022))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN022", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN022))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ012", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ012))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ022", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ022))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ032", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ032))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ042", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ042))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ052", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ052))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ062", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ062))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ072", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ072))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPARAD", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPARAD))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRADR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRADR00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG011", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG011))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN011", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN011))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG21", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG21))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN21", SqlDbType.VarChar, 150, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN21))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ011", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ011))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ021", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ021))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ031", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ031))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ041", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ041))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ051", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ051))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ061", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ061))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ071", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ071))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBAL00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBAL00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVIG00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVIG00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAVRS00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAVRS00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTSMUT00", SqlDbType.VarChar, 26, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTSMUT00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sVDMUTER", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVDMUTER))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXRes00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXRes00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bSaldiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bSaldiert))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAZEPL00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAZEPL00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bCDVSA00", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bCDVSA00))
|
|
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_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::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>
|
|
Overrides Public Function Delete() As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Partner_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_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::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>sIDMSG00</LI>
|
|
''' <LI>sDMMSG00</LI>
|
|
''' <LI>sZTMSG00</LI>
|
|
''' <LI>sBEPGM00</LI>
|
|
''' <LI>sCDBNK00</LI>
|
|
''' <LI>iNRPAR00</LI>
|
|
''' <LI>sBKPAR00</LI>
|
|
''' <LI>iNRFOG012</LI>
|
|
''' <LI>sBEBAN012</LI>
|
|
''' <LI>sNRFOG022</LI>
|
|
''' <LI>sBEBAN022</LI>
|
|
''' <LI>sTXADZ012</LI>
|
|
''' <LI>sTXADZ022</LI>
|
|
''' <LI>sTXADZ032</LI>
|
|
''' <LI>sTXADZ042</LI>
|
|
''' <LI>sTXADZ052</LI>
|
|
''' <LI>sTXADZ062</LI>
|
|
''' <LI>sTXADZ072</LI>
|
|
''' <LI>sNRPARAD</LI>
|
|
''' <LI>sNRADR00</LI>
|
|
''' <LI>sNRFOG011</LI>
|
|
''' <LI>sBEBAN011</LI>
|
|
''' <LI>sNRFOG21</LI>
|
|
''' <LI>sBEBAN21</LI>
|
|
''' <LI>sTXADZ011</LI>
|
|
''' <LI>sTXADZ021</LI>
|
|
''' <LI>sTXADZ031</LI>
|
|
''' <LI>sTXADZ041</LI>
|
|
''' <LI>sTXADZ051</LI>
|
|
''' <LI>sTXADZ061</LI>
|
|
''' <LI>sTXADZ071</LI>
|
|
''' <LI>sCDBAL00</LI>
|
|
''' <LI>sCDVIG00</LI>
|
|
''' <LI>sSAVRS00</LI>
|
|
''' <LI>sTSMUT00</LI>
|
|
''' <LI>sVDMUTER</LI>
|
|
''' <LI>sTXRes00</LI>
|
|
''' <LI>bSaldiert</LI>
|
|
''' <LI>iAZEPL00</LI>
|
|
''' <LI>bCDVSA00</LI>
|
|
''' <LI>daValidto</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_SelectOne]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = new DataTable("Partner")
|
|
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_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
|
End If
|
|
|
|
If dtToReturn.Rows.Count > 0 Then
|
|
If dtToReturn.Rows(0)("IDMSG00") Is System.DBNull.Value Then
|
|
m_sIDMSG00 = SqlString.Null
|
|
Else
|
|
m_sIDMSG00 = New SqlString(CType(dtToReturn.Rows(0)("IDMSG00"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("DMMSG00") Is System.DBNull.Value Then
|
|
m_sDMMSG00 = SqlString.Null
|
|
Else
|
|
m_sDMMSG00 = New SqlString(CType(dtToReturn.Rows(0)("DMMSG00"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("ZTMSG00") Is System.DBNull.Value Then
|
|
m_sZTMSG00 = SqlString.Null
|
|
Else
|
|
m_sZTMSG00 = New SqlString(CType(dtToReturn.Rows(0)("ZTMSG00"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("BEPGM00") Is System.DBNull.Value Then
|
|
m_sBEPGM00 = SqlString.Null
|
|
Else
|
|
m_sBEPGM00 = New SqlString(CType(dtToReturn.Rows(0)("BEPGM00"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDBNK00") Is System.DBNull.Value Then
|
|
m_sCDBNK00 = SqlString.Null
|
|
Else
|
|
m_sCDBNK00 = New SqlString(CType(dtToReturn.Rows(0)("CDBNK00"), String))
|
|
End If
|
|
m_iNRPAR00 = New SqlInt32(CType(dtToReturn.Rows(0)("NRPAR00"), Integer))
|
|
If dtToReturn.Rows(0)("BKPAR00") Is System.DBNull.Value Then
|
|
m_sBKPAR00 = SqlString.Null
|
|
Else
|
|
m_sBKPAR00 = New SqlString(CType(dtToReturn.Rows(0)("BKPAR00"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("NRFOG012") Is System.DBNull.Value Then
|
|
m_iNRFOG012 = SqlInt32.Null
|
|
Else
|
|
m_iNRFOG012 = New SqlInt32(CType(dtToReturn.Rows(0)("NRFOG012"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("BEBAN012") Is System.DBNull.Value Then
|
|
m_sBEBAN012 = SqlString.Null
|
|
Else
|
|
m_sBEBAN012 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN012"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("NRFOG022") Is System.DBNull.Value Then
|
|
m_sNRFOG022 = SqlString.Null
|
|
Else
|
|
m_sNRFOG022 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG022"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("BEBAN022") Is System.DBNull.Value Then
|
|
m_sBEBAN022 = SqlString.Null
|
|
Else
|
|
m_sBEBAN022 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN022"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXADZ012") Is System.DBNull.Value Then
|
|
m_sTXADZ012 = SqlString.Null
|
|
Else
|
|
m_sTXADZ012 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ012"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXADZ022") Is System.DBNull.Value Then
|
|
m_sTXADZ022 = SqlString.Null
|
|
Else
|
|
m_sTXADZ022 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ022"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXADZ032") Is System.DBNull.Value Then
|
|
m_sTXADZ032 = SqlString.Null
|
|
Else
|
|
m_sTXADZ032 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ032"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXADZ042") Is System.DBNull.Value Then
|
|
m_sTXADZ042 = SqlString.Null
|
|
Else
|
|
m_sTXADZ042 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ042"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXADZ052") Is System.DBNull.Value Then
|
|
m_sTXADZ052 = SqlString.Null
|
|
Else
|
|
m_sTXADZ052 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ052"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXADZ062") Is System.DBNull.Value Then
|
|
m_sTXADZ062 = SqlString.Null
|
|
Else
|
|
m_sTXADZ062 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ062"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXADZ072") Is System.DBNull.Value Then
|
|
m_sTXADZ072 = SqlString.Null
|
|
Else
|
|
m_sTXADZ072 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ072"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("NRPARAD") Is System.DBNull.Value Then
|
|
m_sNRPARAD = SqlString.Null
|
|
Else
|
|
m_sNRPARAD = New SqlString(CType(dtToReturn.Rows(0)("NRPARAD"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("NRADR00") Is System.DBNull.Value Then
|
|
m_sNRADR00 = SqlString.Null
|
|
Else
|
|
m_sNRADR00 = New SqlString(CType(dtToReturn.Rows(0)("NRADR00"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("NRFOG011") Is System.DBNull.Value Then
|
|
m_sNRFOG011 = SqlString.Null
|
|
Else
|
|
m_sNRFOG011 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG011"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("BEBAN011") Is System.DBNull.Value Then
|
|
m_sBEBAN011 = SqlString.Null
|
|
Else
|
|
m_sBEBAN011 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN011"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("NRFOG21") Is System.DBNull.Value Then
|
|
m_sNRFOG21 = SqlString.Null
|
|
Else
|
|
m_sNRFOG21 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG21"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("BEBAN21") Is System.DBNull.Value Then
|
|
m_sBEBAN21 = SqlString.Null
|
|
Else
|
|
m_sBEBAN21 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN21"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXADZ011") Is System.DBNull.Value Then
|
|
m_sTXADZ011 = SqlString.Null
|
|
Else
|
|
m_sTXADZ011 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ011"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXADZ021") Is System.DBNull.Value Then
|
|
m_sTXADZ021 = SqlString.Null
|
|
Else
|
|
m_sTXADZ021 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ021"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXADZ031") Is System.DBNull.Value Then
|
|
m_sTXADZ031 = SqlString.Null
|
|
Else
|
|
m_sTXADZ031 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ031"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXADZ041") Is System.DBNull.Value Then
|
|
m_sTXADZ041 = SqlString.Null
|
|
Else
|
|
m_sTXADZ041 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ041"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXADZ051") Is System.DBNull.Value Then
|
|
m_sTXADZ051 = SqlString.Null
|
|
Else
|
|
m_sTXADZ051 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ051"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXADZ061") Is System.DBNull.Value Then
|
|
m_sTXADZ061 = SqlString.Null
|
|
Else
|
|
m_sTXADZ061 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ061"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXADZ071") Is System.DBNull.Value Then
|
|
m_sTXADZ071 = SqlString.Null
|
|
Else
|
|
m_sTXADZ071 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ071"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDBAL00") Is System.DBNull.Value Then
|
|
m_sCDBAL00 = SqlString.Null
|
|
Else
|
|
m_sCDBAL00 = New SqlString(CType(dtToReturn.Rows(0)("CDBAL00"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDVIG00") Is System.DBNull.Value Then
|
|
m_sCDVIG00 = SqlString.Null
|
|
Else
|
|
m_sCDVIG00 = New SqlString(CType(dtToReturn.Rows(0)("CDVIG00"), String))
|
|
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)("TSMUT00") Is System.DBNull.Value Then
|
|
m_sTSMUT00 = SqlString.Null
|
|
Else
|
|
m_sTSMUT00 = New SqlString(CType(dtToReturn.Rows(0)("TSMUT00"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("VDMUTER") Is System.DBNull.Value Then
|
|
m_sVDMUTER = SqlString.Null
|
|
Else
|
|
m_sVDMUTER = New SqlString(CType(dtToReturn.Rows(0)("VDMUTER"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("TXRes00") Is System.DBNull.Value Then
|
|
m_sTXRes00 = SqlString.Null
|
|
Else
|
|
m_sTXRes00 = New SqlString(CType(dtToReturn.Rows(0)("TXRes00"), String))
|
|
End If
|
|
m_bSaldiert = New SqlBoolean(CType(dtToReturn.Rows(0)("Saldiert"), Boolean))
|
|
If dtToReturn.Rows(0)("AZEPL00") Is System.DBNull.Value Then
|
|
m_iAZEPL00 = SqlInt32.Null
|
|
Else
|
|
m_iAZEPL00 = New SqlInt32(CType(dtToReturn.Rows(0)("AZEPL00"), Integer))
|
|
End If
|
|
m_bCDVSA00 = New SqlBoolean(CType(dtToReturn.Rows(0)("CDVSA00"), Boolean))
|
|
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::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>
|
|
Overrides Public Function SelectAll() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Partner_SelectAll]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = new DataTable("Partner")
|
|
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_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::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 [sIDMSG00]() As SqlString
|
|
Get
|
|
Return m_sIDMSG00
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sIDMSG00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sDMMSG00]() As SqlString
|
|
Get
|
|
Return m_sDMMSG00
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sDMMSG00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sZTMSG00]() As SqlString
|
|
Get
|
|
Return m_sZTMSG00
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sZTMSG00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sBEPGM00]() As SqlString
|
|
Get
|
|
Return m_sBEPGM00
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sBEPGM00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDBNK00]() As SqlString
|
|
Get
|
|
Return m_sCDBNK00
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDBNK00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
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 [sBKPAR00]() As SqlString
|
|
Get
|
|
Return m_sBKPAR00
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sBKPAR00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iNRFOG012]() As SqlInt32
|
|
Get
|
|
Return m_iNRFOG012
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iNRFOG012 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sBEBAN012]() As SqlString
|
|
Get
|
|
Return m_sBEBAN012
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sBEBAN012 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sNRFOG022]() As SqlString
|
|
Get
|
|
Return m_sNRFOG022
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sNRFOG022 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sBEBAN022]() As SqlString
|
|
Get
|
|
Return m_sBEBAN022
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sBEBAN022 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXADZ012]() As SqlString
|
|
Get
|
|
Return m_sTXADZ012
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXADZ012 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXADZ022]() As SqlString
|
|
Get
|
|
Return m_sTXADZ022
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXADZ022 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXADZ032]() As SqlString
|
|
Get
|
|
Return m_sTXADZ032
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXADZ032 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXADZ042]() As SqlString
|
|
Get
|
|
Return m_sTXADZ042
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXADZ042 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXADZ052]() As SqlString
|
|
Get
|
|
Return m_sTXADZ052
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXADZ052 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXADZ062]() As SqlString
|
|
Get
|
|
Return m_sTXADZ062
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXADZ062 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXADZ072]() As SqlString
|
|
Get
|
|
Return m_sTXADZ072
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXADZ072 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sNRPARAD]() As SqlString
|
|
Get
|
|
Return m_sNRPARAD
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sNRPARAD = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sNRADR00]() As SqlString
|
|
Get
|
|
Return m_sNRADR00
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sNRADR00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sNRFOG011]() As SqlString
|
|
Get
|
|
Return m_sNRFOG011
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sNRFOG011 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sBEBAN011]() As SqlString
|
|
Get
|
|
Return m_sBEBAN011
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sBEBAN011 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sNRFOG21]() As SqlString
|
|
Get
|
|
Return m_sNRFOG21
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sNRFOG21 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sBEBAN21]() As SqlString
|
|
Get
|
|
Return m_sBEBAN21
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sBEBAN21 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXADZ011]() As SqlString
|
|
Get
|
|
Return m_sTXADZ011
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXADZ011 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXADZ021]() As SqlString
|
|
Get
|
|
Return m_sTXADZ021
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXADZ021 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXADZ031]() As SqlString
|
|
Get
|
|
Return m_sTXADZ031
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXADZ031 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXADZ041]() As SqlString
|
|
Get
|
|
Return m_sTXADZ041
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXADZ041 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXADZ051]() As SqlString
|
|
Get
|
|
Return m_sTXADZ051
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXADZ051 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXADZ061]() As SqlString
|
|
Get
|
|
Return m_sTXADZ061
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXADZ061 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXADZ071]() As SqlString
|
|
Get
|
|
Return m_sTXADZ071
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXADZ071 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDBAL00]() As SqlString
|
|
Get
|
|
Return m_sCDBAL00
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDBAL00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDVIG00]() As SqlString
|
|
Get
|
|
Return m_sCDVIG00
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDVIG00 = 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 [sTSMUT00]() As SqlString
|
|
Get
|
|
Return m_sTSMUT00
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTSMUT00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sVDMUTER]() As SqlString
|
|
Get
|
|
Return m_sVDMUTER
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sVDMUTER = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTXRes00]() As SqlString
|
|
Get
|
|
Return m_sTXRes00
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTXRes00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bSaldiert]() As SqlBoolean
|
|
Get
|
|
Return m_bSaldiert
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
Dim bSaldiertTmp As SqlBoolean = Value
|
|
If bSaldiertTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("bSaldiert", "bSaldiert can't be NULL")
|
|
End If
|
|
m_bSaldiert = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iAZEPL00]() As SqlInt32
|
|
Get
|
|
Return m_iAZEPL00
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iAZEPL00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bCDVSA00]() As SqlBoolean
|
|
Get
|
|
Return m_bCDVSA00
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
Dim bCDVSA00Tmp As SqlBoolean = Value
|
|
If bCDVSA00Tmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("bCDVSA00", "bCDVSA00 can't be NULL")
|
|
End If
|
|
m_bCDVSA00 = 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
|