' /////////////////////////////////////////////////////////////////////////// ' // Description: Data Access class for the table 'dokumenttyp' ' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 24. Mai 2005, 11:42:48 ' // 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_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bVertrauliches_dokument, m_bUnterschrift_links, m_bAktiv, m_bDokument_wird_retourniert, m_bDokument_wird_erstellt, m_bCold_ersetzen, m_bFunktionen_zuweisen, m_bEmail_versand, m_bWird_nicht_geloescht, m_bZu_retournieren, m_bEingang_ersetzt_ausgang, m_bZu_vercolden, m_bKundenDokument, m_bAnzeigeZurDokumenterstellung, m_bWird_importiert, m_bBedingtretournierbar, m_bAmsdokument, m_bPartnersaldierung_statusalt, m_bHostdokument As SqlBoolean Private m_daErstellt_am, m_daMutiert_am As SqlDateTime Private m_iPhysisches_archiv, m_iCold_folder, m_iProzessnr1, m_iDokumentstatus, m_iDoktypbedingteretournierung, m_iTagebisvernichtungbedingteretournierung, m_iObjektbezeichnungnr, m_iDokumentstatus_barcode, m_iOwner, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_weitere, m_iDokumentart_host, m_iProzessnr, m_iDokumentart_nativ, m_iDokumentart_coldeingang, m_iDokumentart_neuerstellung, m_iDokumentart_kundendossier, m_iDokumentart_retournierung, m_iDokumentart_coldausgang 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: ' /// ' /// 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("@bemail_versand", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEmail_versand)) 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("@bbedingtretournierbar", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBedingtretournierbar)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idoktypbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDoktypbedingteretournierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@itagebisvernichtungbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTagebisvernichtungbedingteretournierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAnzeigeZurDokumenterstellung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAnzeigeZurDokumenterstellung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bKundenDokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bKundenDokument)) 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: ' /// ' /// 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("@bemail_versand", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEmail_versand)) 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("@bbedingtretournierbar", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBedingtretournierbar)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idoktypbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDoktypbedingteretournierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@itagebisvernichtungbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTagebisvernichtungbedingteretournierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAnzeigeZurDokumenterstellung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAnzeigeZurDokumenterstellung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bKundenDokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bKundenDokument)) 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: Delete method. This method will Delete one existing row in the database, based on the Primary Key. ' /// ' /// True if succeeded, otherwise an Exception is thrown. ' /// ' /// Properties needed for this method: ' /// ' /// Properties set after a succesful call of this method: ' /// ' /// 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: ' /// ' /// Properties set after a succesful call of this method: ' /// ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. ' /// Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_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)("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)("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)("bedingtretournierbar") Is System.DBNull.Value Then m_bBedingtretournierbar = SqlBoolean.Null Else m_bBedingtretournierbar = New SqlBoolean(CType(dtToReturn.Rows(0)("bedingtretournierbar"), Boolean)) End If If dtToReturn.Rows(0)("doktypbedingteretournierung") Is System.DBNull.Value Then m_iDoktypbedingteretournierung = SqlInt32.Null Else m_iDoktypbedingteretournierung = New SqlInt32(CType(dtToReturn.Rows(0)("doktypbedingteretournierung"), Integer)) End If If dtToReturn.Rows(0)("tagebisvernichtungbedingteretournierung") Is System.DBNull.Value Then m_iTagebisvernichtungbedingteretournierung = SqlInt32.Null Else m_iTagebisvernichtungbedingteretournierung = New SqlInt32(CType(dtToReturn.Rows(0)("tagebisvernichtungbedingteretournierung"), Integer)) End If If dtToReturn.Rows(0)("AnzeigeZurDokumenterstellung") Is System.DBNull.Value Then m_bAnzeigeZurDokumenterstellung = SqlBoolean.Null Else m_bAnzeigeZurDokumenterstellung = New SqlBoolean(CType(dtToReturn.Rows(0)("AnzeigeZurDokumenterstellung"), Boolean)) End If If dtToReturn.Rows(0)("KundenDokument") Is System.DBNull.Value Then m_bKundenDokument = SqlBoolean.Null Else m_bKundenDokument = New SqlBoolean(CType(dtToReturn.Rows(0)("KundenDokument"), 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 #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 [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 [iProzessnr1]() As SqlInt32 Get Return m_iProzessnr1 End Get Set(ByVal Value As SqlInt32) m_iProzessnr1 = 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 [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 [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 [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 [bBedingtretournierbar]() As SqlBoolean Get Return m_bBedingtretournierbar End Get Set(ByVal Value As SqlBoolean) m_bBedingtretournierbar = Value End Set End Property Public Property [iDoktypbedingteretournierung]() As SqlInt32 Get Return m_iDoktypbedingteretournierung End Get Set(ByVal Value As SqlInt32) m_iDoktypbedingteretournierung = Value End Set End Property Public Property [iTagebisvernichtungbedingteretournierung]() As SqlInt32 Get Return m_iTagebisvernichtungbedingteretournierung End Get Set(ByVal Value As SqlInt32) m_iTagebisvernichtungbedingteretournierung = Value End Set End Property Public Property [bAnzeigeZurDokumenterstellung]() As SqlBoolean Get Return m_bAnzeigeZurDokumenterstellung End Get Set(ByVal Value As SqlBoolean) m_bAnzeigeZurDokumenterstellung = Value End Set End Property Public Property [bKundenDokument]() As SqlBoolean Get Return m_bKundenDokument End Get Set(ByVal Value As SqlBoolean) m_bKundenDokument = Value End Set End Property #End Region End Class End Namespace