' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'dokumenttyp'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Mittwoch, 21. Mai 2003, 21:53:31
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' ///
' /// Purpose: Data Access class for the table 'dokumenttyp'.
' ///
Public Class clsDokumenttyp
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bUnterschrift_rechts, m_bFunktionen_zuweisen, m_bUnterschrift_links, m_bWird_nicht_geloescht, m_bVertrauliches_dokument, m_bCold_ersetzen, m_bHostdokument, m_bAmsdokument, m_bAktiv, m_bDokument_wird_retourniert, m_bDokument_wird_erstellt, m_bZu_retournieren, m_bEingang_ersetzt_ausgang, m_bVertrag, m_bZu_vercolden, m_bWird_importiert, m_bEmail_versand, m_bPartnersaldierung_statusalt, m_bNurnative, m_istFarbigArchiviert As SqlBoolean
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
Private m_iProzessnr1, m_iProzessnr1Old, m_iDokumentstatus_barcode, m_iDokumentart_nativ, m_iProzessnr, m_iProzessnrOld, m_iObjektbezeichnungnr, m_iDokumentstatus, m_iOwner, m_iCold_folder, m_iCold_folderOld, m_iPhysisches_archiv, m_iDokumentart_weitere, m_iAufbewahrungsfrist_elektronisch, m_iMonate_bis_zur_archivierung, m_iMandantnr, m_iAufbewahrungsfrist_physisch, m_iAnzahl_tage, m_iDokumenttypnr, m_iTage_mutation, m_iDbearbeitungszeit, m_iMutierer, m_iDokumentart_coldausgang, m_iDokumentart_retournierung, m_iDokumentart_host, m_iDokumentart_coldeingang, m_iDokumentart_kundendossier, m_iOffice_vorlagenr, m_iOffice_vorlagenrOld, m_iDokumentart_neuerstellung As SqlInt32
Private m_sBezeichnung, m_sHostdokumenttyp, m_sBeschreibung As SqlString
#End Region
' ///
' /// Purpose: Class constructor.
' ///
Public Sub New()
' // Nothing for now.
End Sub
'' ///
'' /// Purpose: Insert method. This method will insert one new row into the database.
'' ///
'' /// True if succeeded, otherwise an Exception is thrown.
'' ///
'' /// Properties needed for this method:
'' ///
'' /// - iDokumenttypnr
'' /// - sBezeichnung. May be SqlString.Null
'' /// - sBeschreibung. May be SqlString.Null
'' /// - bZu_vercolden
'' /// - bZu_retournieren
'' /// - bEingang_ersetzt_ausgang
'' /// - bWird_importiert
'' /// - iAnzahl_tage
'' /// - iDbearbeitungszeit
'' /// - iTage_mutation
'' /// - bPartnersaldierung_statusalt
'' /// - bWird_nicht_geloescht
'' /// - bVertrauliches_dokument
'' /// - bUnterschrift_links
'' /// - bUnterschrift_rechts
'' /// - iMonate_bis_zur_archivierung
'' /// - iAufbewahrungsfrist_elektronisch
'' /// - iAufbewahrungsfrist_physisch
'' /// - iMandantnr. May be SqlInt32.Null
'' /// - bAktiv. May be SqlBoolean.Null
'' /// - daErstellt_am. May be SqlDateTime.Null
'' /// - daMutiert_am. May be SqlDateTime.Null
'' /// - iMutierer. May be SqlInt32.Null
'' /// - iOffice_vorlagenr. May be SqlInt32.Null
'' /// - iDokumentart_kundendossier. May be SqlInt32.Null
'' /// - iDokumentart_neuerstellung. May be SqlInt32.Null
'' /// - iDokumentart_retournierung. May be SqlInt32.Null
'' /// - iDokumentart_coldausgang
'' /// - iDokumentart_coldeingang
'' /// - iDokumentart_host. May be SqlInt32.Null
'' /// - iDokumentart_weitere. May be SqlInt32.Null
'' /// - iDokumentart_nativ. May be SqlInt32.Null
'' /// - iProzessnr. May be SqlInt32.Null
'' /// - iProzessnr1. May be SqlInt32.Null
'' /// - bAmsdokument
'' /// - bHostdokument. May be SqlBoolean.Null
'' /// - sHostdokumenttyp. May be SqlString.Null
'' /// - iCold_folder. May be SqlInt32.Null
'' /// - iPhysisches_archiv. May be SqlInt32.Null
'' /// - iDokumentstatus. May be SqlInt32.Null
'' /// - bDokument_wird_erstellt. May be SqlBoolean.Null
'' /// - bDokument_wird_retourniert. May be SqlBoolean.Null
'' /// - bCold_ersetzen. May be SqlBoolean.Null
'' /// - bFunktionen_zuweisen. May be SqlBoolean.Null
'' /// - iDokumentstatus_barcode. May be SqlInt32.Null
'' /// - bNurnative. May be SqlBoolean.Null
'' /// - iOwner. May be SqlInt32.Null
'' /// - bVertrag. May be SqlBoolean.Null
'' /// - iObjektbezeichnungnr. May be SqlInt32.Null
'' /// - bEmail_versand. May be SqlBoolean.Null
'' ///
'' /// Properties set after a succesful call of this method:
'' ///
'' ///
'Overrides Public Function Insert() As Boolean
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
' scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_Insert]"
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
' ' // Use base class' connection object
' scmCmdToExecute.Connection = m_scoMainConnection
' Try
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, 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("@bzu_vercolden", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_vercolden))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_retournieren))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@beingang_ersetzt_ausgang", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bEingang_ersetzt_ausgang))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_importiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_importiert))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@ianzahl_tage", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAnzahl_tage))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idbearbeitungszeit", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDbearbeitungszeit))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@itage_mutation", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iTage_mutation))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bpartnersaldierung_statusalt", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bPartnersaldierung_statusalt))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_nicht_geloescht", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_nicht_geloescht))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrauliches_dokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bVertrauliches_dokument))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_links", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_links))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_rechts", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_rechts))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@imonate_bis_zur_archivierung", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMonate_bis_zur_archivierung))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_elektronisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_elektronisch))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_physisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_physisch))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
' 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("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_kundendossier", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_kundendossier))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_neuerstellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_neuerstellung))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_retournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_retournierung))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldausgang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldausgang))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldeingang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldeingang))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_host))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_weitere", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_weitere))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_nativ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_nativ))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr1))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bamsdokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bAmsdokument))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bhostdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bHostdokument))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdokumenttyp", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdokumenttyp))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@icold_folder", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iCold_folder))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@iphysisches_archiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPhysisches_archiv))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_erstellt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_erstellt))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_retourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_retourniert))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bcold_ersetzen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bCold_ersetzen))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bfunktionen_zuweisen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFunktionen_zuweisen))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus_barcode", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus_barcode))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bnurnative", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bNurnative))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@iOwner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOwner))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrag", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bVertrag))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@iobjektbezeichnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iObjektbezeichnungnr))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bemail_versand", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEmail_versand))
' 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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
' If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' ' // Throw error.
' Throw New Exception("Stored Procedure 'pr_dokumenttyp_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("clsDokumenttyp::Insert::Error occured.", ex)
' Finally
' If m_bMainConnectionIsCreatedLocal Then
' ' // Close connection.
' m_scoMainConnection.Close()
' End If
' scmCmdToExecute.Dispose()
' End Try
'End Function
'' ///
'' /// Purpose: Update method. This method will Update one existing row in the database.
'' ///
'' /// True if succeeded, otherwise an Exception is thrown.
'' ///
'' /// Properties needed for this method:
'' ///
'' /// - iDokumenttypnr
'' /// - sBezeichnung. May be SqlString.Null
'' /// - sBeschreibung. May be SqlString.Null
'' /// - bZu_vercolden
'' /// - bZu_retournieren
'' /// - bEingang_ersetzt_ausgang
'' /// - bWird_importiert
'' /// - iAnzahl_tage
'' /// - iDbearbeitungszeit
'' /// - iTage_mutation
'' /// - bPartnersaldierung_statusalt
'' /// - bWird_nicht_geloescht
'' /// - bVertrauliches_dokument
'' /// - bUnterschrift_links
'' /// - bUnterschrift_rechts
'' /// - iMonate_bis_zur_archivierung
'' /// - iAufbewahrungsfrist_elektronisch
'' /// - iAufbewahrungsfrist_physisch
'' /// - iMandantnr. May be SqlInt32.Null
'' /// - bAktiv. May be SqlBoolean.Null
'' /// - daErstellt_am. May be SqlDateTime.Null
'' /// - daMutiert_am. May be SqlDateTime.Null
'' /// - iMutierer. May be SqlInt32.Null
'' /// - iOffice_vorlagenr. May be SqlInt32.Null
'' /// - iDokumentart_kundendossier. May be SqlInt32.Null
'' /// - iDokumentart_neuerstellung. May be SqlInt32.Null
'' /// - iDokumentart_retournierung. May be SqlInt32.Null
'' /// - iDokumentart_coldausgang
'' /// - iDokumentart_coldeingang
'' /// - iDokumentart_host. May be SqlInt32.Null
'' /// - iDokumentart_weitere. May be SqlInt32.Null
'' /// - iDokumentart_nativ. May be SqlInt32.Null
'' /// - iProzessnr. May be SqlInt32.Null
'' /// - iProzessnr1. May be SqlInt32.Null
'' /// - bAmsdokument
'' /// - bHostdokument. May be SqlBoolean.Null
'' /// - sHostdokumenttyp. May be SqlString.Null
'' /// - iCold_folder. May be SqlInt32.Null
'' /// - iPhysisches_archiv. May be SqlInt32.Null
'' /// - iDokumentstatus. May be SqlInt32.Null
'' /// - bDokument_wird_erstellt. May be SqlBoolean.Null
'' /// - bDokument_wird_retourniert. May be SqlBoolean.Null
'' /// - bCold_ersetzen. May be SqlBoolean.Null
'' /// - bFunktionen_zuweisen. May be SqlBoolean.Null
'' /// - iDokumentstatus_barcode. May be SqlInt32.Null
'' /// - bNurnative. May be SqlBoolean.Null
'' /// - iOwner. May be SqlInt32.Null
'' /// - bVertrag. May be SqlBoolean.Null
'' /// - iObjektbezeichnungnr. May be SqlInt32.Null
'' /// - bEmail_versand. May be SqlBoolean.Null
'' ///
'' /// Properties set after a succesful call of this method:
'' ///
'' ///
'Overrides Public Function Update() As Boolean
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
' scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_Update]"
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
' ' // Use base class' connection object
' scmCmdToExecute.Connection = m_scoMainConnection
' Try
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, 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("@bzu_vercolden", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_vercolden))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_retournieren))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@beingang_ersetzt_ausgang", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bEingang_ersetzt_ausgang))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_importiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_importiert))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@ianzahl_tage", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAnzahl_tage))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idbearbeitungszeit", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDbearbeitungszeit))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@itage_mutation", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iTage_mutation))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bpartnersaldierung_statusalt", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bPartnersaldierung_statusalt))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_nicht_geloescht", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_nicht_geloescht))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrauliches_dokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bVertrauliches_dokument))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_links", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_links))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_rechts", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_rechts))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@imonate_bis_zur_archivierung", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMonate_bis_zur_archivierung))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_elektronisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_elektronisch))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_physisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_physisch))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
' 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("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_kundendossier", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_kundendossier))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_neuerstellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_neuerstellung))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_retournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_retournierung))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldausgang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldausgang))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldeingang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldeingang))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_host))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_weitere", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_weitere))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_nativ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_nativ))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr1))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bamsdokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bAmsdokument))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bhostdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bHostdokument))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdokumenttyp", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdokumenttyp))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@icold_folder", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iCold_folder))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@iphysisches_archiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPhysisches_archiv))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_erstellt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_erstellt))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_retourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_retourniert))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bcold_ersetzen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bCold_ersetzen))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bfunktionen_zuweisen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFunktionen_zuweisen))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus_barcode", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus_barcode))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bnurnative", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bNurnative))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@iOwner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOwner))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrag", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bVertrag))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@iobjektbezeichnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iObjektbezeichnungnr))
' scmCmdToExecute.Parameters.Add(New SqlParameter("@bemail_versand", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEmail_versand))
' 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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
' If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' ' // Throw error.
' Throw New Exception("Stored Procedure 'pr_dokumenttyp_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("clsDokumenttyp::Update::Error occured.", ex)
' Finally
' If m_bMainConnectionIsCreatedLocal Then
' ' // Close connection.
' m_scoMainConnection.Close()
' End If
' scmCmdToExecute.Dispose()
' End Try
'End Function
'' ///
'' /// Purpose: Update method for updating one or more rows using the Foreign Key 'office_vorlagenr.
'' /// This method will Update one or more existing rows in the database. It will reset the field 'office_vorlagenr' in
'' /// all rows which have as value for this field the value as set in property 'iOffice_vorlagenrOld' to
'' /// the value as set in property 'iOffice_vorlagenr'.
'' ///
'' /// True if succeeded, otherwise an Exception is thrown.
'' ///
'' /// Properties needed for this method:
'' ///
'' /// - iOffice_vorlagenr. May be SqlInt32.Null
'' /// - iOffice_vorlagenrOld. May be SqlInt32.Null
'' ///
'' /// Properties set after a succesful call of this method:
'' ///
'' ///
'Public Function UpdateAllWoffice_vorlagenrLogic() As Boolean
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
' scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_UpdateAllWoffice_vorlagenrLogic]"
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
' ' // Use base class' connection object
' scmCmdToExecute.Connection = m_scoMainConnection
' Try
' scmCmdToExecute.Parameters.Add(new SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
' scmCmdToExecute.Parameters.Add(new SqlParameter("@ioffice_vorlagenrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenrOld))
' 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, Integer))
' If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' ' // Throw error.
' Throw New Exception("Stored Procedure 'pr_dokumenttyp_UpdateAllWoffice_vorlagenrLogic' 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("clsDokumenttyp::UpdateAllWoffice_vorlagenrLogic::Error occured.", ex)
' Finally
' If m_bMainConnectionIsCreatedLocal Then
' ' // Close connection.
' m_scoMainConnection.Close()
' End If
' scmCmdToExecute.Dispose()
' End Try
'End Function
'' ///
'' /// Purpose: Update method for updating one or more rows using the Foreign Key 'prozessnr.
'' /// This method will Update one or more existing rows in the database. It will reset the field 'prozessnr' in
'' /// all rows which have as value for this field the value as set in property 'iProzessnrOld' to
'' /// the value as set in property 'iProzessnr'.
'' ///
'' /// True if succeeded, otherwise an Exception is thrown.
'' ///
'' /// Properties needed for this method:
'' ///
'' /// - iProzessnr. May be SqlInt32.Null
'' /// - iProzessnrOld. May be SqlInt32.Null
'' ///
'' /// Properties set after a succesful call of this method:
'' ///
'' ///
'Public Function UpdateAllWprozessnrLogic() As Boolean
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
' scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_UpdateAllWprozessnrLogic]"
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
' ' // Use base class' connection object
' scmCmdToExecute.Connection = m_scoMainConnection
' Try
' scmCmdToExecute.Parameters.Add(new SqlParameter("@iprozessnr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr))
' scmCmdToExecute.Parameters.Add(new SqlParameter("@iprozessnrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnrOld))
' 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, Integer))
' If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' ' // Throw error.
' Throw New Exception("Stored Procedure 'pr_dokumenttyp_UpdateAllWprozessnrLogic' 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("clsDokumenttyp::UpdateAllWprozessnrLogic::Error occured.", ex)
' Finally
' If m_bMainConnectionIsCreatedLocal Then
' ' // Close connection.
' m_scoMainConnection.Close()
' End If
' scmCmdToExecute.Dispose()
' End Try
'End Function
'' ///
'' /// Purpose: Update method for updating one or more rows using the Foreign Key 'prozessnr1.
'' /// This method will Update one or more existing rows in the database. It will reset the field 'prozessnr1' in
'' /// all rows which have as value for this field the value as set in property 'iProzessnr1Old' to
'' /// the value as set in property 'iProzessnr1'.
'' ///
'' /// True if succeeded, otherwise an Exception is thrown.
'' ///
'' /// Properties needed for this method:
'' ///
'' /// - iProzessnr1. May be SqlInt32.Null
'' /// - iProzessnr1Old. May be SqlInt32.Null
'' ///
'' /// Properties set after a succesful call of this method:
'' ///
'' ///
'Public Function UpdateAllWprozessnr1Logic() As Boolean
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
' scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_UpdateAllWprozessnr1Logic]"
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
' ' // Use base class' connection object
' scmCmdToExecute.Connection = m_scoMainConnection
' Try
' scmCmdToExecute.Parameters.Add(new SqlParameter("@iprozessnr1", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr1))
' scmCmdToExecute.Parameters.Add(new SqlParameter("@iprozessnr1Old", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr1Old))
' 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, Integer))
' If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' ' // Throw error.
' Throw New Exception("Stored Procedure 'pr_dokumenttyp_UpdateAllWprozessnr1Logic' 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("clsDokumenttyp::UpdateAllWprozessnr1Logic::Error occured.", ex)
' Finally
' If m_bMainConnectionIsCreatedLocal Then
' ' // Close connection.
' m_scoMainConnection.Close()
' End If
' scmCmdToExecute.Dispose()
' End Try
'End Function
'' ///
'' /// Purpose: Update method for updating one or more rows using the Foreign Key 'cold_folder.
'' /// This method will Update one or more existing rows in the database. It will reset the field 'cold_folder' in
'' /// all rows which have as value for this field the value as set in property 'iCold_folderOld' to
'' /// the value as set in property 'iCold_folder'.
'' ///
'' /// True if succeeded, otherwise an Exception is thrown.
'' ///
'' /// Properties needed for this method:
'' ///
'' /// - iCold_folder. May be SqlInt32.Null
'' /// - iCold_folderOld. May be SqlInt32.Null
'' ///
'' /// Properties set after a succesful call of this method:
'' ///
'' ///
'Public Function UpdateAllWcold_folderLogic() As Boolean
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
' scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_UpdateAllWcold_folderLogic]"
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
' ' // Use base class' connection object
' scmCmdToExecute.Connection = m_scoMainConnection
' Try
' scmCmdToExecute.Parameters.Add(new SqlParameter("@icold_folder", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iCold_folder))
' scmCmdToExecute.Parameters.Add(new SqlParameter("@icold_folderOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iCold_folderOld))
' 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, Integer))
' If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' ' // Throw error.
' Throw New Exception("Stored Procedure 'pr_dokumenttyp_UpdateAllWcold_folderLogic' 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("clsDokumenttyp::UpdateAllWcold_folderLogic::Error occured.", ex)
' Finally
' If m_bMainConnectionIsCreatedLocal Then
' ' // Close connection.
' m_scoMainConnection.Close()
' End If
' scmCmdToExecute.Dispose()
' End Try
'End Function
'' ///
'' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
'' ///
'' /// True if succeeded, otherwise an Exception is thrown.
'' ///
'' /// Properties needed for this method:
'' ///
'' /// - iDokumenttypnr
'' ///
'' /// Properties set after a succesful call of this method:
'' ///
'' ///
'Overrides Public Function Delete() As Boolean
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
' scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_Delete]"
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
' ' // Use base class' connection object
' scmCmdToExecute.Connection = m_scoMainConnection
' Try
' scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
' 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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
' If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' ' // Throw error.
' Throw New Exception("Stored Procedure 'pr_dokumenttyp_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("clsDokumenttyp::Delete::Error occured.", ex)
' Finally
' If m_bMainConnectionIsCreatedLocal Then
' ' // Close connection.
' m_scoMainConnection.Close()
' End If
' scmCmdToExecute.Dispose()
' End Try
'End Function
' ///
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
' ///
' /// DataTable object if succeeded, otherwise an Exception is thrown.
' ///
' /// Properties needed for this method:
' ///
' /// - iDokumenttypnr
' ///
' /// Properties set after a succesful call of this method:
' ///
' /// - iErrorCode
' /// - iDokumenttypnr
' /// - sBezeichnung
' /// - sBeschreibung
' /// - bZu_vercolden
' /// - bZu_retournieren
' /// - bEingang_ersetzt_ausgang
' /// - bWird_importiert
' /// - iAnzahl_tage
' /// - iDbearbeitungszeit
' /// - iTage_mutation
' /// - bPartnersaldierung_statusalt
' /// - bWird_nicht_geloescht
' /// - bVertrauliches_dokument
' /// - bUnterschrift_links
' /// - bUnterschrift_rechts
' /// - iMonate_bis_zur_archivierung
' /// - iAufbewahrungsfrist_elektronisch
' /// - iAufbewahrungsfrist_physisch
' /// - iMandantnr
' /// - bAktiv
' /// - daErstellt_am
' /// - daMutiert_am
' /// - iMutierer
' /// - iOffice_vorlagenr
' /// - iDokumentart_kundendossier
' /// - iDokumentart_neuerstellung
' /// - iDokumentart_retournierung
' /// - iDokumentart_coldausgang
' /// - iDokumentart_coldeingang
' /// - iDokumentart_host
' /// - iDokumentart_weitere
' /// - iDokumentart_nativ
' /// - iProzessnr
' /// - iProzessnr1
' /// - bAmsdokument
' /// - bHostdokument
' /// - sHostdokumenttyp
' /// - iCold_folder
' /// - iPhysisches_archiv
' /// - iDokumentstatus
' /// - bDokument_wird_erstellt
' /// - bDokument_wird_retourniert
' /// - bCold_ersetzen
' /// - bFunktionen_zuweisen
' /// - iDokumentstatus_barcode
' /// - bNurnative
' /// - iOwner
' /// - bVertrag
' /// - iObjektbezeichnungnr
' /// - bEmail_versand
' ///
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
' ///
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("dokumenttyp")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_dokumenttyp_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iDokumenttypnr = New SqlInt32(CType(dtToReturn.Rows(0)("dokumenttypnr"), 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)("beschreibung") Is System.DBNull.Value Then
m_sBeschreibung = SqlString.Null
Else
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
End If
m_bZu_vercolden = New SqlBoolean(CType(dtToReturn.Rows(0)("zu_vercolden"), Boolean))
m_bZu_retournieren = New SqlBoolean(CType(dtToReturn.Rows(0)("zu_retournieren"), Boolean))
m_bEingang_ersetzt_ausgang = New SqlBoolean(CType(dtToReturn.Rows(0)("eingang_ersetzt_ausgang"), Boolean))
m_bWird_importiert = New SqlBoolean(CType(dtToReturn.Rows(0)("wird_importiert"), Boolean))
m_iAnzahl_tage = New SqlInt32(CType(dtToReturn.Rows(0)("anzahl_tage"), Integer))
m_iDbearbeitungszeit = New SqlInt32(CType(dtToReturn.Rows(0)("dbearbeitungszeit"), Integer))
m_iTage_mutation = New SqlInt32(CType(dtToReturn.Rows(0)("tage_mutation"), Integer))
m_bPartnersaldierung_statusalt = New SqlBoolean(CType(dtToReturn.Rows(0)("partnersaldierung_statusalt"), Boolean))
m_bWird_nicht_geloescht = New SqlBoolean(CType(dtToReturn.Rows(0)("wird_nicht_geloescht"), Boolean))
m_bVertrauliches_dokument = New SqlBoolean(CType(dtToReturn.Rows(0)("vertrauliches_dokument"), Boolean))
m_bUnterschrift_links = New SqlBoolean(CType(dtToReturn.Rows(0)("unterschrift_links"), Boolean))
m_bUnterschrift_rechts = New SqlBoolean(CType(dtToReturn.Rows(0)("unterschrift_rechts"), Boolean))
m_iMonate_bis_zur_archivierung = New SqlInt32(CType(dtToReturn.Rows(0)("monate_bis_zur_archivierung"), Integer))
m_iAufbewahrungsfrist_elektronisch = New SqlInt32(CType(dtToReturn.Rows(0)("aufbewahrungsfrist_elektronisch"), Integer))
m_iAufbewahrungsfrist_physisch = New SqlInt32(CType(dtToReturn.Rows(0)("aufbewahrungsfrist_physisch"), Integer))
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)("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)("office_vorlagenr") Is System.DBNull.Value Then
m_iOffice_vorlagenr = SqlInt32.Null
Else
m_iOffice_vorlagenr = New SqlInt32(CType(dtToReturn.Rows(0)("office_vorlagenr"), Integer))
End If
If dtToReturn.Rows(0)("dokumentart_kundendossier") Is System.DBNull.Value Then
m_iDokumentart_kundendossier = SqlInt32.Null
Else
m_iDokumentart_kundendossier = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_kundendossier"), Integer))
End If
If dtToReturn.Rows(0)("dokumentart_neuerstellung") Is System.DBNull.Value Then
m_iDokumentart_neuerstellung = SqlInt32.Null
Else
m_iDokumentart_neuerstellung = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_neuerstellung"), Integer))
End If
If dtToReturn.Rows(0)("dokumentart_retournierung") Is System.DBNull.Value Then
m_iDokumentart_retournierung = SqlInt32.Null
Else
m_iDokumentart_retournierung = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_retournierung"), Integer))
End If
m_iDokumentart_coldausgang = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_coldausgang"), Integer))
m_iDokumentart_coldeingang = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_coldeingang"), Integer))
If dtToReturn.Rows(0)("dokumentart_host") Is System.DBNull.Value Then
m_iDokumentart_host = SqlInt32.Null
Else
m_iDokumentart_host = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_host"), Integer))
End If
If dtToReturn.Rows(0)("dokumentart_weitere") Is System.DBNull.Value Then
m_iDokumentart_weitere = SqlInt32.Null
Else
m_iDokumentart_weitere = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_weitere"), Integer))
End If
If dtToReturn.Rows(0)("dokumentart_nativ") Is System.DBNull.Value Then
m_iDokumentart_nativ = SqlInt32.Null
Else
m_iDokumentart_nativ = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_nativ"), Integer))
End If
If dtToReturn.Rows(0)("prozessnr") Is System.DBNull.Value Then
m_iProzessnr = SqlInt32.Null
Else
m_iProzessnr = New SqlInt32(CType(dtToReturn.Rows(0)("prozessnr"), Integer))
End If
If dtToReturn.Rows(0)("prozessnr1") Is System.DBNull.Value Then
m_iProzessnr1 = SqlInt32.Null
Else
m_iProzessnr1 = New SqlInt32(CType(dtToReturn.Rows(0)("prozessnr1"), Integer))
End If
m_bAmsdokument = New SqlBoolean(CType(dtToReturn.Rows(0)("amsdokument"), Boolean))
If dtToReturn.Rows(0)("hostdokument") Is System.DBNull.Value Then
m_bHostdokument = SqlBoolean.Null
Else
m_bHostdokument = New SqlBoolean(CType(dtToReturn.Rows(0)("hostdokument"), Boolean))
End If
If dtToReturn.Rows(0)("hostdokumenttyp") Is System.DBNull.Value Then
m_sHostdokumenttyp = SqlString.Null
Else
m_sHostdokumenttyp = New SqlString(CType(dtToReturn.Rows(0)("hostdokumenttyp"), String))
End If
If dtToReturn.Rows(0)("cold_folder") Is System.DBNull.Value Then
m_iCold_folder = SqlInt32.Null
Else
m_iCold_folder = New SqlInt32(CType(dtToReturn.Rows(0)("cold_folder"), Integer))
End If
If dtToReturn.Rows(0)("physisches_archiv") Is System.DBNull.Value Then
m_iPhysisches_archiv = SqlInt32.Null
Else
m_iPhysisches_archiv = New SqlInt32(CType(dtToReturn.Rows(0)("physisches_archiv"), Integer))
End If
If dtToReturn.Rows(0)("dokumentstatus") Is System.DBNull.Value Then
m_iDokumentstatus = SqlInt32.Null
Else
m_iDokumentstatus = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentstatus"), Integer))
End If
If dtToReturn.Rows(0)("Dokument_wird_erstellt") Is System.DBNull.Value Then
m_bDokument_wird_erstellt = SqlBoolean.Null
Else
m_bDokument_wird_erstellt = New SqlBoolean(CType(dtToReturn.Rows(0)("Dokument_wird_erstellt"), Boolean))
End If
If dtToReturn.Rows(0)("Dokument_wird_retourniert") Is System.DBNull.Value Then
m_bDokument_wird_retourniert = SqlBoolean.Null
Else
m_bDokument_wird_retourniert = New SqlBoolean(CType(dtToReturn.Rows(0)("Dokument_wird_retourniert"), Boolean))
End If
If dtToReturn.Rows(0)("cold_ersetzen") Is System.DBNull.Value Then
m_bCold_ersetzen = SqlBoolean.Null
Else
m_bCold_ersetzen = New SqlBoolean(CType(dtToReturn.Rows(0)("cold_ersetzen"), Boolean))
End If
If dtToReturn.Rows(0)("funktionen_zuweisen") Is System.DBNull.Value Then
m_bFunktionen_zuweisen = SqlBoolean.Null
Else
m_bFunktionen_zuweisen = New SqlBoolean(CType(dtToReturn.Rows(0)("funktionen_zuweisen"), Boolean))
End If
If dtToReturn.Rows(0)("dokumentstatus_barcode") Is System.DBNull.Value Then
m_iDokumentstatus_barcode = SqlInt32.Null
Else
m_iDokumentstatus_barcode = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentstatus_barcode"), Integer))
End If
If dtToReturn.Rows(0)("nurnative") Is System.DBNull.Value Then
m_bNurnative = SqlBoolean.Null
Else
m_bNurnative = New SqlBoolean(CType(dtToReturn.Rows(0)("nurnative"), Boolean))
End If
If dtToReturn.Rows(0)("Owner") Is System.DBNull.Value Then
m_iOwner = SqlInt32.Null
Else
m_iOwner = New SqlInt32(CType(dtToReturn.Rows(0)("Owner"), Integer))
End If
If dtToReturn.Rows(0)("vertrag") Is System.DBNull.Value Then
m_bVertrag = SqlBoolean.Null
Else
m_bVertrag = New SqlBoolean(CType(dtToReturn.Rows(0)("vertrag"), Boolean))
End If
If dtToReturn.Rows(0)("objektbezeichnungnr") Is System.DBNull.Value Then
m_iObjektbezeichnungnr = SqlInt32.Null
Else
m_iObjektbezeichnungnr = New SqlInt32(CType(dtToReturn.Rows(0)("objektbezeichnungnr"), Integer))
End If
If dtToReturn.Rows(0)("email_versand") Is System.DBNull.Value Then
m_bEmail_versand = SqlBoolean.Null
Else
m_bEmail_versand = New SqlBoolean(CType(dtToReturn.Rows(0)("email_versand"), Boolean))
End If
If dtToReturn.Rows(0)("istFarbigArchiviert") Is System.DBNull.Value Then
istFarbigArchiviert = New SqlBoolean(CType(False, Boolean))
Else
istFarbigArchiviert = New SqlBoolean(CType(dtToReturn.Rows(0)("istFarbigArchiviert"), Boolean))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsDokumenttyp::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
' ///
' /// Purpose: SelectAll method. This method will Select all rows from the table.
' ///
' /// DataTable object if succeeded, otherwise an Exception is thrown.
' ///
' /// Properties set after a succesful call of this method:
' ///
' ///
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("dokumenttyp")
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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_dokumenttyp_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("clsDokumenttyp::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
'' ///
'' /// Purpose: Select method for a foreign key. This method will Select one or more rows from the database, based on the Foreign Key 'office_vorlagenr'
'' ///
'' /// DataTable object if succeeded, otherwise an Exception is thrown.
'' ///
'' /// Properties needed for this method:
'' ///
'' /// - iOffice_vorlagenr. May be SqlInt32.Null
'' ///
'' /// Properties set after a succesful call of this method:
'' ///
'' ///
'Public Function SelectAllWoffice_vorlagenrLogic() As DataTable
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
' scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_SelectAllWoffice_vorlagenrLogic]"
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
' Dim dtToReturn As DataTable = new DataTable("dokumenttyp")
' Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' ' // Use base class' connection object
' scmCmdToExecute.Connection = m_scoMainConnection
' Try
' scmCmdToExecute.Parameters.Add(new SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
' 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, Integer))
' If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' ' // Throw error.
' Throw New Exception("Stored Procedure 'pr_dokumenttyp_SelectAllWoffice_vorlagenrLogic' 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("clsDokumenttyp::SelectAllWoffice_vorlagenrLogic::Error occured.", ex)
' Finally
' If m_bMainConnectionIsCreatedLocal Then
' ' // Close connection.
' m_scoMainConnection.Close()
' End If
' scmCmdToExecute.Dispose()
' sdaAdapter.Dispose()
' End Try
'End Function
'' ///
'' /// Purpose: Select method for a foreign key. This method will Select one or more rows from the database, based on the Foreign Key 'prozessnr'
'' ///
'' /// DataTable object if succeeded, otherwise an Exception is thrown.
'' ///
'' /// Properties needed for this method:
'' ///
'' /// - iProzessnr. May be SqlInt32.Null
'' ///
'' /// Properties set after a succesful call of this method:
'' ///
'' ///
'Public Function SelectAllWprozessnrLogic() As DataTable
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
' scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_SelectAllWprozessnrLogic]"
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
' Dim dtToReturn As DataTable = new DataTable("dokumenttyp")
' Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' ' // Use base class' connection object
' scmCmdToExecute.Connection = m_scoMainConnection
' Try
' scmCmdToExecute.Parameters.Add(new SqlParameter("@iprozessnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr))
' 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, Integer))
' If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' ' // Throw error.
' Throw New Exception("Stored Procedure 'pr_dokumenttyp_SelectAllWprozessnrLogic' 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("clsDokumenttyp::SelectAllWprozessnrLogic::Error occured.", ex)
' Finally
' If m_bMainConnectionIsCreatedLocal Then
' ' // Close connection.
' m_scoMainConnection.Close()
' End If
' scmCmdToExecute.Dispose()
' sdaAdapter.Dispose()
' End Try
'End Function
'' ///
'' /// Purpose: Select method for a foreign key. This method will Select one or more rows from the database, based on the Foreign Key 'prozessnr1'
'' ///
'' /// DataTable object if succeeded, otherwise an Exception is thrown.
'' ///
'' /// Properties needed for this method:
'' ///
'' /// - iProzessnr1. May be SqlInt32.Null
'' ///
'' /// Properties set after a succesful call of this method:
'' ///
'' ///
'Public Function SelectAllWprozessnr1Logic() As DataTable
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
' scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_SelectAllWprozessnr1Logic]"
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
' Dim dtToReturn As DataTable = new DataTable("dokumenttyp")
' Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' ' // Use base class' connection object
' scmCmdToExecute.Connection = m_scoMainConnection
' Try
' scmCmdToExecute.Parameters.Add(new SqlParameter("@iprozessnr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr1))
' 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, Integer))
' If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' ' // Throw error.
' Throw New Exception("Stored Procedure 'pr_dokumenttyp_SelectAllWprozessnr1Logic' 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("clsDokumenttyp::SelectAllWprozessnr1Logic::Error occured.", ex)
' Finally
' If m_bMainConnectionIsCreatedLocal Then
' ' // Close connection.
' m_scoMainConnection.Close()
' End If
' scmCmdToExecute.Dispose()
' sdaAdapter.Dispose()
' End Try
'End Function
'' ///
'' /// Purpose: Select method for a foreign key. This method will Select one or more rows from the database, based on the Foreign Key 'cold_folder'
'' ///
'' /// DataTable object if succeeded, otherwise an Exception is thrown.
'' ///
'' /// Properties needed for this method:
'' ///
'' /// - iCold_folder. May be SqlInt32.Null
'' ///
'' /// Properties set after a succesful call of this method:
'' ///
'' ///
'Public Function SelectAllWcold_folderLogic() As DataTable
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
' scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_SelectAllWcold_folderLogic]"
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
' Dim dtToReturn As DataTable = new DataTable("dokumenttyp")
' Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' ' // Use base class' connection object
' scmCmdToExecute.Connection = m_scoMainConnection
' Try
' scmCmdToExecute.Parameters.Add(new SqlParameter("@icold_folder", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iCold_folder))
' 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, Integer))
' If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' ' // Throw error.
' Throw New Exception("Stored Procedure 'pr_dokumenttyp_SelectAllWcold_folderLogic' 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("clsDokumenttyp::SelectAllWcold_folderLogic::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 [iDokumenttypnr]() As SqlInt32
Get
Return m_iDokumenttypnr
End Get
Set(ByVal Value As SqlInt32)
Dim iDokumenttypnrTmp As SqlInt32 = Value
If iDokumenttypnrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iDokumenttypnr", "iDokumenttypnr can't be NULL")
End If
m_iDokumenttypnr = 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 [bZu_vercolden]() As SqlBoolean
Get
Return m_bZu_vercolden
End Get
Set(ByVal Value As SqlBoolean)
Dim bZu_vercoldenTmp As SqlBoolean = Value
If bZu_vercoldenTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bZu_vercolden", "bZu_vercolden can't be NULL")
End If
m_bZu_vercolden = Value
End Set
End Property
Public Property [bZu_retournieren]() As SqlBoolean
Get
Return m_bZu_retournieren
End Get
Set(ByVal Value As SqlBoolean)
Dim bZu_retournierenTmp As SqlBoolean = Value
If bZu_retournierenTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bZu_retournieren", "bZu_retournieren can't be NULL")
End If
m_bZu_retournieren = Value
End Set
End Property
Public Property [bEingang_ersetzt_ausgang]() As SqlBoolean
Get
Return m_bEingang_ersetzt_ausgang
End Get
Set(ByVal Value As SqlBoolean)
Dim bEingang_ersetzt_ausgangTmp As SqlBoolean = Value
If bEingang_ersetzt_ausgangTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bEingang_ersetzt_ausgang", "bEingang_ersetzt_ausgang can't be NULL")
End If
m_bEingang_ersetzt_ausgang = Value
End Set
End Property
Public Property [bWird_importiert]() As SqlBoolean
Get
Return m_bWird_importiert
End Get
Set(ByVal Value As SqlBoolean)
Dim bWird_importiertTmp As SqlBoolean = Value
If bWird_importiertTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bWird_importiert", "bWird_importiert can't be NULL")
End If
m_bWird_importiert = Value
End Set
End Property
Public Property [iAnzahl_tage]() As SqlInt32
Get
Return m_iAnzahl_tage
End Get
Set(ByVal Value As SqlInt32)
Dim iAnzahl_tageTmp As SqlInt32 = Value
If iAnzahl_tageTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iAnzahl_tage", "iAnzahl_tage can't be NULL")
End If
m_iAnzahl_tage = Value
End Set
End Property
Public Property [iDbearbeitungszeit]() As SqlInt32
Get
Return m_iDbearbeitungszeit
End Get
Set(ByVal Value As SqlInt32)
Dim iDbearbeitungszeitTmp As SqlInt32 = Value
If iDbearbeitungszeitTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iDbearbeitungszeit", "iDbearbeitungszeit can't be NULL")
End If
m_iDbearbeitungszeit = Value
End Set
End Property
Public Property [iTage_mutation]() As SqlInt32
Get
Return m_iTage_mutation
End Get
Set(ByVal Value As SqlInt32)
Dim iTage_mutationTmp As SqlInt32 = Value
If iTage_mutationTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iTage_mutation", "iTage_mutation can't be NULL")
End If
m_iTage_mutation = Value
End Set
End Property
Public Property [bPartnersaldierung_statusalt]() As SqlBoolean
Get
Return m_bPartnersaldierung_statusalt
End Get
Set(ByVal Value As SqlBoolean)
Dim bPartnersaldierung_statusaltTmp As SqlBoolean = Value
If bPartnersaldierung_statusaltTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bPartnersaldierung_statusalt", "bPartnersaldierung_statusalt can't be NULL")
End If
m_bPartnersaldierung_statusalt = Value
End Set
End Property
Public Property [bWird_nicht_geloescht]() As SqlBoolean
Get
Return m_bWird_nicht_geloescht
End Get
Set(ByVal Value As SqlBoolean)
Dim bWird_nicht_geloeschtTmp As SqlBoolean = Value
If bWird_nicht_geloeschtTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bWird_nicht_geloescht", "bWird_nicht_geloescht can't be NULL")
End If
m_bWird_nicht_geloescht = Value
End Set
End Property
Public Property [bVertrauliches_dokument]() As SqlBoolean
Get
Return m_bVertrauliches_dokument
End Get
Set(ByVal Value As SqlBoolean)
Dim bVertrauliches_dokumentTmp As SqlBoolean = Value
If bVertrauliches_dokumentTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bVertrauliches_dokument", "bVertrauliches_dokument can't be NULL")
End If
m_bVertrauliches_dokument = Value
End Set
End Property
Public Property [bUnterschrift_links]() As SqlBoolean
Get
Return m_bUnterschrift_links
End Get
Set(ByVal Value As SqlBoolean)
Dim bUnterschrift_linksTmp As SqlBoolean = Value
If bUnterschrift_linksTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bUnterschrift_links", "bUnterschrift_links can't be NULL")
End If
m_bUnterschrift_links = Value
End Set
End Property
Public Property [bUnterschrift_rechts]() As SqlBoolean
Get
Return m_bUnterschrift_rechts
End Get
Set(ByVal Value As SqlBoolean)
Dim bUnterschrift_rechtsTmp As SqlBoolean = Value
If bUnterschrift_rechtsTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bUnterschrift_rechts", "bUnterschrift_rechts can't be NULL")
End If
m_bUnterschrift_rechts = Value
End Set
End Property
Public Property [iMonate_bis_zur_archivierung]() As SqlInt32
Get
Return m_iMonate_bis_zur_archivierung
End Get
Set(ByVal Value As SqlInt32)
Dim iMonate_bis_zur_archivierungTmp As SqlInt32 = Value
If iMonate_bis_zur_archivierungTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iMonate_bis_zur_archivierung", "iMonate_bis_zur_archivierung can't be NULL")
End If
m_iMonate_bis_zur_archivierung = Value
End Set
End Property
Public Property [iAufbewahrungsfrist_elektronisch]() As SqlInt32
Get
Return m_iAufbewahrungsfrist_elektronisch
End Get
Set(ByVal Value As SqlInt32)
Dim iAufbewahrungsfrist_elektronischTmp As SqlInt32 = Value
If iAufbewahrungsfrist_elektronischTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iAufbewahrungsfrist_elektronisch", "iAufbewahrungsfrist_elektronisch can't be NULL")
End If
m_iAufbewahrungsfrist_elektronisch = Value
End Set
End Property
Public Property [iAufbewahrungsfrist_physisch]() As SqlInt32
Get
Return m_iAufbewahrungsfrist_physisch
End Get
Set(ByVal Value As SqlInt32)
Dim iAufbewahrungsfrist_physischTmp As SqlInt32 = Value
If iAufbewahrungsfrist_physischTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iAufbewahrungsfrist_physisch", "iAufbewahrungsfrist_physisch can't be NULL")
End If
m_iAufbewahrungsfrist_physisch = 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 [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 [iOffice_vorlagenr]() As SqlInt32
Get
Return m_iOffice_vorlagenr
End Get
Set(ByVal Value As SqlInt32)
m_iOffice_vorlagenr = Value
End Set
End Property
Public Property [iOffice_vorlagenrOld]() As SqlInt32
Get
Return m_iOffice_vorlagenrOld
End Get
Set(ByVal Value As SqlInt32)
m_iOffice_vorlagenrOld = Value
End Set
End Property
Public Property [iDokumentart_kundendossier]() As SqlInt32
Get
Return m_iDokumentart_kundendossier
End Get
Set(ByVal Value As SqlInt32)
m_iDokumentart_kundendossier = Value
End Set
End Property
Public Property [iDokumentart_neuerstellung]() As SqlInt32
Get
Return m_iDokumentart_neuerstellung
End Get
Set(ByVal Value As SqlInt32)
m_iDokumentart_neuerstellung = Value
End Set
End Property
Public Property [iDokumentart_retournierung]() As SqlInt32
Get
Return m_iDokumentart_retournierung
End Get
Set(ByVal Value As SqlInt32)
m_iDokumentart_retournierung = Value
End Set
End Property
Public Property [iDokumentart_coldausgang]() As SqlInt32
Get
Return m_iDokumentart_coldausgang
End Get
Set(ByVal Value As SqlInt32)
Dim iDokumentart_coldausgangTmp As SqlInt32 = Value
If iDokumentart_coldausgangTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iDokumentart_coldausgang", "iDokumentart_coldausgang can't be NULL")
End If
m_iDokumentart_coldausgang = Value
End Set
End Property
Public Property [iDokumentart_coldeingang]() As SqlInt32
Get
Return m_iDokumentart_coldeingang
End Get
Set(ByVal Value As SqlInt32)
Dim iDokumentart_coldeingangTmp As SqlInt32 = Value
If iDokumentart_coldeingangTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iDokumentart_coldeingang", "iDokumentart_coldeingang can't be NULL")
End If
m_iDokumentart_coldeingang = Value
End Set
End Property
Public Property [iDokumentart_host]() As SqlInt32
Get
Return m_iDokumentart_host
End Get
Set(ByVal Value As SqlInt32)
m_iDokumentart_host = Value
End Set
End Property
Public Property [iDokumentart_weitere]() As SqlInt32
Get
Return m_iDokumentart_weitere
End Get
Set(ByVal Value As SqlInt32)
m_iDokumentart_weitere = Value
End Set
End Property
Public Property [iDokumentart_nativ]() As SqlInt32
Get
Return m_iDokumentart_nativ
End Get
Set(ByVal Value As SqlInt32)
m_iDokumentart_nativ = Value
End Set
End Property
Public Property [iProzessnr]() As SqlInt32
Get
Return m_iProzessnr
End Get
Set(ByVal Value As SqlInt32)
m_iProzessnr = Value
End Set
End Property
Public Property [iProzessnrOld]() As SqlInt32
Get
Return m_iProzessnrOld
End Get
Set(ByVal Value As SqlInt32)
m_iProzessnrOld = Value
End Set
End Property
Public Property [iProzessnr1]() As SqlInt32
Get
Return m_iProzessnr1
End Get
Set(ByVal Value As SqlInt32)
m_iProzessnr1 = Value
End Set
End Property
Public Property [iProzessnr1Old]() As SqlInt32
Get
Return m_iProzessnr1Old
End Get
Set(ByVal Value As SqlInt32)
m_iProzessnr1Old = Value
End Set
End Property
Public Property [bAmsdokument]() As SqlBoolean
Get
Return m_bAmsdokument
End Get
Set(ByVal Value As SqlBoolean)
Dim bAmsdokumentTmp As SqlBoolean = Value
If bAmsdokumentTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bAmsdokument", "bAmsdokument can't be NULL")
End If
m_bAmsdokument = Value
End Set
End Property
Public Property [bHostdokument]() As SqlBoolean
Get
Return m_bHostdokument
End Get
Set(ByVal Value As SqlBoolean)
m_bHostdokument = Value
End Set
End Property
Public Property [sHostdokumenttyp]() As SqlString
Get
Return m_sHostdokumenttyp
End Get
Set(ByVal Value As SqlString)
m_sHostdokumenttyp = Value
End Set
End Property
Public Property [iCold_folder]() As SqlInt32
Get
Return m_iCold_folder
End Get
Set(ByVal Value As SqlInt32)
m_iCold_folder = Value
End Set
End Property
Public Property [iCold_folderOld]() As SqlInt32
Get
Return m_iCold_folderOld
End Get
Set(ByVal Value As SqlInt32)
m_iCold_folderOld = Value
End Set
End Property
Public Property [iPhysisches_archiv]() As SqlInt32
Get
Return m_iPhysisches_archiv
End Get
Set(ByVal Value As SqlInt32)
m_iPhysisches_archiv = Value
End Set
End Property
Public Property [iDokumentstatus]() As SqlInt32
Get
Return m_iDokumentstatus
End Get
Set(ByVal Value As SqlInt32)
m_iDokumentstatus = Value
End Set
End Property
Public Property [bDokument_wird_erstellt]() As SqlBoolean
Get
Return m_bDokument_wird_erstellt
End Get
Set(ByVal Value As SqlBoolean)
m_bDokument_wird_erstellt = Value
End Set
End Property
Public Property [bDokument_wird_retourniert]() As SqlBoolean
Get
Return m_bDokument_wird_retourniert
End Get
Set(ByVal Value As SqlBoolean)
m_bDokument_wird_retourniert = Value
End Set
End Property
Public Property [bCold_ersetzen]() As SqlBoolean
Get
Return m_bCold_ersetzen
End Get
Set(ByVal Value As SqlBoolean)
m_bCold_ersetzen = Value
End Set
End Property
Public Property [bFunktionen_zuweisen]() As SqlBoolean
Get
Return m_bFunktionen_zuweisen
End Get
Set(ByVal Value As SqlBoolean)
m_bFunktionen_zuweisen = Value
End Set
End Property
Public Property [iDokumentstatus_barcode]() As SqlInt32
Get
Return m_iDokumentstatus_barcode
End Get
Set(ByVal Value As SqlInt32)
m_iDokumentstatus_barcode = Value
End Set
End Property
Public Property [bNurnative]() As SqlBoolean
Get
Return m_bNurnative
End Get
Set(ByVal Value As SqlBoolean)
m_bNurnative = Value
End Set
End Property
Public Property [iOwner]() As SqlInt32
Get
Return m_iOwner
End Get
Set(ByVal Value As SqlInt32)
m_iOwner = Value
End Set
End Property
Public Property [bVertrag]() As SqlBoolean
Get
Return m_bVertrag
End Get
Set(ByVal Value As SqlBoolean)
m_bVertrag = Value
End Set
End Property
Public Property [iObjektbezeichnungnr]() As SqlInt32
Get
Return m_iObjektbezeichnungnr
End Get
Set(ByVal Value As SqlInt32)
m_iObjektbezeichnungnr = Value
End Set
End Property
Public Property [bEmail_versand]() As SqlBoolean
Get
Return m_bEmail_versand
End Get
Set(ByVal Value As SqlBoolean)
m_bEmail_versand = Value
End Set
End Property
Public Property [istFarbigArchiviert]() As SqlBoolean
Get
Return m_istFarbigArchiviert
End Get
Set(ByVal Value As SqlBoolean)
m_istFarbigArchiviert = Value
End Set
End Property
#End Region
End Class
End Namespace