shu
/
EDOKA_DMS
1
0
Fork 0
Code Issues Pull Requests Packages 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 'main'
${ noResults }
EDOKA_DMS/Backup/EDOKA/DB/EDEX/clsEDEX_BL_Auslieferung.vb

992 lines
48 KiB
Raw Permalink Blame History

' ///////////////////////////////////////////////////////////////////////////
' // 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
' /// <summary>
' /// Purpose: Data Access class for the table 'EDEX_BL_Auslieferung'.
' /// </summary>
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
' /// <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>sBezeichnung. May be SqlString.Null</LI>
' /// <LI>sDokumentid_quittung. May be SqlString.Null</LI>
' /// <LI>sQuittungsflag. May be SqlString.Null</LI>
' /// <LI>iNrpar00. May be SqlInt32.Null</LI>
' /// <LI>iStatus. May be SqlInt32.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>bAktiv. May be SqlBoolean.Null</LI>
' /// <LI>bGrundlage1. May be SqlBoolean.Null</LI>
' /// <LI>daGrundlage1_Datum. May be SqlDateTime.Null</LI>
' /// <LI>bGrundlage2. May be SqlBoolean.Null</LI>
' /// <LI>daGrundlage2_Datum. May be SqlDateTime.Null</LI>
' /// <LI>bGrundlage3. May be SqlBoolean.Null</LI>
' /// <LI>daGrundlage3_Datum. May be SqlDateTime.Null</LI>
' /// <LI>bGrundlage4. May be SqlBoolean.Null</LI>
' /// <LI>daGrundlage4_Datum. May be SqlDateTime.Null</LI>
' /// <LI>bAushaendigung_blv. May be SqlBoolean.Null</LI>
' /// <LI>iBlv. May be SqlInt32.Null</LI>
' /// <LI>bAushaendigung_kube. May be SqlBoolean.Null</LI>
' /// <LI>iKube. May be SqlInt32.Null</LI>
' /// <LI>bAushaendigungsart_persoenlich. May be SqlBoolean.Null</LI>
' /// <LI>bAushaendigungsart_post. May be SqlBoolean.Null</LI>
' /// <LI>bAushaendigung_verschlossen. May be SqlBoolean.Null</LI>
' /// <LI>bAushaendigung_nicht_verschlossen. May be SqlBoolean.Null</LI>
' /// <LI>bBeilage_zur_Quittung1. May be SqlBoolean.Null</LI>
' /// <LI>bBeilage_zur_Quittung2. May be SqlBoolean.Null</LI>
' /// <LI>bBeilage_zur_Quittung3. May be SqlBoolean.Null</LI>
' /// <LI>sBeilage_zur_Quittung_text. May be SqlString.Null</LI>
' /// <LI>sBemerkung. May be SqlString.Null</LI>
' /// <LI>daDokumenteab. May be SqlDateTime.Null</LI>
' /// <LI>daDokumentebis. May be SqlDateTime.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iAuslieferungnr</LI>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
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
' /// <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>iAuslieferungnr</LI>
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
' /// <LI>sDokumentid_quittung. May be SqlString.Null</LI>
' /// <LI>sQuittungsflag. May be SqlString.Null</LI>
' /// <LI>iNrpar00. May be SqlInt32.Null</LI>
' /// <LI>iStatus. May be SqlInt32.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>bAktiv. May be SqlBoolean.Null</LI>
' /// <LI>bGrundlage1. May be SqlBoolean.Null</LI>
' /// <LI>daGrundlage1_Datum. May be SqlDateTime.Null</LI>
' /// <LI>bGrundlage2. May be SqlBoolean.Null</LI>
' /// <LI>daGrundlage2_Datum. May be SqlDateTime.Null</LI>
' /// <LI>bGrundlage3. May be SqlBoolean.Null</LI>
' /// <LI>daGrundlage3_Datum. May be SqlDateTime.Null</LI>
' /// <LI>bGrundlage4. May be SqlBoolean.Null</LI>
' /// <LI>daGrundlage4_Datum. May be SqlDateTime.Null</LI>
' /// <LI>bAushaendigung_blv. May be SqlBoolean.Null</LI>
' /// <LI>iBlv. May be SqlInt32.Null</LI>
' /// <LI>bAushaendigung_kube. May be SqlBoolean.Null</LI>
' /// <LI>iKube. May be SqlInt32.Null</LI>
' /// <LI>bAushaendigungsart_persoenlich. May be SqlBoolean.Null</LI>
' /// <LI>bAushaendigungsart_post. May be SqlBoolean.Null</LI>
' /// <LI>bAushaendigung_verschlossen. May be SqlBoolean.Null</LI>
' /// <LI>bAushaendigung_nicht_verschlossen. May be SqlBoolean.Null</LI>
' /// <LI>bBeilage_zur_Quittung1. May be SqlBoolean.Null</LI>
' /// <LI>bBeilage_zur_Quittung2. May be SqlBoolean.Null</LI>
' /// <LI>bBeilage_zur_Quittung3. May be SqlBoolean.Null</LI>
' /// <LI>sBeilage_zur_Quittung_text. May be SqlString.Null</LI>
' /// <LI>sBemerkung. May be SqlString.Null</LI>
' /// <LI>daDokumenteab. May be SqlDateTime.Null</LI>
' /// <LI>daDokumentebis. May be SqlDateTime.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_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
' /// <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>iAuslieferungnr</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_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
' /// <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>iAuslieferungnr</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// <LI>iAuslieferungnr</LI>
' /// <LI>sBezeichnung</LI>
' /// <LI>sDokumentid_quittung</LI>
' /// <LI>sQuittungsflag</LI>
' /// <LI>iNrpar00</LI>
' /// <LI>iStatus</LI>
' /// <LI>daErstellt_am</LI>
' /// <LI>daMutiert_am</LI>
' /// <LI>iMutierer</LI>
' /// <LI>bAktiv</LI>
' /// <LI>bGrundlage1</LI>
' /// <LI>daGrundlage1_Datum</LI>
' /// <LI>bGrundlage2</LI>
' /// <LI>daGrundlage2_Datum</LI>
' /// <LI>bGrundlage3</LI>
' /// <LI>daGrundlage3_Datum</LI>
' /// <LI>bGrundlage4</LI>
' /// <LI>daGrundlage4_Datum</LI>
' /// <LI>bAushaendigung_blv</LI>
' /// <LI>iBlv</LI>
' /// <LI>bAushaendigung_kube</LI>
' /// <LI>iKube</LI>
' /// <LI>bAushaendigungsart_persoenlich</LI>
' /// <LI>bAushaendigungsart_post</LI>
' /// <LI>bAushaendigung_verschlossen</LI>
' /// <LI>bAushaendigung_nicht_verschlossen</LI>
' /// <LI>bBeilage_zur_Quittung1</LI>
' /// <LI>bBeilage_zur_Quittung2</LI>
' /// <LI>bBeilage_zur_Quittung3</LI>
' /// <LI>sBeilage_zur_Quittung_text</LI>
' /// <LI>sBemerkung</LI>
' /// <LI>daDokumenteab</LI>
' /// <LI>daDokumentebis</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_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
' /// <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_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
Reference in new issue View Git Blame Copy Permalink