' /////////////////////////////////////////////////////////////////////////// ' // Description: Data Access class for the table 'EDEX_BL_Auslieferung' ' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 15. Mai 2005, 16:57:27 ' // Because the Base Class already implements IDispose, this class doesn't. ' /////////////////////////////////////////////////////////////////////////// Imports System Imports System.Data Imports System.Data.SqlTypes Imports System.Data.SqlClient Namespace edokadb ' /// ' /// Purpose: Data Access class for the table 'EDEX_BL_Auslieferung'. ' /// Public Class clsEDEX_BL_Auslieferung Inherits clsDBInteractionBase #Region " Class Member Declarations " Private m_bAushaendigung_blv, m_bAushaendigung_kube, m_bAushaendigungsart_persoenlich, m_bGrundlage2, m_bGrundlage3, m_bGrundlage4, m_bBeilage_zur_Quittung1, m_bBeilage_zur_Quittung2, m_bBeilage_zur_Quittung3, m_bAushaendigungsart_post, m_bAushaendigung_verschlossen, m_bAushaendigung_nicht_verschlossen, m_bGrundlage1, m_bAktiv As SqlBoolean Private m_daDokumentebis, m_daMutiert_am, m_daDokumenteab, m_daErstellt_am, m_daGrundlage1_Datum, m_daGrundlage3_Datum, m_daGrundlage4_Datum, m_daGrundlage2_Datum As SqlDateTime Private m_iNrpar00, m_iAuslieferungnr, m_iBlv, m_iMutierer, m_iStatus, m_iKube As SqlInt32 Private m_sBemerkung, m_sBeilage_zur_Quittung_text, m_sQuittungsflag, m_sDokumentid_quittung, m_sBezeichnung As SqlString #End Region ' /// ' /// Purpose: Class constructor. ' /// Public Sub New() ' // Nothing for now. End Sub ' /// ' /// Purpose: Insert method. This method will insert one new row into the database. ' /// ' /// True if succeeded, otherwise an Exception is thrown. ' /// ' /// Properties needed for this method: ' /// ' /// Properties set after a succesful call of this method: ' /// ' /// Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_edex_bl_EDEX_BL_Auslieferung_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid_quittung", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid_quittung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@squittungsflag", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sQuittungsflag)) scmCmdToExecute.Parameters.Add(New SqlParameter("@inrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNrpar00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bGrundlage1", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bGrundlage1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daGrundlage1_Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daGrundlage1_Datum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bGrundlage2", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bGrundlage2)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daGrundlage2_Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daGrundlage2_Datum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bGrundlage3", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bGrundlage3)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daGrundlage3_Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daGrundlage3_Datum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bGrundlage4", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bGrundlage4)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daGrundlage4_Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daGrundlage4_Datum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAushaendigung_blv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAushaendigung_blv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iblv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBlv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAushaendigung_kube", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAushaendigung_kube)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ikube", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKube)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAushaendigungsart_persoenlich", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAushaendigungsart_persoenlich)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baushaendigungsart_post", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAushaendigungsart_post)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAushaendigung_verschlossen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAushaendigung_verschlossen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAushaendigung_nicht_verschlossen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAushaendigung_nicht_verschlossen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bBeilage_zur_Quittung1", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBeilage_zur_Quittung1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bBeilage_zur_Quittung2", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBeilage_zur_Quittung2)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bBeilage_zur_Quittung3", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBeilage_zur_Quittung3)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeilage_zur_Quittung_text", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeilage_zur_Quittung_text)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dadokumenteab", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDokumenteab)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dadokumentebis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDokumentebis)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iauslieferungnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iAuslieferungnr)) 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_iAuslieferungnr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iauslieferungnr").Value, SqlInt32)) 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_edex_bl_EDEX_BL_Auslieferung_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("clsEDEX_BL_Auslieferung::Insert::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function ' /// ' /// Purpose: Update method. This method will Update one existing row in the database. ' /// ' /// True if succeeded, otherwise an Exception is thrown. ' /// ' /// Properties needed for this method: ' /// ' /// Properties set after a succesful call of this method: ' /// ' /// Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_edex_bl_EDEX_BL_Auslieferung_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iauslieferungnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuslieferungnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid_quittung", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid_quittung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@squittungsflag", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sQuittungsflag)) scmCmdToExecute.Parameters.Add(New SqlParameter("@inrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNrpar00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bGrundlage1", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bGrundlage1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daGrundlage1_Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daGrundlage1_Datum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bGrundlage2", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bGrundlage2)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daGrundlage2_Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daGrundlage2_Datum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bGrundlage3", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bGrundlage3)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daGrundlage3_Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daGrundlage3_Datum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bGrundlage4", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bGrundlage4)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daGrundlage4_Datum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daGrundlage4_Datum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAushaendigung_blv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAushaendigung_blv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iblv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBlv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAushaendigung_kube", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAushaendigung_kube)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ikube", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKube)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAushaendigungsart_persoenlich", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAushaendigungsart_persoenlich)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baushaendigungsart_post", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAushaendigungsart_post)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAushaendigung_verschlossen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAushaendigung_verschlossen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAushaendigung_nicht_verschlossen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAushaendigung_nicht_verschlossen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bBeilage_zur_Quittung1", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBeilage_zur_Quittung1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bBeilage_zur_Quittung2", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBeilage_zur_Quittung2)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bBeilage_zur_Quittung3", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBeilage_zur_Quittung3)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeilage_zur_Quittung_text", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeilage_zur_Quittung_text)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dadokumenteab", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDokumenteab)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dadokumentebis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDokumentebis)) 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_edex_bl_EDEX_BL_Auslieferung_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("clsEDEX_BL_Auslieferung::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function ' /// ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. ' /// ' /// True if succeeded, otherwise an Exception is thrown. ' /// ' /// Properties needed for this method: ' /// ' /// Properties set after a succesful call of this method: ' /// ' /// Public Overrides Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_edex_bl_EDEX_BL_Auslieferung_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iauslieferungnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuslieferungnr)) 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_edex_bl_EDEX_BL_Auslieferung_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("clsEDEX_BL_Auslieferung::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function ' /// ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. ' /// ' /// DataTable object if succeeded, otherwise an Exception is thrown. ' /// ' /// Properties needed for this method: ' /// ' /// Properties set after a succesful call of this method: ' /// ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. ' /// Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_edex_bl_EDEX_BL_Auslieferung_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("EDEX_BL_Auslieferung") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@iauslieferungnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuslieferungnr)) 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_edex_bl_EDEX_BL_Auslieferung_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_iAuslieferungnr = New SqlInt32(CType(dtToReturn.Rows(0)("auslieferungnr"), Integer)) If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then m_sBezeichnung = SqlString.Null Else m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String)) End If If dtToReturn.Rows(0)("dokumentid_quittung") Is System.DBNull.Value Then m_sDokumentid_quittung = SqlString.Null Else m_sDokumentid_quittung = New SqlString(CType(dtToReturn.Rows(0)("dokumentid_quittung"), String)) End If If dtToReturn.Rows(0)("quittungsflag") Is System.DBNull.Value Then m_sQuittungsflag = SqlString.Null Else m_sQuittungsflag = New SqlString(CType(dtToReturn.Rows(0)("quittungsflag"), String)) End If If dtToReturn.Rows(0)("nrpar00") Is System.DBNull.Value Then m_iNrpar00 = SqlInt32.Null Else m_iNrpar00 = New SqlInt32(CType(dtToReturn.Rows(0)("nrpar00"), Integer)) End If If dtToReturn.Rows(0)("status") Is System.DBNull.Value Then m_iStatus = SqlInt32.Null Else m_iStatus = New SqlInt32(CType(dtToReturn.Rows(0)("status"), Integer)) End If If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then m_daErstellt_am = SqlDateTime.Null Else m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) End If If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then m_daMutiert_am = SqlDateTime.Null Else m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) End If If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then m_iMutierer = SqlInt32.Null Else m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) End If If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then m_bAktiv = SqlBoolean.Null Else m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) End If If dtToReturn.Rows(0)("Grundlage1") Is System.DBNull.Value Then m_bGrundlage1 = SqlBoolean.Null Else m_bGrundlage1 = New SqlBoolean(CType(dtToReturn.Rows(0)("Grundlage1"), Boolean)) End If If dtToReturn.Rows(0)("Grundlage1_Datum") Is System.DBNull.Value Then m_daGrundlage1_Datum = SqlDateTime.Null Else m_daGrundlage1_Datum = New SqlDateTime(CType(dtToReturn.Rows(0)("Grundlage1_Datum"), Date)) End If If dtToReturn.Rows(0)("Grundlage2") Is System.DBNull.Value Then m_bGrundlage2 = SqlBoolean.Null Else m_bGrundlage2 = New SqlBoolean(CType(dtToReturn.Rows(0)("Grundlage2"), Boolean)) End If If dtToReturn.Rows(0)("Grundlage2_Datum") Is System.DBNull.Value Then m_daGrundlage2_Datum = SqlDateTime.Null Else m_daGrundlage2_Datum = New SqlDateTime(CType(dtToReturn.Rows(0)("Grundlage2_Datum"), Date)) End If If dtToReturn.Rows(0)("Grundlage3") Is System.DBNull.Value Then m_bGrundlage3 = SqlBoolean.Null Else m_bGrundlage3 = New SqlBoolean(CType(dtToReturn.Rows(0)("Grundlage3"), Boolean)) End If If dtToReturn.Rows(0)("Grundlage3_Datum") Is System.DBNull.Value Then m_daGrundlage3_Datum = SqlDateTime.Null Else m_daGrundlage3_Datum = New SqlDateTime(CType(dtToReturn.Rows(0)("Grundlage3_Datum"), Date)) End If If dtToReturn.Rows(0)("Grundlage4") Is System.DBNull.Value Then m_bGrundlage4 = SqlBoolean.Null Else m_bGrundlage4 = New SqlBoolean(CType(dtToReturn.Rows(0)("Grundlage4"), Boolean)) End If If dtToReturn.Rows(0)("Grundlage4_Datum") Is System.DBNull.Value Then m_daGrundlage4_Datum = SqlDateTime.Null Else m_daGrundlage4_Datum = New SqlDateTime(CType(dtToReturn.Rows(0)("Grundlage4_Datum"), Date)) End If If dtToReturn.Rows(0)("Aushaendigung_blv") Is System.DBNull.Value Then m_bAushaendigung_blv = SqlBoolean.Null Else m_bAushaendigung_blv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aushaendigung_blv"), Boolean)) End If If dtToReturn.Rows(0)("blv") Is System.DBNull.Value Then m_iBlv = SqlInt32.Null Else m_iBlv = New SqlInt32(CType(dtToReturn.Rows(0)("blv"), Integer)) End If If dtToReturn.Rows(0)("Aushaendigung_kube") Is System.DBNull.Value Then m_bAushaendigung_kube = SqlBoolean.Null Else m_bAushaendigung_kube = New SqlBoolean(CType(dtToReturn.Rows(0)("Aushaendigung_kube"), Boolean)) End If If dtToReturn.Rows(0)("kube") Is System.DBNull.Value Then m_iKube = SqlInt32.Null Else m_iKube = New SqlInt32(CType(dtToReturn.Rows(0)("kube"), Integer)) End If If dtToReturn.Rows(0)("Aushaendigungsart_persoenlich") Is System.DBNull.Value Then m_bAushaendigungsart_persoenlich = SqlBoolean.Null Else m_bAushaendigungsart_persoenlich = New SqlBoolean(CType(dtToReturn.Rows(0)("Aushaendigungsart_persoenlich"), Boolean)) End If If dtToReturn.Rows(0)("aushaendigungsart_post") Is System.DBNull.Value Then m_bAushaendigungsart_post = SqlBoolean.Null Else m_bAushaendigungsart_post = New SqlBoolean(CType(dtToReturn.Rows(0)("aushaendigungsart_post"), Boolean)) End If If dtToReturn.Rows(0)("Aushaendigung_verschlossen") Is System.DBNull.Value Then m_bAushaendigung_verschlossen = SqlBoolean.Null Else m_bAushaendigung_verschlossen = New SqlBoolean(CType(dtToReturn.Rows(0)("Aushaendigung_verschlossen"), Boolean)) End If If dtToReturn.Rows(0)("Aushaendigung_nicht_verschlossen") Is System.DBNull.Value Then m_bAushaendigung_nicht_verschlossen = SqlBoolean.Null Else m_bAushaendigung_nicht_verschlossen = New SqlBoolean(CType(dtToReturn.Rows(0)("Aushaendigung_nicht_verschlossen"), Boolean)) End If If dtToReturn.Rows(0)("Beilage_zur_Quittung1") Is System.DBNull.Value Then m_bBeilage_zur_Quittung1 = SqlBoolean.Null Else m_bBeilage_zur_Quittung1 = New SqlBoolean(CType(dtToReturn.Rows(0)("Beilage_zur_Quittung1"), Boolean)) End If If dtToReturn.Rows(0)("Beilage_zur_Quittung2") Is System.DBNull.Value Then m_bBeilage_zur_Quittung2 = SqlBoolean.Null Else m_bBeilage_zur_Quittung2 = New SqlBoolean(CType(dtToReturn.Rows(0)("Beilage_zur_Quittung2"), Boolean)) End If If dtToReturn.Rows(0)("Beilage_zur_Quittung3") Is System.DBNull.Value Then m_bBeilage_zur_Quittung3 = SqlBoolean.Null Else m_bBeilage_zur_Quittung3 = New SqlBoolean(CType(dtToReturn.Rows(0)("Beilage_zur_Quittung3"), Boolean)) End If If dtToReturn.Rows(0)("Beilage_zur_Quittung_text") Is System.DBNull.Value Then m_sBeilage_zur_Quittung_text = SqlString.Null Else m_sBeilage_zur_Quittung_text = New SqlString(CType(dtToReturn.Rows(0)("Beilage_zur_Quittung_text"), String)) End If If dtToReturn.Rows(0)("Bemerkung") Is System.DBNull.Value Then m_sBemerkung = SqlString.Null Else m_sBemerkung = New SqlString(CType(dtToReturn.Rows(0)("Bemerkung"), String)) End If If dtToReturn.Rows(0)("dokumenteab") Is System.DBNull.Value Then m_daDokumenteab = SqlDateTime.Null Else m_daDokumenteab = New SqlDateTime(CType(dtToReturn.Rows(0)("dokumenteab"), Date)) End If If dtToReturn.Rows(0)("dokumentebis") Is System.DBNull.Value Then m_daDokumentebis = SqlDateTime.Null Else m_daDokumentebis = New SqlDateTime(CType(dtToReturn.Rows(0)("dokumentebis"), 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("clsEDEX_BL_Auslieferung::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function ' /// ' /// Purpose: SelectAll method. This method will Select all rows from the table. ' /// ' /// DataTable object if succeeded, otherwise an Exception is thrown. ' /// ' /// Properties set after a succesful call of this method: ' /// ' /// Public Overrides Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_edex_bl_EDEX_BL_Auslieferung_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("EDEX_BL_Auslieferung") 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_edex_bl_EDEX_BL_Auslieferung_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("clsEDEX_BL_Auslieferung::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 [iAuslieferungnr]() As SqlInt32 Get Return m_iAuslieferungnr End Get Set(ByVal Value As SqlInt32) Dim iAuslieferungnrTmp As SqlInt32 = Value If iAuslieferungnrTmp.IsNull Then Throw New ArgumentOutOfRangeException("iAuslieferungnr", "iAuslieferungnr can't be NULL") End If m_iAuslieferungnr = Value End Set End Property Public Property [sBezeichnung]() As SqlString Get Return m_sBezeichnung End Get Set(ByVal Value As SqlString) m_sBezeichnung = Value End Set End Property Public Property [sDokumentid_quittung]() As SqlString Get Return m_sDokumentid_quittung End Get Set(ByVal Value As SqlString) m_sDokumentid_quittung = Value End Set End Property Public Property [sQuittungsflag]() As SqlString Get Return m_sQuittungsflag End Get Set(ByVal Value As SqlString) m_sQuittungsflag = Value End Set End Property Public Property [iNrpar00]() As SqlInt32 Get Return m_iNrpar00 End Get Set(ByVal Value As SqlInt32) m_iNrpar00 = Value End Set End Property Public Property [iStatus]() As SqlInt32 Get Return m_iStatus End Get Set(ByVal Value As SqlInt32) m_iStatus = Value End Set End Property Public Property [daErstellt_am]() As SqlDateTime Get Return m_daErstellt_am End Get Set(ByVal Value As SqlDateTime) m_daErstellt_am = Value End Set End Property Public Property [daMutiert_am]() As SqlDateTime Get Return m_daMutiert_am End Get Set(ByVal Value As SqlDateTime) m_daMutiert_am = Value End Set End Property Public Property [iMutierer]() As SqlInt32 Get Return m_iMutierer End Get Set(ByVal Value As SqlInt32) m_iMutierer = Value End Set End Property Public Property [bAktiv]() As SqlBoolean Get Return m_bAktiv End Get Set(ByVal Value As SqlBoolean) m_bAktiv = Value End Set End Property Public Property [bGrundlage1]() As SqlBoolean Get Return m_bGrundlage1 End Get Set(ByVal Value As SqlBoolean) m_bGrundlage1 = Value End Set End Property Public Property [daGrundlage1_Datum]() As SqlDateTime Get Return m_daGrundlage1_Datum End Get Set(ByVal Value As SqlDateTime) m_daGrundlage1_Datum = Value End Set End Property Public Property [bGrundlage2]() As SqlBoolean Get Return m_bGrundlage2 End Get Set(ByVal Value As SqlBoolean) m_bGrundlage2 = Value End Set End Property Public Property [daGrundlage2_Datum]() As SqlDateTime Get Return m_daGrundlage2_Datum End Get Set(ByVal Value As SqlDateTime) m_daGrundlage2_Datum = Value End Set End Property Public Property [bGrundlage3]() As SqlBoolean Get Return m_bGrundlage3 End Get Set(ByVal Value As SqlBoolean) m_bGrundlage3 = Value End Set End Property Public Property [daGrundlage3_Datum]() As SqlDateTime Get Return m_daGrundlage3_Datum End Get Set(ByVal Value As SqlDateTime) m_daGrundlage3_Datum = Value End Set End Property Public Property [bGrundlage4]() As SqlBoolean Get Return m_bGrundlage4 End Get Set(ByVal Value As SqlBoolean) m_bGrundlage4 = Value End Set End Property Public Property [daGrundlage4_Datum]() As SqlDateTime Get Return m_daGrundlage4_Datum End Get Set(ByVal Value As SqlDateTime) m_daGrundlage4_Datum = Value End Set End Property Public Property [bAushaendigung_blv]() As SqlBoolean Get Return m_bAushaendigung_blv End Get Set(ByVal Value As SqlBoolean) m_bAushaendigung_blv = Value End Set End Property Public Property [iBlv]() As SqlInt32 Get Return m_iBlv End Get Set(ByVal Value As SqlInt32) m_iBlv = Value End Set End Property Public Property [bAushaendigung_kube]() As SqlBoolean Get Return m_bAushaendigung_kube End Get Set(ByVal Value As SqlBoolean) m_bAushaendigung_kube = Value End Set End Property Public Property [iKube]() As SqlInt32 Get Return m_iKube End Get Set(ByVal Value As SqlInt32) m_iKube = Value End Set End Property Public Property [bAushaendigungsart_persoenlich]() As SqlBoolean Get Return m_bAushaendigungsart_persoenlich End Get Set(ByVal Value As SqlBoolean) m_bAushaendigungsart_persoenlich = Value End Set End Property Public Property [bAushaendigungsart_post]() As SqlBoolean Get Return m_bAushaendigungsart_post End Get Set(ByVal Value As SqlBoolean) m_bAushaendigungsart_post = Value End Set End Property Public Property [bAushaendigung_verschlossen]() As SqlBoolean Get Return m_bAushaendigung_verschlossen End Get Set(ByVal Value As SqlBoolean) m_bAushaendigung_verschlossen = Value End Set End Property Public Property [bAushaendigung_nicht_verschlossen]() As SqlBoolean Get Return m_bAushaendigung_nicht_verschlossen End Get Set(ByVal Value As SqlBoolean) m_bAushaendigung_nicht_verschlossen = Value End Set End Property Public Property [bBeilage_zur_Quittung1]() As SqlBoolean Get Return m_bBeilage_zur_Quittung1 End Get Set(ByVal Value As SqlBoolean) m_bBeilage_zur_Quittung1 = Value End Set End Property Public Property [bBeilage_zur_Quittung2]() As SqlBoolean Get Return m_bBeilage_zur_Quittung2 End Get Set(ByVal Value As SqlBoolean) m_bBeilage_zur_Quittung2 = Value End Set End Property Public Property [bBeilage_zur_Quittung3]() As SqlBoolean Get Return m_bBeilage_zur_Quittung3 End Get Set(ByVal Value As SqlBoolean) m_bBeilage_zur_Quittung3 = Value End Set End Property Public Property [sBeilage_zur_Quittung_text]() As SqlString Get Return m_sBeilage_zur_Quittung_text End Get Set(ByVal Value As SqlString) m_sBeilage_zur_Quittung_text = Value End Set End Property Public Property [sBemerkung]() As SqlString Get Return m_sBemerkung End Get Set(ByVal Value As SqlString) m_sBemerkung = Value End Set End Property Public Property [daDokumenteab]() As SqlDateTime Get Return m_daDokumenteab End Get Set(ByVal Value As SqlDateTime) m_daDokumenteab = Value End Set End Property Public Property [daDokumentebis]() As SqlDateTime Get Return m_daDokumentebis End Get Set(ByVal Value As SqlDateTime) m_daDokumentebis = Value End Set End Property #End Region End Class End Namespace