shu
/
EDOKA_Client
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
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.
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
EDOKA_Client/EDOKA/Backup/DB/Generierte DB Objekte/clsEtparu.vb

692 lines
29 KiB
Raw Permalink Blame History

' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'etparu'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 2. Mai 2005, 09:56:15
' // 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 'etparu'.
' /// </summary>
Public Class clsEtparu
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_sCDNOG01, m_sCDNOG02, m_sCDIPA00, m_sCDSWI00, m_sSAREC00, m_sCDMUTER As SqlString
Private m_daDMERF00, m_daTSMUT00, m_daDMHDR00, m_daDMAFL00, m_daDMGRD00 As SqlDateTime
Private m_dcNRSIC00, m_dcAZBSC00 As SqlDecimal
Private m_iNRPAR00 As SqlInt32
Private m_siNRVRN00, m_siCDBRA00, m_siDMAFLJJ, m_siDMGRDJJ 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>siNRVRN00</LI>
' /// <LI>siCDBRA00. May be SqlInt16.Null</LI>
' /// <LI>daDMGRD00. May be SqlDateTime.Null</LI>
' /// <LI>siDMGRDJJ</LI>
' /// <LI>daDMAFL00. May be SqlDateTime.Null</LI>
' /// <LI>siDMAFLJJ</LI>
' /// <LI>dcAZBSC00. May be SqlDecimal.Null</LI>
' /// <LI>daDMHDR00. May be SqlDateTime.Null</LI>
' /// <LI>sCDIPA00</LI>
' /// <LI>sCDSWI00</LI>
' /// <LI>dcNRSIC00</LI>
' /// <LI>sCDNOG01. May be SqlString.Null</LI>
' /// <LI>sCDNOG02. May be SqlString.Null</LI>
' /// <LI>sCDMUTER</LI>
' /// <LI>daTSMUT00</LI>
' /// <LI>daDMERF00</LI>
' /// <LI>sSAREC00</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_etparu_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("@siNRVRN00", SqlDbType.SmallInt, 2, ParameterDirection.Input, False, 5, 0, "", DataRowVersion.Proposed, m_siNRVRN00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@siCDBRA00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siCDBRA00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daDMGRD00", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDMGRD00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@siDMGRDJJ", SqlDbType.SmallInt, 2, ParameterDirection.Input, False, 5, 0, "", DataRowVersion.Proposed, m_siDMGRDJJ))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daDMAFL00", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDMAFL00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@siDMAFLJJ", SqlDbType.SmallInt, 2, ParameterDirection.Input, False, 5, 0, "", DataRowVersion.Proposed, m_siDMAFLJJ))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dcAZBSC00", SqlDbType.Decimal, 9, ParameterDirection.Input, True, 11, 1, "", DataRowVersion.Proposed, m_dcAZBSC00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daDMHDR00", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDMHDR00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDIPA00", SqlDbType.Char, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sCDIPA00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDSWI00", SqlDbType.Char, 11, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sCDSWI00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dcNRSIC00", SqlDbType.Decimal, 5, ParameterDirection.Input, False, 6, 1, "", DataRowVersion.Proposed, m_dcNRSIC00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDNOG01", SqlDbType.Char, 6, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDNOG01))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDNOG02", SqlDbType.Char, 6, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDNOG02))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDMUTER", SqlDbType.Char, 8, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sCDMUTER))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daTSMUT00", SqlDbType.DateTime, 8, ParameterDirection.Input, False, 23, 3, "", DataRowVersion.Proposed, m_daTSMUT00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daDMERF00", SqlDbType.DateTime, 8, ParameterDirection.Input, False, 23, 3, "", DataRowVersion.Proposed, m_daDMERF00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAREC00", SqlDbType.Char, 1, ParameterDirection.Input, False, 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_etparu_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("clsEtparu::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>siNRVRN00</LI>
' /// <LI>siCDBRA00. May be SqlInt16.Null</LI>
' /// <LI>daDMGRD00. May be SqlDateTime.Null</LI>
' /// <LI>siDMGRDJJ</LI>
' /// <LI>daDMAFL00. May be SqlDateTime.Null</LI>
' /// <LI>siDMAFLJJ</LI>
' /// <LI>dcAZBSC00. May be SqlDecimal.Null</LI>
' /// <LI>daDMHDR00. May be SqlDateTime.Null</LI>
' /// <LI>sCDIPA00</LI>
' /// <LI>sCDSWI00</LI>
' /// <LI>dcNRSIC00</LI>
' /// <LI>sCDNOG01. May be SqlString.Null</LI>
' /// <LI>sCDNOG02. May be SqlString.Null</LI>
' /// <LI>sCDMUTER</LI>
' /// <LI>daTSMUT00</LI>
' /// <LI>daDMERF00</LI>
' /// <LI>sSAREC00</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_etparu_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("@siNRVRN00", SqlDbType.SmallInt, 2, ParameterDirection.Input, False, 5, 0, "", DataRowVersion.Proposed, m_siNRVRN00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@siCDBRA00", SqlDbType.SmallInt, 2, ParameterDirection.Input, True, 5, 0, "", DataRowVersion.Proposed, m_siCDBRA00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daDMGRD00", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDMGRD00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@siDMGRDJJ", SqlDbType.SmallInt, 2, ParameterDirection.Input, False, 5, 0, "", DataRowVersion.Proposed, m_siDMGRDJJ))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daDMAFL00", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDMAFL00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@siDMAFLJJ", SqlDbType.SmallInt, 2, ParameterDirection.Input, False, 5, 0, "", DataRowVersion.Proposed, m_siDMAFLJJ))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dcAZBSC00", SqlDbType.Decimal, 9, ParameterDirection.Input, True, 11, 1, "", DataRowVersion.Proposed, m_dcAZBSC00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daDMHDR00", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDMHDR00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDIPA00", SqlDbType.Char, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sCDIPA00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDSWI00", SqlDbType.Char, 11, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sCDSWI00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dcNRSIC00", SqlDbType.Decimal, 5, ParameterDirection.Input, False, 6, 1, "", DataRowVersion.Proposed, m_dcNRSIC00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDNOG01", SqlDbType.Char, 6, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDNOG01))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDNOG02", SqlDbType.Char, 6, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDNOG02))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDMUTER", SqlDbType.Char, 8, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sCDMUTER))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daTSMUT00", SqlDbType.DateTime, 8, ParameterDirection.Input, False, 23, 3, "", DataRowVersion.Proposed, m_daTSMUT00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daDMERF00", SqlDbType.DateTime, 8, ParameterDirection.Input, False, 23, 3, "", DataRowVersion.Proposed, m_daDMERF00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAREC00", SqlDbType.Char, 1, ParameterDirection.Input, False, 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_etparu_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("clsEtparu::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_etparu_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_etparu_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("clsEtparu::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>siNRVRN00</LI>
' /// <LI>siCDBRA00</LI>
' /// <LI>daDMGRD00</LI>
' /// <LI>siDMGRDJJ</LI>
' /// <LI>daDMAFL00</LI>
' /// <LI>siDMAFLJJ</LI>
' /// <LI>dcAZBSC00</LI>
' /// <LI>daDMHDR00</LI>
' /// <LI>sCDIPA00</LI>
' /// <LI>sCDSWI00</LI>
' /// <LI>dcNRSIC00</LI>
' /// <LI>sCDNOG01</LI>
' /// <LI>sCDNOG02</LI>
' /// <LI>sCDMUTER</LI>
' /// <LI>daTSMUT00</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_etparu_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("etparu")
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_etparu_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))
m_siNRVRN00 = New SqlInt16(CType(dtToReturn.Rows(0)("NRVRN00"), Short))
If dtToReturn.Rows(0)("CDBRA00") Is System.DBNull.Value Then
m_siCDBRA00 = SqlInt16.Null
Else
m_siCDBRA00 = New SqlInt16(CType(dtToReturn.Rows(0)("CDBRA00"), Short))
End If
If dtToReturn.Rows(0)("DMGRD00") Is System.DBNull.Value Then
m_daDMGRD00 = SqlDateTime.Null
Else
m_daDMGRD00 = New SqlDateTime(CType(dtToReturn.Rows(0)("DMGRD00"), Date))
End If
m_siDMGRDJJ = New SqlInt16(CType(dtToReturn.Rows(0)("DMGRDJJ"), Short))
If dtToReturn.Rows(0)("DMAFL00") Is System.DBNull.Value Then
m_daDMAFL00 = SqlDateTime.Null
Else
m_daDMAFL00 = New SqlDateTime(CType(dtToReturn.Rows(0)("DMAFL00"), Date))
End If
m_siDMAFLJJ = New SqlInt16(CType(dtToReturn.Rows(0)("DMAFLJJ"), Short))
If dtToReturn.Rows(0)("AZBSC00") Is System.DBNull.Value Then
m_dcAZBSC00 = SqlDecimal.Null
Else
m_dcAZBSC00 = New SqlDecimal(CType(dtToReturn.Rows(0)("AZBSC00"), Decimal))
End If
If dtToReturn.Rows(0)("DMHDR00") Is System.DBNull.Value Then
m_daDMHDR00 = SqlDateTime.Null
Else
m_daDMHDR00 = New SqlDateTime(CType(dtToReturn.Rows(0)("DMHDR00"), Date))
End If
m_sCDIPA00 = New SqlString(CType(dtToReturn.Rows(0)("CDIPA00"), String))
m_sCDSWI00 = New SqlString(CType(dtToReturn.Rows(0)("CDSWI00"), String))
m_dcNRSIC00 = New SqlDecimal(CType(dtToReturn.Rows(0)("NRSIC00"), Decimal))
If dtToReturn.Rows(0)("CDNOG01") Is System.DBNull.Value Then
m_sCDNOG01 = SqlString.Null
Else
m_sCDNOG01 = New SqlString(CType(dtToReturn.Rows(0)("CDNOG01"), String))
End If
If dtToReturn.Rows(0)("CDNOG02") Is System.DBNull.Value Then
m_sCDNOG02 = SqlString.Null
Else
m_sCDNOG02 = New SqlString(CType(dtToReturn.Rows(0)("CDNOG02"), String))
End If
m_sCDMUTER = New SqlString(CType(dtToReturn.Rows(0)("CDMUTER"), String))
m_daTSMUT00 = New SqlDateTime(CType(dtToReturn.Rows(0)("TSMUT00"), Date))
m_daDMERF00 = New SqlDateTime(CType(dtToReturn.Rows(0)("DMERF00"), Date))
m_sSAREC00 = New SqlString(CType(dtToReturn.Rows(0)("SAREC00"), String))
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsEtparu::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_etparu_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable("etparu")
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_etparu_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("clsEtparu::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 [siNRVRN00]() As SqlInt16
Get
Return m_siNRVRN00
End Get
Set(ByVal Value As SqlInt16)
Dim siNRVRN00Tmp As SqlInt16 = Value
If siNRVRN00Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("siNRVRN00", "siNRVRN00 can't be NULL")
End If
m_siNRVRN00 = Value
End Set
End Property
Public Property [siCDBRA00]() As SqlInt16
Get
Return m_siCDBRA00
End Get
Set(ByVal Value As SqlInt16)
m_siCDBRA00 = Value
End Set
End Property
Public Property [daDMGRD00]() As SqlDateTime
Get
Return m_daDMGRD00
End Get
Set(ByVal Value As SqlDateTime)
m_daDMGRD00 = Value
End Set
End Property
Public Property [siDMGRDJJ]() As SqlInt16
Get
Return m_siDMGRDJJ
End Get
Set(ByVal Value As SqlInt16)
Dim siDMGRDJJTmp As SqlInt16 = Value
If siDMGRDJJTmp.IsNull Then
Throw New ArgumentOutOfRangeException("siDMGRDJJ", "siDMGRDJJ can't be NULL")
End If
m_siDMGRDJJ = Value
End Set
End Property
Public Property [daDMAFL00]() As SqlDateTime
Get
Return m_daDMAFL00
End Get
Set(ByVal Value As SqlDateTime)
m_daDMAFL00 = Value
End Set
End Property
Public Property [siDMAFLJJ]() As SqlInt16
Get
Return m_siDMAFLJJ
End Get
Set(ByVal Value As SqlInt16)
Dim siDMAFLJJTmp As SqlInt16 = Value
If siDMAFLJJTmp.IsNull Then
Throw New ArgumentOutOfRangeException("siDMAFLJJ", "siDMAFLJJ can't be NULL")
End If
m_siDMAFLJJ = Value
End Set
End Property
Public Property [dcAZBSC00]() As SqlDecimal
Get
Return m_dcAZBSC00
End Get
Set(ByVal Value As SqlDecimal)
m_dcAZBSC00 = Value
End Set
End Property
Public Property [daDMHDR00]() As SqlDateTime
Get
Return m_daDMHDR00
End Get
Set(ByVal Value As SqlDateTime)
m_daDMHDR00 = Value
End Set
End Property
Public Property [sCDIPA00]() As SqlString
Get
Return m_sCDIPA00
End Get
Set(ByVal Value As SqlString)
Dim sCDIPA00Tmp As SqlString = Value
If sCDIPA00Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sCDIPA00", "sCDIPA00 can't be NULL")
End If
m_sCDIPA00 = Value
End Set
End Property
Public Property [sCDSWI00]() As SqlString
Get
Return m_sCDSWI00
End Get
Set(ByVal Value As SqlString)
Dim sCDSWI00Tmp As SqlString = Value
If sCDSWI00Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sCDSWI00", "sCDSWI00 can't be NULL")
End If
m_sCDSWI00 = Value
End Set
End Property
Public Property [dcNRSIC00]() As SqlDecimal
Get
Return m_dcNRSIC00
End Get
Set(ByVal Value As SqlDecimal)
Dim dcNRSIC00Tmp As SqlDecimal = Value
If dcNRSIC00Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("dcNRSIC00", "dcNRSIC00 can't be NULL")
End If
m_dcNRSIC00 = Value
End Set
End Property
Public Property [sCDNOG01]() As SqlString
Get
Return m_sCDNOG01
End Get
Set(ByVal Value As SqlString)
m_sCDNOG01 = Value
End Set
End Property
Public Property [sCDNOG02]() As SqlString
Get
Return m_sCDNOG02
End Get
Set(ByVal Value As SqlString)
m_sCDNOG02 = Value
End Set
End Property
Public Property [sCDMUTER]() As SqlString
Get
Return m_sCDMUTER
End Get
Set(ByVal Value As SqlString)
Dim sCDMUTERTmp As SqlString = Value
If sCDMUTERTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sCDMUTER", "sCDMUTER can't be NULL")
End If
m_sCDMUTER = Value
End Set
End Property
Public Property [daTSMUT00]() As SqlDateTime
Get
Return m_daTSMUT00
End Get
Set(ByVal Value As SqlDateTime)
Dim daTSMUT00Tmp As SqlDateTime = Value
If daTSMUT00Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("daTSMUT00", "daTSMUT00 can't be NULL")
End If
m_daTSMUT00 = Value
End Set
End Property
Public Property [daDMERF00]() As SqlDateTime
Get
Return m_daDMERF00
End Get
Set(ByVal Value As SqlDateTime)
Dim daDMERF00Tmp As SqlDateTime = Value
If daDMERF00Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("daDMERF00", "daDMERF00 can't be NULL")
End If
m_daDMERF00 = Value
End Set
End Property
Public Property [sSAREC00]() As SqlString
Get
Return m_sSAREC00
End Get
Set(ByVal Value As SqlString)
Dim sSAREC00Tmp As SqlString = Value
If sSAREC00Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sSAREC00", "sSAREC00 can't be NULL")
End If
m_sSAREC00 = Value
End Set
End Property
#End Region
End Class
End Namespace
Reference in new issue View Git Blame Copy Permalink