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.
870 lines
38 KiB
870 lines
38 KiB
' ///////////////////////////////////////////////////////////////////////////
|
|
' // Description: Data Access class for the table 'Land'
|
|
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 6. Mai 2003, 23:34:51
|
|
' // 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 'Land'.
|
|
' /// </summary>
|
|
Public Class clsLand
|
|
Inherits clsDBInteractionBase
|
|
|
|
#Region " Class Member Declarations "
|
|
|
|
Private m_fNRPAR00, m_fCDADRFO, m_fNRLNG00, m_fNRVRN00, m_fNRLND00, m_fNRSPR00 As SqlDouble
|
|
Private m_sCDLNDDM, m_sCDLNDNL, m_sCDLNDGR, m_sCDLNDWP, m_sCDPSP00, m_sCDOECZU, m_sCDLNDSQ, m_sSAREC00, m_sCDLRT00, m_sCDLNDBU, m_sBELND00, m_sSAADRVF, m_sCDLNDAB, m_sCDLND03, m_sCDLND02, m_sSADOMKE, m_sNRLNDSQ, m_sSANATKE, m_sSADOMVF, m_sSANATVF As SqlString
|
|
Private m_daDMERF00 As SqlDateTime
|
|
|
|
#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>fNRSPR00. May be SqlDouble.Null</LI>
|
|
' /// <LI>fNRLND00</LI>
|
|
' /// <LI>fNRVRN00. May be SqlDouble.Null</LI>
|
|
' /// <LI>sCDLND03. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLND02. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLNDAB. May be SqlString.Null</LI>
|
|
' /// <LI>sBELND00. May be SqlString.Null</LI>
|
|
' /// <LI>fNRPAR00. May be SqlDouble.Null</LI>
|
|
' /// <LI>fCDADRFO. May be SqlDouble.Null</LI>
|
|
' /// <LI>sSAADRVF. May be SqlString.Null</LI>
|
|
' /// <LI>sSADOMVF. May be SqlString.Null</LI>
|
|
' /// <LI>sSANATVF. May be SqlString.Null</LI>
|
|
' /// <LI>sSANATKE. May be SqlString.Null</LI>
|
|
' /// <LI>sSADOMKE. May be SqlString.Null</LI>
|
|
' /// <LI>sNRLNDSQ. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLNDBU. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLNDGR. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLNDWP. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLNDDM. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLNDNL. May be SqlString.Null</LI>
|
|
' /// <LI>sCDPSP00. May be SqlString.Null</LI>
|
|
' /// <LI>fNRLNG00. May be SqlDouble.Null</LI>
|
|
' /// <LI>sCDLNDSQ. May be SqlString.Null</LI>
|
|
' /// <LI>sCDOECZU. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLRT00. May be SqlString.Null</LI>
|
|
' /// <LI>daDMERF00. May be SqlDateTime.Null</LI>
|
|
' /// <LI>sSAREC00. 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_Land_Insert]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fNRSPR00", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fNRSPR00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fNRLND00", SqlDbType.Float, 8, ParameterDirection.Input, False, 38, 0, "", DataRowVersion.Proposed, m_fNRLND00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fNRVRN00", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fNRVRN00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLND03", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLND03))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLND02", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLND02))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLNDAB", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLNDAB))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBELND00", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBELND00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fNRPAR00", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fNRPAR00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fCDADRFO", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fCDADRFO))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAADRVF", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAADRVF))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSADOMVF", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSADOMVF))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSANATVF", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSANATVF))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSANATKE", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSANATKE))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSADOMKE", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSADOMKE))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRLNDSQ", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRLNDSQ))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLNDBU", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLNDBU))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLNDGR", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLNDGR))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLNDWP", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLNDWP))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLNDDM", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLNDDM))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLNDNL", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLNDNL))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDPSP00", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDPSP00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fNRLNG00", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fNRLNG00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLNDSQ", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLNDSQ))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDOECZU", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDOECZU))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLRT00", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLRT00))
|
|
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, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAREC00))
|
|
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_Land_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("clsLand::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>fNRSPR00. May be SqlDouble.Null</LI>
|
|
' /// <LI>fNRLND00</LI>
|
|
' /// <LI>fNRVRN00. May be SqlDouble.Null</LI>
|
|
' /// <LI>sCDLND03. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLND02. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLNDAB. May be SqlString.Null</LI>
|
|
' /// <LI>sBELND00. May be SqlString.Null</LI>
|
|
' /// <LI>fNRPAR00. May be SqlDouble.Null</LI>
|
|
' /// <LI>fCDADRFO. May be SqlDouble.Null</LI>
|
|
' /// <LI>sSAADRVF. May be SqlString.Null</LI>
|
|
' /// <LI>sSADOMVF. May be SqlString.Null</LI>
|
|
' /// <LI>sSANATVF. May be SqlString.Null</LI>
|
|
' /// <LI>sSANATKE. May be SqlString.Null</LI>
|
|
' /// <LI>sSADOMKE. May be SqlString.Null</LI>
|
|
' /// <LI>sNRLNDSQ. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLNDBU. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLNDGR. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLNDWP. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLNDDM. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLNDNL. May be SqlString.Null</LI>
|
|
' /// <LI>sCDPSP00. May be SqlString.Null</LI>
|
|
' /// <LI>fNRLNG00. May be SqlDouble.Null</LI>
|
|
' /// <LI>sCDLNDSQ. May be SqlString.Null</LI>
|
|
' /// <LI>sCDOECZU. May be SqlString.Null</LI>
|
|
' /// <LI>sCDLRT00. May be SqlString.Null</LI>
|
|
' /// <LI>daDMERF00. May be SqlDateTime.Null</LI>
|
|
' /// <LI>sSAREC00. 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_Land_Update]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fNRSPR00", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fNRSPR00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fNRLND00", SqlDbType.Float, 8, ParameterDirection.Input, False, 38, 0, "", DataRowVersion.Proposed, m_fNRLND00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fNRVRN00", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fNRVRN00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLND03", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLND03))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLND02", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLND02))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLNDAB", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLNDAB))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBELND00", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBELND00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fNRPAR00", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fNRPAR00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fCDADRFO", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fCDADRFO))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAADRVF", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAADRVF))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSADOMVF", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSADOMVF))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSANATVF", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSANATVF))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSANATKE", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSANATKE))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSADOMKE", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSADOMKE))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRLNDSQ", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRLNDSQ))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLNDBU", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLNDBU))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLNDGR", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLNDGR))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLNDWP", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLNDWP))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLNDDM", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLNDDM))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLNDNL", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLNDNL))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDPSP00", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDPSP00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fNRLNG00", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fNRLNG00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLNDSQ", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLNDSQ))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDOECZU", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDOECZU))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDLRT00", SqlDbType.NVarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDLRT00))
|
|
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, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAREC00))
|
|
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_Land_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("clsLand::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>fNRLND00</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_Land_Delete]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fNRLND00", SqlDbType.Float, 8, ParameterDirection.Input, False, 38, 0, "", DataRowVersion.Proposed, m_fNRLND00))
|
|
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_Land_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("clsLand::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>fNRLND00</LI>
|
|
' /// </UL>
|
|
' /// Properties set after a succesful call of this method:
|
|
' /// <UL>
|
|
' /// <LI>iErrorCode</LI>
|
|
' /// <LI>fNRSPR00</LI>
|
|
' /// <LI>fNRLND00</LI>
|
|
' /// <LI>fNRVRN00</LI>
|
|
' /// <LI>sCDLND03</LI>
|
|
' /// <LI>sCDLND02</LI>
|
|
' /// <LI>sCDLNDAB</LI>
|
|
' /// <LI>sBELND00</LI>
|
|
' /// <LI>fNRPAR00</LI>
|
|
' /// <LI>fCDADRFO</LI>
|
|
' /// <LI>sSAADRVF</LI>
|
|
' /// <LI>sSADOMVF</LI>
|
|
' /// <LI>sSANATVF</LI>
|
|
' /// <LI>sSANATKE</LI>
|
|
' /// <LI>sSADOMKE</LI>
|
|
' /// <LI>sNRLNDSQ</LI>
|
|
' /// <LI>sCDLNDBU</LI>
|
|
' /// <LI>sCDLNDGR</LI>
|
|
' /// <LI>sCDLNDWP</LI>
|
|
' /// <LI>sCDLNDDM</LI>
|
|
' /// <LI>sCDLNDNL</LI>
|
|
' /// <LI>sCDPSP00</LI>
|
|
' /// <LI>fNRLNG00</LI>
|
|
' /// <LI>sCDLNDSQ</LI>
|
|
' /// <LI>sCDOECZU</LI>
|
|
' /// <LI>sCDLRT00</LI>
|
|
' /// <LI>daDMERF00</LI>
|
|
' /// <LI>sSAREC00</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_Land_SelectOne]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = new DataTable("Land")
|
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@fNRLND00", SqlDbType.Float, 8, ParameterDirection.Input, False, 38, 0, "", DataRowVersion.Proposed, m_fNRLND00))
|
|
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_Land_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
|
End If
|
|
|
|
If dtToReturn.Rows.Count > 0 Then
|
|
If dtToReturn.Rows(0)("NRSPR00") Is System.DBNull.Value Then
|
|
m_fNRSPR00 = SqlDouble.Null
|
|
Else
|
|
m_fNRSPR00 = New SqlDouble(CType(dtToReturn.Rows(0)("NRSPR00"), Double))
|
|
End If
|
|
m_fNRLND00 = New SqlDouble(CType(dtToReturn.Rows(0)("NRLND00"), Double))
|
|
If dtToReturn.Rows(0)("NRVRN00") Is System.DBNull.Value Then
|
|
m_fNRVRN00 = SqlDouble.Null
|
|
Else
|
|
m_fNRVRN00 = New SqlDouble(CType(dtToReturn.Rows(0)("NRVRN00"), Double))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDLND03") Is System.DBNull.Value Then
|
|
m_sCDLND03 = SqlString.Null
|
|
Else
|
|
m_sCDLND03 = New SqlString(CType(dtToReturn.Rows(0)("CDLND03"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDLND02") Is System.DBNull.Value Then
|
|
m_sCDLND02 = SqlString.Null
|
|
Else
|
|
m_sCDLND02 = New SqlString(CType(dtToReturn.Rows(0)("CDLND02"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDLNDAB") Is System.DBNull.Value Then
|
|
m_sCDLNDAB = SqlString.Null
|
|
Else
|
|
m_sCDLNDAB = New SqlString(CType(dtToReturn.Rows(0)("CDLNDAB"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("BELND00") Is System.DBNull.Value Then
|
|
m_sBELND00 = SqlString.Null
|
|
Else
|
|
m_sBELND00 = New SqlString(CType(dtToReturn.Rows(0)("BELND00"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("NRPAR00") Is System.DBNull.Value Then
|
|
m_fNRPAR00 = SqlDouble.Null
|
|
Else
|
|
m_fNRPAR00 = New SqlDouble(CType(dtToReturn.Rows(0)("NRPAR00"), Double))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDADRFO") Is System.DBNull.Value Then
|
|
m_fCDADRFO = SqlDouble.Null
|
|
Else
|
|
m_fCDADRFO = New SqlDouble(CType(dtToReturn.Rows(0)("CDADRFO"), Double))
|
|
End If
|
|
If dtToReturn.Rows(0)("SAADRVF") Is System.DBNull.Value Then
|
|
m_sSAADRVF = SqlString.Null
|
|
Else
|
|
m_sSAADRVF = New SqlString(CType(dtToReturn.Rows(0)("SAADRVF"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("SADOMVF") Is System.DBNull.Value Then
|
|
m_sSADOMVF = SqlString.Null
|
|
Else
|
|
m_sSADOMVF = New SqlString(CType(dtToReturn.Rows(0)("SADOMVF"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("SANATVF") Is System.DBNull.Value Then
|
|
m_sSANATVF = SqlString.Null
|
|
Else
|
|
m_sSANATVF = New SqlString(CType(dtToReturn.Rows(0)("SANATVF"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("SANATKE") Is System.DBNull.Value Then
|
|
m_sSANATKE = SqlString.Null
|
|
Else
|
|
m_sSANATKE = New SqlString(CType(dtToReturn.Rows(0)("SANATKE"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("SADOMKE") Is System.DBNull.Value Then
|
|
m_sSADOMKE = SqlString.Null
|
|
Else
|
|
m_sSADOMKE = New SqlString(CType(dtToReturn.Rows(0)("SADOMKE"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("NRLNDSQ") Is System.DBNull.Value Then
|
|
m_sNRLNDSQ = SqlString.Null
|
|
Else
|
|
m_sNRLNDSQ = New SqlString(CType(dtToReturn.Rows(0)("NRLNDSQ"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDLNDBU") Is System.DBNull.Value Then
|
|
m_sCDLNDBU = SqlString.Null
|
|
Else
|
|
m_sCDLNDBU = New SqlString(CType(dtToReturn.Rows(0)("CDLNDBU"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDLNDGR") Is System.DBNull.Value Then
|
|
m_sCDLNDGR = SqlString.Null
|
|
Else
|
|
m_sCDLNDGR = New SqlString(CType(dtToReturn.Rows(0)("CDLNDGR"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDLNDWP") Is System.DBNull.Value Then
|
|
m_sCDLNDWP = SqlString.Null
|
|
Else
|
|
m_sCDLNDWP = New SqlString(CType(dtToReturn.Rows(0)("CDLNDWP"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDLNDDM") Is System.DBNull.Value Then
|
|
m_sCDLNDDM = SqlString.Null
|
|
Else
|
|
m_sCDLNDDM = New SqlString(CType(dtToReturn.Rows(0)("CDLNDDM"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDLNDNL") Is System.DBNull.Value Then
|
|
m_sCDLNDNL = SqlString.Null
|
|
Else
|
|
m_sCDLNDNL = New SqlString(CType(dtToReturn.Rows(0)("CDLNDNL"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDPSP00") Is System.DBNull.Value Then
|
|
m_sCDPSP00 = SqlString.Null
|
|
Else
|
|
m_sCDPSP00 = New SqlString(CType(dtToReturn.Rows(0)("CDPSP00"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("NRLNG00") Is System.DBNull.Value Then
|
|
m_fNRLNG00 = SqlDouble.Null
|
|
Else
|
|
m_fNRLNG00 = New SqlDouble(CType(dtToReturn.Rows(0)("NRLNG00"), Double))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDLNDSQ") Is System.DBNull.Value Then
|
|
m_sCDLNDSQ = SqlString.Null
|
|
Else
|
|
m_sCDLNDSQ = New SqlString(CType(dtToReturn.Rows(0)("CDLNDSQ"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDOECZU") Is System.DBNull.Value Then
|
|
m_sCDOECZU = SqlString.Null
|
|
Else
|
|
m_sCDOECZU = New SqlString(CType(dtToReturn.Rows(0)("CDOECZU"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("CDLRT00") Is System.DBNull.Value Then
|
|
m_sCDLRT00 = SqlString.Null
|
|
Else
|
|
m_sCDLRT00 = New SqlString(CType(dtToReturn.Rows(0)("CDLRT00"), String))
|
|
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
|
|
End If
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("clsLand::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_Land_SelectAll]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable("Land")
|
|
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_Land_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("clsLand::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 [fNRSPR00]() As SqlDouble
|
|
Get
|
|
Return m_fNRSPR00
|
|
End Get
|
|
Set(ByVal Value As SqlDouble)
|
|
m_fNRSPR00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [fNRLND00]() As SqlDouble
|
|
Get
|
|
Return m_fNRLND00
|
|
End Get
|
|
Set(ByVal Value As SqlDouble)
|
|
Dim fNRLND00Tmp As SqlDouble = Value
|
|
If fNRLND00Tmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("fNRLND00", "fNRLND00 can't be NULL")
|
|
End If
|
|
m_fNRLND00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [fNRVRN00]() As SqlDouble
|
|
Get
|
|
Return m_fNRVRN00
|
|
End Get
|
|
Set(ByVal Value As SqlDouble)
|
|
m_fNRVRN00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDLND03]() As SqlString
|
|
Get
|
|
Return m_sCDLND03
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDLND03 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDLND02]() As SqlString
|
|
Get
|
|
Return m_sCDLND02
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDLND02 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDLNDAB]() As SqlString
|
|
Get
|
|
Return m_sCDLNDAB
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDLNDAB = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sBELND00]() As SqlString
|
|
Get
|
|
Return m_sBELND00
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sBELND00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [fNRPAR00]() As SqlDouble
|
|
Get
|
|
Return m_fNRPAR00
|
|
End Get
|
|
Set(ByVal Value As SqlDouble)
|
|
m_fNRPAR00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [fCDADRFO]() As SqlDouble
|
|
Get
|
|
Return m_fCDADRFO
|
|
End Get
|
|
Set(ByVal Value As SqlDouble)
|
|
m_fCDADRFO = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sSAADRVF]() As SqlString
|
|
Get
|
|
Return m_sSAADRVF
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sSAADRVF = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sSADOMVF]() As SqlString
|
|
Get
|
|
Return m_sSADOMVF
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sSADOMVF = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sSANATVF]() As SqlString
|
|
Get
|
|
Return m_sSANATVF
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sSANATVF = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sSANATKE]() As SqlString
|
|
Get
|
|
Return m_sSANATKE
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sSANATKE = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sSADOMKE]() As SqlString
|
|
Get
|
|
Return m_sSADOMKE
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sSADOMKE = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sNRLNDSQ]() As SqlString
|
|
Get
|
|
Return m_sNRLNDSQ
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sNRLNDSQ = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDLNDBU]() As SqlString
|
|
Get
|
|
Return m_sCDLNDBU
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDLNDBU = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDLNDGR]() As SqlString
|
|
Get
|
|
Return m_sCDLNDGR
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDLNDGR = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDLNDWP]() As SqlString
|
|
Get
|
|
Return m_sCDLNDWP
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDLNDWP = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDLNDDM]() As SqlString
|
|
Get
|
|
Return m_sCDLNDDM
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDLNDDM = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDLNDNL]() As SqlString
|
|
Get
|
|
Return m_sCDLNDNL
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDLNDNL = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDPSP00]() As SqlString
|
|
Get
|
|
Return m_sCDPSP00
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDPSP00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [fNRLNG00]() As SqlDouble
|
|
Get
|
|
Return m_fNRLNG00
|
|
End Get
|
|
Set(ByVal Value As SqlDouble)
|
|
m_fNRLNG00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDLNDSQ]() As SqlString
|
|
Get
|
|
Return m_sCDLNDSQ
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDLNDSQ = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDOECZU]() As SqlString
|
|
Get
|
|
Return m_sCDOECZU
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDOECZU = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sCDLRT00]() As SqlString
|
|
Get
|
|
Return m_sCDLRT00
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sCDLRT00 = 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
|
|
|
|
#End Region
|
|
|
|
End Class
|
|
End Namespace
|