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.
1302 lines
52 KiB
1302 lines
52 KiB
' ///////////////////////////////////////////////////////////////////////////
|
|
' // Description: Data Access class for the table 'Vertragsereignis'
|
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 26. Mai 2009, 18:34:55
|
|
' // 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 TKB.VV.DB
|
|
''' <summary>
|
|
''' Purpose: Data Access class for the table 'Vertragsereignis'.
|
|
''' </summary>
|
|
Public Class clsVertragsereignis
|
|
Inherits clsDBInteractionBase
|
|
|
|
#Region " Class Member Declarations "
|
|
|
|
Private m_bInklMwSt, m_bAktiv As SqlBoolean
|
|
Private m_daDatum, m_daEnde, m_daStart, m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
|
Private m_fBetrag As SqlDouble
|
|
Private m_iSecurityLevelNr, m_iKuendigungsfristnr, m_iMutierer, m_iMandantNr, m_iKostenartNr, m_iKostenartNrOld, m_iVertragselementnr, m_iVertragselementnrOld, m_iPeriodizitaetNr, m_iEreignistypNr, m_iEreignistypNrOld, m_iVorlaufzeit, m_iEreignisNr As SqlInt32
|
|
Private m_sBezeichnung, m_sBeschreibung As SqlString
|
|
|
|
#End Region
|
|
|
|
|
|
''' <summary>
|
|
''' Purpose: Class constructor.
|
|
''' </summary>
|
|
Public Sub New()
|
|
' // Nothing for now.
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
|
''' </summary>
|
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
|
''' <remarks>
|
|
''' Properties needed for this method:
|
|
''' <UL>
|
|
''' <LI>iEreignisNr</LI>
|
|
''' <LI>iVertragselementnr. May be SqlInt32.Null</LI>
|
|
''' <LI>iEreignistypNr. May be SqlInt32.Null</LI>
|
|
''' <LI>iPeriodizitaetNr. May be SqlInt32.Null</LI>
|
|
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
|
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
|
''' <LI>fBetrag. May be SqlDouble.Null</LI>
|
|
''' <LI>bInklMwSt. May be SqlBoolean.Null</LI>
|
|
''' <LI>daDatum. May be SqlDateTime.Null</LI>
|
|
''' <LI>daStart. May be SqlDateTime.Null</LI>
|
|
''' <LI>daEnde. May be SqlDateTime.Null</LI>
|
|
''' <LI>iVorlaufzeit. May be SqlInt32.Null</LI>
|
|
''' <LI>iKostenartNr. May be SqlInt32.Null</LI>
|
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
|
''' <LI>iMandantNr. May be SqlInt32.Null</LI>
|
|
''' <LI>iSecurityLevelNr. May be SqlInt32.Null</LI>
|
|
''' <LI>iKuendigungsfristnr. May be SqlInt32.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_Vertragsereignis_Insert]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iEreignisNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEreignisNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVertragselementnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVertragselementnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iEreignistypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iEreignistypNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPeriodizitaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPeriodizitaetNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fBetrag", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fBetrag))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bInklMwSt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bInklMwSt))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daDatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daDatum))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daStart", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daStart))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daEnde", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daEnde))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVorlaufzeit", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlaufzeit))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iKostenartNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKostenartNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", 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("@iMandantNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSecurityLevelNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSecurityLevelNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iKuendigungsfristnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKuendigungsfristnr))
|
|
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.
|
|
m_iRowsAffected = 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_Vertragsereignis_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("clsVertragsereignis::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>iEreignisNr</LI>
|
|
''' <LI>iVertragselementnr. May be SqlInt32.Null</LI>
|
|
''' <LI>iEreignistypNr. May be SqlInt32.Null</LI>
|
|
''' <LI>iPeriodizitaetNr. May be SqlInt32.Null</LI>
|
|
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
|
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
|
''' <LI>fBetrag. May be SqlDouble.Null</LI>
|
|
''' <LI>bInklMwSt. May be SqlBoolean.Null</LI>
|
|
''' <LI>daDatum. May be SqlDateTime.Null</LI>
|
|
''' <LI>daStart. May be SqlDateTime.Null</LI>
|
|
''' <LI>daEnde. May be SqlDateTime.Null</LI>
|
|
''' <LI>iVorlaufzeit. May be SqlInt32.Null</LI>
|
|
''' <LI>iKostenartNr. May be SqlInt32.Null</LI>
|
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
|
''' <LI>iMandantNr. May be SqlInt32.Null</LI>
|
|
''' <LI>iSecurityLevelNr. May be SqlInt32.Null</LI>
|
|
''' <LI>iKuendigungsfristnr. May be SqlInt32.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_Vertragsereignis_Update]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iEreignisNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEreignisNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVertragselementnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVertragselementnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iEreignistypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iEreignistypNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPeriodizitaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPeriodizitaetNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fBetrag", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fBetrag))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bInklMwSt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bInklMwSt))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daDatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daDatum))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daStart", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daStart))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daEnde", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daEnde))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVorlaufzeit", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlaufzeit))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iKostenartNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKostenartNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", 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("@iMandantNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSecurityLevelNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSecurityLevelNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iKuendigungsfristnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKuendigungsfristnr))
|
|
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.
|
|
m_iRowsAffected = 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_Vertragsereignis_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("clsVertragsereignis::Update::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 for updating one or more rows using the Foreign Key 'Vertragselementnr.
|
|
''' This method will Update one or more existing rows in the database. It will reset the field 'Vertragselementnr' in
|
|
''' all rows which have as value for this field the value as set in property 'iVertragselementnrOld' to
|
|
''' the value as set in property 'iVertragselementnr'.
|
|
''' </summary>
|
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
|
''' <remarks>
|
|
''' Properties needed for this method:
|
|
''' <UL>
|
|
''' <LI>iVertragselementnr. May be SqlInt32.Null</LI>
|
|
''' <LI>iVertragselementnrOld. May be SqlInt32.Null</LI>
|
|
''' </UL>
|
|
''' Properties set after a succesful call of this method:
|
|
''' <UL>
|
|
''' <LI>iErrorCode</LI>
|
|
''' </UL>
|
|
''' </remarks>
|
|
Public Function UpdateAllWVertragselementnrLogic() As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_UpdateAllWVertragselementnrLogic]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iVertragselementnr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iVertragselementnr))
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iVertragselementnrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVertragselementnrOld))
|
|
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.
|
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
|
m_iVertragselementnr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iVertragselementnr").Value, Integer))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_Vertragsereignis_UpdateAllWVertragselementnrLogic' 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("clsVertragsereignis::UpdateAllWVertragselementnrLogic::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 for updating one or more rows using the Foreign Key 'EreignistypNr.
|
|
''' This method will Update one or more existing rows in the database. It will reset the field 'EreignistypNr' in
|
|
''' all rows which have as value for this field the value as set in property 'iEreignistypNrOld' to
|
|
''' the value as set in property 'iEreignistypNr'.
|
|
''' </summary>
|
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
|
''' <remarks>
|
|
''' Properties needed for this method:
|
|
''' <UL>
|
|
''' <LI>iEreignistypNr. May be SqlInt32.Null</LI>
|
|
''' <LI>iEreignistypNrOld. May be SqlInt32.Null</LI>
|
|
''' </UL>
|
|
''' Properties set after a succesful call of this method:
|
|
''' <UL>
|
|
''' <LI>iErrorCode</LI>
|
|
''' </UL>
|
|
''' </remarks>
|
|
Public Function UpdateAllWEreignistypNrLogic() As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_UpdateAllWEreignistypNrLogic]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iEreignistypNr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iEreignistypNr))
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iEreignistypNrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iEreignistypNrOld))
|
|
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.
|
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
|
m_iEreignistypNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iEreignistypNr").Value, Integer))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_Vertragsereignis_UpdateAllWEreignistypNrLogic' 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("clsVertragsereignis::UpdateAllWEreignistypNrLogic::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 for updating one or more rows using the Foreign Key 'KostenartNr.
|
|
''' This method will Update one or more existing rows in the database. It will reset the field 'KostenartNr' in
|
|
''' all rows which have as value for this field the value as set in property 'iKostenartNrOld' to
|
|
''' the value as set in property 'iKostenartNr'.
|
|
''' </summary>
|
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
|
''' <remarks>
|
|
''' Properties needed for this method:
|
|
''' <UL>
|
|
''' <LI>iKostenartNr. May be SqlInt32.Null</LI>
|
|
''' <LI>iKostenartNrOld. May be SqlInt32.Null</LI>
|
|
''' </UL>
|
|
''' Properties set after a succesful call of this method:
|
|
''' <UL>
|
|
''' <LI>iErrorCode</LI>
|
|
''' </UL>
|
|
''' </remarks>
|
|
Public Function UpdateAllWKostenartNrLogic() As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_UpdateAllWKostenartNrLogic]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iKostenartNr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iKostenartNr))
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iKostenartNrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKostenartNrOld))
|
|
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.
|
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
|
m_iKostenartNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iKostenartNr").Value, Integer))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_Vertragsereignis_UpdateAllWKostenartNrLogic' 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("clsVertragsereignis::UpdateAllWKostenartNrLogic::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>iEreignisNr</LI>
|
|
''' </UL>
|
|
''' Properties set after a succesful call of this method:
|
|
''' <UL>
|
|
''' <LI>iErrorCode</LI>
|
|
'''</UL>
|
|
''' </remarks>
|
|
Overrides Public Function Delete() As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_Delete]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iEreignisNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEreignisNr))
|
|
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.
|
|
m_iRowsAffected = 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_Vertragsereignis_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("clsVertragsereignis::Delete::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 for a foreign key. This method will Delete one or more rows from the database, based on the Foreign Key 'Vertragselementnr'
|
|
''' </summary>
|
|
''' <returns>true if succeeded, false otherwise </returns>
|
|
''' <remarks>
|
|
''' Properties needed for this method:
|
|
''' <UL>
|
|
''' <LI>iVertragselementnr. May be SqlInt32.Null</LI>
|
|
''' </UL>
|
|
''' Properties set after a succesful call of this method:
|
|
''' <UL>
|
|
''' <LI>iErrorCode</LI>
|
|
''' </UL>
|
|
''' </remarks>
|
|
Public Function DeleteAllWVertragselementnrLogic() As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_DeleteAllWVertragselementnrLogic]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iVertragselementnr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iVertragselementnr))
|
|
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.
|
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
|
m_iVertragselementnr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iVertragselementnr").Value, Integer))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_Vertragsereignis_DeleteAllWVertragselementnrLogic' 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("clsVertragsereignis::DeleteAllWVertragselementnrLogic::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 for a foreign key. This method will Delete one or more rows from the database, based on the Foreign Key 'EreignistypNr'
|
|
''' </summary>
|
|
''' <returns>true if succeeded, false otherwise </returns>
|
|
''' <remarks>
|
|
''' Properties needed for this method:
|
|
''' <UL>
|
|
''' <LI>iEreignistypNr. May be SqlInt32.Null</LI>
|
|
''' </UL>
|
|
''' Properties set after a succesful call of this method:
|
|
''' <UL>
|
|
''' <LI>iErrorCode</LI>
|
|
''' </UL>
|
|
''' </remarks>
|
|
Public Function DeleteAllWEreignistypNrLogic() As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_DeleteAllWEreignistypNrLogic]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iEreignistypNr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iEreignistypNr))
|
|
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.
|
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
|
m_iEreignistypNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iEreignistypNr").Value, Integer))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_Vertragsereignis_DeleteAllWEreignistypNrLogic' 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("clsVertragsereignis::DeleteAllWEreignistypNrLogic::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 for a foreign key. This method will Delete one or more rows from the database, based on the Foreign Key 'KostenartNr'
|
|
''' </summary>
|
|
''' <returns>true if succeeded, false otherwise </returns>
|
|
''' <remarks>
|
|
''' Properties needed for this method:
|
|
''' <UL>
|
|
''' <LI>iKostenartNr. May be SqlInt32.Null</LI>
|
|
''' </UL>
|
|
''' Properties set after a succesful call of this method:
|
|
''' <UL>
|
|
''' <LI>iErrorCode</LI>
|
|
''' </UL>
|
|
''' </remarks>
|
|
Public Function DeleteAllWKostenartNrLogic() As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_DeleteAllWKostenartNrLogic]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iKostenartNr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iKostenartNr))
|
|
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.
|
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
|
m_iKostenartNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iKostenartNr").Value, Integer))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_Vertragsereignis_DeleteAllWKostenartNrLogic' 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("clsVertragsereignis::DeleteAllWKostenartNrLogic::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>iEreignisNr</LI>
|
|
''' </UL>
|
|
''' Properties set after a succesful call of this method:
|
|
''' <UL>
|
|
''' <LI>iErrorCode</LI>
|
|
''' <LI>iEreignisNr</LI>
|
|
''' <LI>iVertragselementnr</LI>
|
|
''' <LI>iEreignistypNr</LI>
|
|
''' <LI>iPeriodizitaetNr</LI>
|
|
''' <LI>sBezeichnung</LI>
|
|
''' <LI>sBeschreibung</LI>
|
|
''' <LI>fBetrag</LI>
|
|
''' <LI>bInklMwSt</LI>
|
|
''' <LI>daDatum</LI>
|
|
''' <LI>daStart</LI>
|
|
''' <LI>daEnde</LI>
|
|
''' <LI>iVorlaufzeit</LI>
|
|
''' <LI>iKostenartNr</LI>
|
|
''' <LI>bAktiv</LI>
|
|
''' <LI>daErstellt_am</LI>
|
|
''' <LI>daMutiert_am</LI>
|
|
''' <LI>iMutierer</LI>
|
|
''' <LI>iMandantNr</LI>
|
|
''' <LI>iSecurityLevelNr</LI>
|
|
''' <LI>iKuendigungsfristnr</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_Vertragsereignis_SelectOne]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = new DataTable("Vertragsereignis")
|
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iEreignisNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEreignisNr))
|
|
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_Vertragsereignis_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
|
End If
|
|
|
|
If dtToReturn.Rows.Count > 0 Then
|
|
m_iEreignisNr = New SqlInt32(CType(dtToReturn.Rows(0)("EreignisNr"), Integer))
|
|
If dtToReturn.Rows(0)("Vertragselementnr") Is System.DBNull.Value Then
|
|
m_iVertragselementnr = SqlInt32.Null
|
|
Else
|
|
m_iVertragselementnr = New SqlInt32(CType(dtToReturn.Rows(0)("Vertragselementnr"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("EreignistypNr") Is System.DBNull.Value Then
|
|
m_iEreignistypNr = SqlInt32.Null
|
|
Else
|
|
m_iEreignistypNr = New SqlInt32(CType(dtToReturn.Rows(0)("EreignistypNr"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("PeriodizitaetNr") Is System.DBNull.Value Then
|
|
m_iPeriodizitaetNr = SqlInt32.Null
|
|
Else
|
|
m_iPeriodizitaetNr = New SqlInt32(CType(dtToReturn.Rows(0)("PeriodizitaetNr"), Integer))
|
|
End If
|
|
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)("Beschreibung") Is System.DBNull.Value Then
|
|
m_sBeschreibung = SqlString.Null
|
|
Else
|
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("Betrag") Is System.DBNull.Value Then
|
|
m_fBetrag = SqlDouble.Null
|
|
Else
|
|
m_fBetrag = New SqlDouble(CType(dtToReturn.Rows(0)("Betrag"), Double))
|
|
End If
|
|
If dtToReturn.Rows(0)("InklMwSt") Is System.DBNull.Value Then
|
|
m_bInklMwSt = SqlBoolean.Null
|
|
Else
|
|
m_bInklMwSt = New SqlBoolean(CType(dtToReturn.Rows(0)("InklMwSt"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("Datum") Is System.DBNull.Value Then
|
|
m_daDatum = SqlDateTime.Null
|
|
Else
|
|
m_daDatum = New SqlDateTime(CType(dtToReturn.Rows(0)("Datum"), Date))
|
|
End If
|
|
If dtToReturn.Rows(0)("Start") Is System.DBNull.Value Then
|
|
m_daStart = SqlDateTime.Null
|
|
Else
|
|
m_daStart = New SqlDateTime(CType(dtToReturn.Rows(0)("Start"), Date))
|
|
End If
|
|
If dtToReturn.Rows(0)("Ende") Is System.DBNull.Value Then
|
|
m_daEnde = SqlDateTime.Null
|
|
Else
|
|
m_daEnde = New SqlDateTime(CType(dtToReturn.Rows(0)("Ende"), Date))
|
|
End If
|
|
If dtToReturn.Rows(0)("Vorlaufzeit") Is System.DBNull.Value Then
|
|
m_iVorlaufzeit = SqlInt32.Null
|
|
Else
|
|
m_iVorlaufzeit = New SqlInt32(CType(dtToReturn.Rows(0)("Vorlaufzeit"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("KostenartNr") Is System.DBNull.Value Then
|
|
m_iKostenartNr = SqlInt32.Null
|
|
Else
|
|
m_iKostenartNr = New SqlInt32(CType(dtToReturn.Rows(0)("KostenartNr"), 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)("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)("MandantNr") Is System.DBNull.Value Then
|
|
m_iMandantNr = SqlInt32.Null
|
|
Else
|
|
m_iMandantNr = New SqlInt32(CType(dtToReturn.Rows(0)("MandantNr"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("SecurityLevelNr") Is System.DBNull.Value Then
|
|
m_iSecurityLevelNr = SqlInt32.Null
|
|
Else
|
|
m_iSecurityLevelNr = New SqlInt32(CType(dtToReturn.Rows(0)("SecurityLevelNr"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("Kuendigungsfristnr") Is System.DBNull.Value Then
|
|
m_iKuendigungsfristnr = SqlInt32.Null
|
|
Else
|
|
m_iKuendigungsfristnr = New SqlInt32(CType(dtToReturn.Rows(0)("Kuendigungsfristnr"), Integer))
|
|
End If
|
|
End If
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("clsVertragsereignis::SelectOne::Error occured.", ex)
|
|
Finally
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Close connection.
|
|
m_scoMainConnection.Close()
|
|
End If
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
|
''' </summary>
|
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
|
''' <remarks>
|
|
''' Properties set after a succesful call of this method:
|
|
''' <UL>
|
|
''' <LI>iErrorCode</LI>
|
|
'''</UL>
|
|
''' </remarks>
|
|
Overrides Public Function SelectAll() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_SelectAll]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = new DataTable("Vertragsereignis")
|
|
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_Vertragsereignis_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("clsVertragsereignis::SelectAll::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: Select method for a foreign key. This method will Select one or more rows from the database, based on the Foreign Key 'Vertragselementnr'
|
|
''' </summary>
|
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
|
''' <remarks>
|
|
''' Properties needed for this method:
|
|
''' <UL>
|
|
''' <LI>iVertragselementnr. May be SqlInt32.Null</LI>
|
|
''' </UL>
|
|
''' Properties set after a succesful call of this method:
|
|
''' <UL>
|
|
''' <LI>iErrorCode</LI>
|
|
''' </UL>
|
|
''' </remarks>
|
|
Public Function SelectAllWVertragselementnrLogic() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_SelectAllWVertragselementnrLogic]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = new DataTable("Vertragsereignis")
|
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iVertragselementnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVertragselementnr))
|
|
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_iVertragselementnr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iVertragselementnr").Value, Integer))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_Vertragsereignis_SelectAllWVertragselementnrLogic' 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("clsVertragsereignis::SelectAllWVertragselementnrLogic::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: Select method for a foreign key. This method will Select one or more rows from the database, based on the Foreign Key 'EreignistypNr'
|
|
''' </summary>
|
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
|
''' <remarks>
|
|
''' Properties needed for this method:
|
|
''' <UL>
|
|
''' <LI>iEreignistypNr. May be SqlInt32.Null</LI>
|
|
''' </UL>
|
|
''' Properties set after a succesful call of this method:
|
|
''' <UL>
|
|
''' <LI>iErrorCode</LI>
|
|
''' </UL>
|
|
''' </remarks>
|
|
Public Function SelectAllWEreignistypNrLogic() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_SelectAllWEreignistypNrLogic]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = new DataTable("Vertragsereignis")
|
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iEreignistypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iEreignistypNr))
|
|
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_iEreignistypNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iEreignistypNr").Value, Integer))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_Vertragsereignis_SelectAllWEreignistypNrLogic' 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("clsVertragsereignis::SelectAllWEreignistypNrLogic::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: Select method for a foreign key. This method will Select one or more rows from the database, based on the Foreign Key 'KostenartNr'
|
|
''' </summary>
|
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
|
''' <remarks>
|
|
''' Properties needed for this method:
|
|
''' <UL>
|
|
''' <LI>iKostenartNr. May be SqlInt32.Null</LI>
|
|
''' </UL>
|
|
''' Properties set after a succesful call of this method:
|
|
''' <UL>
|
|
''' <LI>iErrorCode</LI>
|
|
''' </UL>
|
|
''' </remarks>
|
|
Public Function SelectAllWKostenartNrLogic() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_Vertragsereignis_SelectAllWKostenartNrLogic]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = new DataTable("Vertragsereignis")
|
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iKostenartNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKostenartNr))
|
|
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_iKostenartNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iKostenartNr").Value, Integer))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_Vertragsereignis_SelectAllWKostenartNrLogic' 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("clsVertragsereignis::SelectAllWKostenartNrLogic::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 [iEreignisNr]() As SqlInt32
|
|
Get
|
|
Return m_iEreignisNr
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
Dim iEreignisNrTmp As SqlInt32 = Value
|
|
If iEreignisNrTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("iEreignisNr", "iEreignisNr can't be NULL")
|
|
End If
|
|
m_iEreignisNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iVertragselementnr]() As SqlInt32
|
|
Get
|
|
Return m_iVertragselementnr
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iVertragselementnr = Value
|
|
End Set
|
|
End Property
|
|
Public Property [iVertragselementnrOld]() As SqlInt32
|
|
Get
|
|
Return m_iVertragselementnrOld
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iVertragselementnrOld = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iEreignistypNr]() As SqlInt32
|
|
Get
|
|
Return m_iEreignistypNr
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iEreignistypNr = Value
|
|
End Set
|
|
End Property
|
|
Public Property [iEreignistypNrOld]() As SqlInt32
|
|
Get
|
|
Return m_iEreignistypNrOld
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iEreignistypNrOld = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iPeriodizitaetNr]() As SqlInt32
|
|
Get
|
|
Return m_iPeriodizitaetNr
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iPeriodizitaetNr = 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 [sBeschreibung]() As SqlString
|
|
Get
|
|
Return m_sBeschreibung
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sBeschreibung = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [fBetrag]() As SqlDouble
|
|
Get
|
|
Return m_fBetrag
|
|
End Get
|
|
Set(ByVal Value As SqlDouble)
|
|
m_fBetrag = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bInklMwSt]() As SqlBoolean
|
|
Get
|
|
Return m_bInklMwSt
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bInklMwSt = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [daDatum]() As SqlDateTime
|
|
Get
|
|
Return m_daDatum
|
|
End Get
|
|
Set(ByVal Value As SqlDateTime)
|
|
m_daDatum = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [daStart]() As SqlDateTime
|
|
Get
|
|
Return m_daStart
|
|
End Get
|
|
Set(ByVal Value As SqlDateTime)
|
|
m_daStart = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [daEnde]() As SqlDateTime
|
|
Get
|
|
Return m_daEnde
|
|
End Get
|
|
Set(ByVal Value As SqlDateTime)
|
|
m_daEnde = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iVorlaufzeit]() As SqlInt32
|
|
Get
|
|
Return m_iVorlaufzeit
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iVorlaufzeit = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iKostenartNr]() As SqlInt32
|
|
Get
|
|
Return m_iKostenartNr
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iKostenartNr = Value
|
|
End Set
|
|
End Property
|
|
Public Property [iKostenartNrOld]() As SqlInt32
|
|
Get
|
|
Return m_iKostenartNrOld
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iKostenartNrOld = 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 [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 [iMandantNr]() As SqlInt32
|
|
Get
|
|
Return m_iMandantNr
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iMandantNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iSecurityLevelNr]() As SqlInt32
|
|
Get
|
|
Return m_iSecurityLevelNr
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iSecurityLevelNr = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iKuendigungsfristnr]() As SqlInt32
|
|
Get
|
|
Return m_iKuendigungsfristnr
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iKuendigungsfristnr = Value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
End Class
|
|
End Namespace
|