' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'dokumenttyp'
' // Generated by LLBLGen v1.21.2003.712 Final on: Freitag, 11. Mai 2012, 11:49:44
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient

Namespace edokadb
	''' <summary>
	''' Purpose: Data Access class for the table 'dokumenttyp'.
	''' </summary>
	Public Class clsDokumenttyp
		Inherits clsDBInteractionBase

#Region " Class Member Declarations "

		Private 		m_bAktiv, m_bBedingtretournierbar, m_bVertrag, m_bAnzeigeZurDokumenterstellung, m_bSbimport, m_bSb, m_bKundenDokument, m_bNurnative, m_bAmsdokument, m_bHostdokument, m_bDokument_wird_erstellt, m_bDokument_wird_retourniert, m_bFunktionen_zuweisen, m_bEmail_versand, m_bCold_ersetzen, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSbnur, m_bBezeichnungmut, m_bZu_retournieren, m_bIntern, m_bElDokImport, m_bZu_vercolden, m_bIstFarbigArchiviert, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bVertrauliches_dokument, m_bWird_nicht_geloescht, m_bUnterschrift_links, m_bUnterschrift_rechts As SqlBoolean
		Private 		m_daErstellt_am, m_daMutiert_am As SqlDateTime
		Private 		m_iDokumentstatus, m_iOwner, m_iDoktypbedingteretournierung, m_iTagebisvernichtungbedingteretournierung, m_iObjektbezeichnungnr, m_iDokumentstatus_barcode, m_iPhysisches_archiv, m_iMandantnr, m_iAufbewahrungsfrist_physisch, m_iMutierer, m_iDokumentart_kundendossier, m_iOffice_vorlagenr, m_iAufbewahrungsfrist_elektronisch, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr, m_iCold_folder, m_iProzessnr1, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldausgang, m_iDokumentart_host, m_iDokumentart_coldeingang As SqlInt32
		Private 		m_sFachverantwortung, m_sBezeichnung, m_sHostdokumenttyp, m_sBeschreibung As SqlString

#End Region


		''' <summary>
		''' Purpose: Class constructor.
		''' </summary>
		Public Sub New()
			' // Nothing for now.
		End Sub


		''' <summary>
		''' Purpose: Insert method. This method will insert one new row into the database.
		''' </summary>
		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iDokumenttypnr</LI>
		'''		 <LI>sBezeichnung. May be SqlString.Null</LI>
		'''		 <LI>sBeschreibung. May be SqlString.Null</LI>
		'''		 <LI>bZu_vercolden</LI>
		'''		 <LI>bZu_retournieren</LI>
		'''		 <LI>bEingang_ersetzt_ausgang</LI>
		'''		 <LI>bWird_importiert</LI>
		'''		 <LI>iAnzahl_tage</LI>
		'''		 <LI>iDbearbeitungszeit</LI>
		'''		 <LI>iTage_mutation</LI>
		'''		 <LI>bPartnersaldierung_statusalt</LI>
		'''		 <LI>bWird_nicht_geloescht</LI>
		'''		 <LI>bVertrauliches_dokument</LI>
		'''		 <LI>bUnterschrift_links</LI>
		'''		 <LI>bUnterschrift_rechts</LI>
		'''		 <LI>iMonate_bis_zur_archivierung</LI>
		'''		 <LI>iAufbewahrungsfrist_elektronisch</LI>
		'''		 <LI>iAufbewahrungsfrist_physisch</LI>
		'''		 <LI>iMandantnr. May be SqlInt32.Null</LI>
		'''		 <LI>bAktiv. May be SqlBoolean.Null</LI>
		'''		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
		'''		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
		'''		 <LI>iMutierer. May be SqlInt32.Null</LI>
		'''		 <LI>iOffice_vorlagenr. May be SqlInt32.Null</LI>
		'''		 <LI>iDokumentart_kundendossier. May be SqlInt32.Null</LI>
		'''		 <LI>iDokumentart_neuerstellung. May be SqlInt32.Null</LI>
		'''		 <LI>iDokumentart_retournierung. May be SqlInt32.Null</LI>
		'''		 <LI>iDokumentart_coldausgang</LI>
		'''		 <LI>iDokumentart_coldeingang</LI>
		'''		 <LI>iDokumentart_host. May be SqlInt32.Null</LI>
		'''		 <LI>iDokumentart_weitere. May be SqlInt32.Null</LI>
		'''		 <LI>iDokumentart_nativ. May be SqlInt32.Null</LI>
		'''		 <LI>iProzessnr. May be SqlInt32.Null</LI>
		'''		 <LI>iProzessnr1. May be SqlInt32.Null</LI>
		'''		 <LI>bAmsdokument</LI>
		'''		 <LI>bHostdokument. May be SqlBoolean.Null</LI>
		'''		 <LI>sHostdokumenttyp. May be SqlString.Null</LI>
		'''		 <LI>iCold_folder. May be SqlInt32.Null</LI>
		'''		 <LI>iPhysisches_archiv. May be SqlInt32.Null</LI>
		'''		 <LI>iDokumentstatus. May be SqlInt32.Null</LI>
		'''		 <LI>bDokument_wird_erstellt. May be SqlBoolean.Null</LI>
		'''		 <LI>bDokument_wird_retourniert. May be SqlBoolean.Null</LI>
		'''		 <LI>bCold_ersetzen. May be SqlBoolean.Null</LI>
		'''		 <LI>bEmail_versand. May be SqlBoolean.Null</LI>
		'''		 <LI>bFunktionen_zuweisen. May be SqlBoolean.Null</LI>
		'''		 <LI>iDokumentstatus_barcode. May be SqlInt32.Null</LI>
		'''		 <LI>bNurnative. May be SqlBoolean.Null</LI>
		'''		 <LI>iOwner. May be SqlInt32.Null</LI>
		'''		 <LI>bVertrag. May be SqlBoolean.Null</LI>
		'''		 <LI>iObjektbezeichnungnr. May be SqlInt32.Null</LI>
		'''		 <LI>bBedingtretournierbar. May be SqlBoolean.Null</LI>
		'''		 <LI>iDoktypbedingteretournierung. May be SqlInt32.Null</LI>
		'''		 <LI>iTagebisvernichtungbedingteretournierung. May be SqlInt32.Null</LI>
		'''		 <LI>bAnzeigeZurDokumenterstellung. May be SqlBoolean.Null</LI>
		'''		 <LI>bKundenDokument. May be SqlBoolean.Null</LI>
		'''		 <LI>bSb. May be SqlBoolean.Null</LI>
		'''		 <LI>bSbimport. May be SqlBoolean.Null</LI>
		'''		 <LI>bSbedituser. May be SqlBoolean.Null</LI>
		'''		 <LI>bSbnur. May be SqlBoolean.Null</LI>
		'''		 <LI>bBezeichnungmut. May be SqlBoolean.Null</LI>
		'''		 <LI>bIstFarbigArchiviert</LI>
		'''		 <LI>bIntern. May be SqlBoolean.Null</LI>
		'''		 <LI>bElDokImport. May be SqlBoolean.Null</LI>
		'''		 <LI>sFachverantwortung. May be SqlString.Null</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		'''</UL>
		''' </remarks>
		Overrides Public Function Insert() As Boolean
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_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, 0, 0, "", DataRowVersion.Proposed, m_bZu_vercolden))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bZu_retournieren))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@beingang_ersetzt_ausgang", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bEingang_ersetzt_ausgang))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_importiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 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, 0, 0, "", DataRowVersion.Proposed, m_bPartnersaldierung_statusalt))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_nicht_geloescht", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bWird_nicht_geloescht))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrauliches_dokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bVertrauliches_dokument))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_links", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bUnterschrift_links))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_rechts", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 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, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@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, 0, 0, "", DataRowVersion.Proposed, m_bAmsdokument))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bhostdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 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, 0, 0, "", DataRowVersion.Proposed, m_bDokument_wird_erstellt))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_retourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bDokument_wird_retourniert))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bcold_ersetzen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bCold_ersetzen))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bemail_versand", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bEmail_versand))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bfunktionen_zuweisen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 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, 0, 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, 0, 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, 0, 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, 0, 0, "", DataRowVersion.Proposed, m_bAnzeigeZurDokumenterstellung))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bKundenDokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bKundenDokument))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bsb", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSb))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbimport", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSbimport))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbedituser", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSbedituser))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbnur", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSbnur))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bbezeichnungmut", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bBezeichnungmut))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bistFarbigArchiviert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bIstFarbigArchiviert))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bintern", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bIntern))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@belDokImport", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bElDokImport))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sFachverantwortung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFachverantwortung))
				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))

				If m_bMainConnectionIsCreatedLocal Then
					' // Open connection.
					m_scoMainConnection.Open()
				Else
					If m_cpMainConnectionProvider.bIsTransactionPending Then
						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
					End If
				End If

				' // Execute query.
				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))

				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
					' // Throw error.
					Throw New Exception("Stored Procedure 'pr_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


		''' <summary>
		''' Purpose: Update method. This method will Update one existing row in the database.
		''' </summary>
		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iDokumenttypnr</LI>
		'''		 <LI>sBezeichnung. May be SqlString.Null</LI>
		'''		 <LI>sBeschreibung. May be SqlString.Null</LI>
		'''		 <LI>bZu_vercolden</LI>
		'''		 <LI>bZu_retournieren</LI>
		'''		 <LI>bEingang_ersetzt_ausgang</LI>
		'''		 <LI>bWird_importiert</LI>
		'''		 <LI>iAnzahl_tage</LI>
		'''		 <LI>iDbearbeitungszeit</LI>
		'''		 <LI>iTage_mutation</LI>
		'''		 <LI>bPartnersaldierung_statusalt</LI>
		'''		 <LI>bWird_nicht_geloescht</LI>
		'''		 <LI>bVertrauliches_dokument</LI>
		'''		 <LI>bUnterschrift_links</LI>
		'''		 <LI>bUnterschrift_rechts</LI>
		'''		 <LI>iMonate_bis_zur_archivierung</LI>
		'''		 <LI>iAufbewahrungsfrist_elektronisch</LI>
		'''		 <LI>iAufbewahrungsfrist_physisch</LI>
		'''		 <LI>iMandantnr. May be SqlInt32.Null</LI>
		'''		 <LI>bAktiv. May be SqlBoolean.Null</LI>
		'''		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
		'''		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
		'''		 <LI>iMutierer. May be SqlInt32.Null</LI>
		'''		 <LI>iOffice_vorlagenr. May be SqlInt32.Null</LI>
		'''		 <LI>iDokumentart_kundendossier. May be SqlInt32.Null</LI>
		'''		 <LI>iDokumentart_neuerstellung. May be SqlInt32.Null</LI>
		'''		 <LI>iDokumentart_retournierung. May be SqlInt32.Null</LI>
		'''		 <LI>iDokumentart_coldausgang</LI>
		'''		 <LI>iDokumentart_coldeingang</LI>
		'''		 <LI>iDokumentart_host. May be SqlInt32.Null</LI>
		'''		 <LI>iDokumentart_weitere. May be SqlInt32.Null</LI>
		'''		 <LI>iDokumentart_nativ. May be SqlInt32.Null</LI>
		'''		 <LI>iProzessnr. May be SqlInt32.Null</LI>
		'''		 <LI>iProzessnr1. May be SqlInt32.Null</LI>
		'''		 <LI>bAmsdokument</LI>
		'''		 <LI>bHostdokument. May be SqlBoolean.Null</LI>
		'''		 <LI>sHostdokumenttyp. May be SqlString.Null</LI>
		'''		 <LI>iCold_folder. May be SqlInt32.Null</LI>
		'''		 <LI>iPhysisches_archiv. May be SqlInt32.Null</LI>
		'''		 <LI>iDokumentstatus. May be SqlInt32.Null</LI>
		'''		 <LI>bDokument_wird_erstellt. May be SqlBoolean.Null</LI>
		'''		 <LI>bDokument_wird_retourniert. May be SqlBoolean.Null</LI>
		'''		 <LI>bCold_ersetzen. May be SqlBoolean.Null</LI>
		'''		 <LI>bEmail_versand. May be SqlBoolean.Null</LI>
		'''		 <LI>bFunktionen_zuweisen. May be SqlBoolean.Null</LI>
		'''		 <LI>iDokumentstatus_barcode. May be SqlInt32.Null</LI>
		'''		 <LI>bNurnative. May be SqlBoolean.Null</LI>
		'''		 <LI>iOwner. May be SqlInt32.Null</LI>
		'''		 <LI>bVertrag. May be SqlBoolean.Null</LI>
		'''		 <LI>iObjektbezeichnungnr. May be SqlInt32.Null</LI>
		'''		 <LI>bBedingtretournierbar. May be SqlBoolean.Null</LI>
		'''		 <LI>iDoktypbedingteretournierung. May be SqlInt32.Null</LI>
		'''		 <LI>iTagebisvernichtungbedingteretournierung. May be SqlInt32.Null</LI>
		'''		 <LI>bAnzeigeZurDokumenterstellung. May be SqlBoolean.Null</LI>
		'''		 <LI>bKundenDokument. May be SqlBoolean.Null</LI>
		'''		 <LI>bSb. May be SqlBoolean.Null</LI>
		'''		 <LI>bSbimport. May be SqlBoolean.Null</LI>
		'''		 <LI>bSbedituser. May be SqlBoolean.Null</LI>
		'''		 <LI>bSbnur. May be SqlBoolean.Null</LI>
		'''		 <LI>bBezeichnungmut. May be SqlBoolean.Null</LI>
		'''		 <LI>bIstFarbigArchiviert</LI>
		'''		 <LI>bIntern. May be SqlBoolean.Null</LI>
		'''		 <LI>bElDokImport. May be SqlBoolean.Null</LI>
		'''		 <LI>sFachverantwortung. May be SqlString.Null</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		'''</UL>
		''' </remarks>
		Overrides Public Function Update() As Boolean
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_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, 0, 0, "", DataRowVersion.Proposed, m_bZu_vercolden))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bZu_retournieren))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@beingang_ersetzt_ausgang", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bEingang_ersetzt_ausgang))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_importiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 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, 0, 0, "", DataRowVersion.Proposed, m_bPartnersaldierung_statusalt))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_nicht_geloescht", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bWird_nicht_geloescht))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrauliches_dokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bVertrauliches_dokument))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_links", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bUnterschrift_links))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_rechts", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 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, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@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, 0, 0, "", DataRowVersion.Proposed, m_bAmsdokument))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bhostdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 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, 0, 0, "", DataRowVersion.Proposed, m_bDokument_wird_erstellt))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_retourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bDokument_wird_retourniert))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bcold_ersetzen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bCold_ersetzen))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bemail_versand", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bEmail_versand))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bfunktionen_zuweisen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 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, 0, 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, 0, 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, 0, 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, 0, 0, "", DataRowVersion.Proposed, m_bAnzeigeZurDokumenterstellung))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bKundenDokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bKundenDokument))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bsb", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSb))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbimport", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSbimport))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbedituser", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSbedituser))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbnur", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSbnur))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bbezeichnungmut", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bBezeichnungmut))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bistFarbigArchiviert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bIstFarbigArchiviert))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@bintern", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bIntern))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@belDokImport", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bElDokImport))
				scmCmdToExecute.Parameters.Add(New SqlParameter("@sFachverantwortung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFachverantwortung))
				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))

				If m_bMainConnectionIsCreatedLocal Then
					' // Open connection.
					m_scoMainConnection.Open()
				Else
					If m_cpMainConnectionProvider.bIsTransactionPending Then
						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
					End If
				End If

				' // Execute query.
				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))

				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
					' // Throw error.
					Throw New Exception("Stored Procedure 'pr_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


		''' <summary>
		''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
		''' </summary>
		''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iDokumenttypnr</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		'''</UL>
		''' </remarks>
		Overrides Public Function Delete() As Boolean
			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_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.
				m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))

				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
					' // Throw error.
					Throw New Exception("Stored Procedure 'pr_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


		''' <summary>
		''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
		''' </summary>
		''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
		''' <remarks>
		''' Properties needed for this method: 
		''' <UL>
		'''		 <LI>iDokumenttypnr</LI>
		''' </UL>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		'''		 <LI>iDokumenttypnr</LI>
		'''		 <LI>sBezeichnung</LI>
		'''		 <LI>sBeschreibung</LI>
		'''		 <LI>bZu_vercolden</LI>
		'''		 <LI>bZu_retournieren</LI>
		'''		 <LI>bEingang_ersetzt_ausgang</LI>
		'''		 <LI>bWird_importiert</LI>
		'''		 <LI>iAnzahl_tage</LI>
		'''		 <LI>iDbearbeitungszeit</LI>
		'''		 <LI>iTage_mutation</LI>
		'''		 <LI>bPartnersaldierung_statusalt</LI>
		'''		 <LI>bWird_nicht_geloescht</LI>
		'''		 <LI>bVertrauliches_dokument</LI>
		'''		 <LI>bUnterschrift_links</LI>
		'''		 <LI>bUnterschrift_rechts</LI>
		'''		 <LI>iMonate_bis_zur_archivierung</LI>
		'''		 <LI>iAufbewahrungsfrist_elektronisch</LI>
		'''		 <LI>iAufbewahrungsfrist_physisch</LI>
		'''		 <LI>iMandantnr</LI>
		'''		 <LI>bAktiv</LI>
		'''		 <LI>daErstellt_am</LI>
		'''		 <LI>daMutiert_am</LI>
		'''		 <LI>iMutierer</LI>
		'''		 <LI>iOffice_vorlagenr</LI>
		'''		 <LI>iDokumentart_kundendossier</LI>
		'''		 <LI>iDokumentart_neuerstellung</LI>
		'''		 <LI>iDokumentart_retournierung</LI>
		'''		 <LI>iDokumentart_coldausgang</LI>
		'''		 <LI>iDokumentart_coldeingang</LI>
		'''		 <LI>iDokumentart_host</LI>
		'''		 <LI>iDokumentart_weitere</LI>
		'''		 <LI>iDokumentart_nativ</LI>
		'''		 <LI>iProzessnr</LI>
		'''		 <LI>iProzessnr1</LI>
		'''		 <LI>bAmsdokument</LI>
		'''		 <LI>bHostdokument</LI>
		'''		 <LI>sHostdokumenttyp</LI>
		'''		 <LI>iCold_folder</LI>
		'''		 <LI>iPhysisches_archiv</LI>
		'''		 <LI>iDokumentstatus</LI>
		'''		 <LI>bDokument_wird_erstellt</LI>
		'''		 <LI>bDokument_wird_retourniert</LI>
		'''		 <LI>bCold_ersetzen</LI>
		'''		 <LI>bEmail_versand</LI>
		'''		 <LI>bFunktionen_zuweisen</LI>
		'''		 <LI>iDokumentstatus_barcode</LI>
		'''		 <LI>bNurnative</LI>
		'''		 <LI>iOwner</LI>
		'''		 <LI>bVertrag</LI>
		'''		 <LI>iObjektbezeichnungnr</LI>
		'''		 <LI>bBedingtretournierbar</LI>
		'''		 <LI>iDoktypbedingteretournierung</LI>
		'''		 <LI>iTagebisvernichtungbedingteretournierung</LI>
		'''		 <LI>bAnzeigeZurDokumenterstellung</LI>
		'''		 <LI>bKundenDokument</LI>
		'''		 <LI>bSb</LI>
		'''		 <LI>bSbimport</LI>
		'''		 <LI>bSbedituser</LI>
		'''		 <LI>bSbnur</LI>
		'''		 <LI>bBezeichnungmut</LI>
		'''		 <LI>bIstFarbigArchiviert</LI>
		'''		 <LI>bIntern</LI>
		'''		 <LI>bElDokImport</LI>
		'''		 <LI>sFachverantwortung</LI>
		'''</UL>
		''' Will fill all properties corresponding with a field in the table with the value of the row selected.
		''' </remarks>
		Overrides Public Function SelectOne() As DataTable
			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_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 = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))

				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
					' // Throw error.
					Throw New Exception("Stored Procedure 'pr_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
					If dtToReturn.Rows(0)("sb") Is System.DBNull.Value Then
						m_bSb = SqlBoolean.Null
					Else
						m_bSb = New SqlBoolean(CType(dtToReturn.Rows(0)("sb"), Boolean))
					End If
					If dtToReturn.Rows(0)("sbimport") Is System.DBNull.Value Then
						m_bSbimport = SqlBoolean.Null
					Else
						m_bSbimport = New SqlBoolean(CType(dtToReturn.Rows(0)("sbimport"), Boolean))
					End If
					If dtToReturn.Rows(0)("sbedituser") Is System.DBNull.Value Then
						m_bSbedituser = SqlBoolean.Null
					Else
						m_bSbedituser = New SqlBoolean(CType(dtToReturn.Rows(0)("sbedituser"), Boolean))
					End If
					If dtToReturn.Rows(0)("sbnur") Is System.DBNull.Value Then
						m_bSbnur = SqlBoolean.Null
					Else
						m_bSbnur = New SqlBoolean(CType(dtToReturn.Rows(0)("sbnur"), Boolean))
					End If
					If dtToReturn.Rows(0)("bezeichnungmut") Is System.DBNull.Value Then
						m_bBezeichnungmut = SqlBoolean.Null
					Else
						m_bBezeichnungmut = New SqlBoolean(CType(dtToReturn.Rows(0)("bezeichnungmut"), Boolean))
					End If
					m_bIstFarbigArchiviert = New SqlBoolean(CType(dtToReturn.Rows(0)("istFarbigArchiviert"), Boolean))
					If dtToReturn.Rows(0)("intern") Is System.DBNull.Value Then
						m_bIntern = SqlBoolean.Null
					Else
						m_bIntern = New SqlBoolean(CType(dtToReturn.Rows(0)("intern"), Boolean))
					End If
					If dtToReturn.Rows(0)("elDokImport") Is System.DBNull.Value Then
						m_bElDokImport = SqlBoolean.Null
					Else
						m_bElDokImport = New SqlBoolean(CType(dtToReturn.Rows(0)("elDokImport"), Boolean))
					End If
					If dtToReturn.Rows(0)("Fachverantwortung") Is System.DBNull.Value Then
						m_sFachverantwortung = SqlString.Null
					Else
						m_sFachverantwortung = New SqlString(CType(dtToReturn.Rows(0)("Fachverantwortung"), String))
					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


		''' <summary>
		''' Purpose: SelectAll method. This method will Select all rows from the table.
		''' </summary>
		''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
		''' <remarks>
		''' Properties set after a succesful call of this method: 
		''' <UL>
		'''		 <LI>iErrorCode</LI>
		'''</UL>
		''' </remarks>
		Overrides Public Function SelectAll() As DataTable
			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
			scmCmdToExecute.CommandText = "dbo.[pr_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 = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))

				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
					' // Throw error.
					Throw New Exception("Stored Procedure 'pr_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


		Public Property [bSb]() As SqlBoolean
			Get
				Return m_bSb
			End Get
			Set(ByVal Value As SqlBoolean)
				m_bSb = Value
			End Set
		End Property


		Public Property [bSbimport]() As SqlBoolean
			Get
				Return m_bSbimport
			End Get
			Set(ByVal Value As SqlBoolean)
				m_bSbimport = Value
			End Set
		End Property


		Public Property [bSbedituser]() As SqlBoolean
			Get
				Return m_bSbedituser
			End Get
			Set(ByVal Value As SqlBoolean)
				m_bSbedituser = Value
			End Set
		End Property


		Public Property [bSbnur]() As SqlBoolean
			Get
				Return m_bSbnur
			End Get
			Set(ByVal Value As SqlBoolean)
				m_bSbnur = Value
			End Set
		End Property


		Public Property [bBezeichnungmut]() As SqlBoolean
			Get
				Return m_bBezeichnungmut
			End Get
			Set(ByVal Value As SqlBoolean)
				m_bBezeichnungmut = Value
			End Set
		End Property


		Public Property [bIstFarbigArchiviert]() As SqlBoolean
			Get
				Return m_bIstFarbigArchiviert
			End Get
			Set(ByVal Value As SqlBoolean)
				m_bIstFarbigArchiviert = Value
			End Set
		End Property


		Public Property [bIntern]() As SqlBoolean
			Get
				Return m_bIntern
			End Get
			Set(ByVal Value As SqlBoolean)
				m_bIntern = Value
			End Set
		End Property


		Public Property [bElDokImport]() As SqlBoolean
			Get
				Return m_bElDokImport
			End Get
			Set(ByVal Value As SqlBoolean)
				m_bElDokImport = Value
			End Set
		End Property


		Public Property [sFachverantwortung]() As SqlString
			Get
				Return m_sFachverantwortung
			End Get
			Set(ByVal Value As SqlString)
				m_sFachverantwortung = Value
			End Set
		End Property

#End Region

	End Class
End Namespace