Collapse All Expand All Language Filter: Code: All Code: Multiple Code: Visual Basic Code: C# Code: Visual C++ Code: J# Code: JScript

EDKB12WS Reference
clsDokumenttyp.SelectOne Method
See Also

Namespace: EDKB12WS.edokadb
Assembly: EDKB12WS (in EDKB12WS.exe)

# Syntax

Visual Basic
Public Overrides Function SelectOne() As DataTable
C#
public override DataTable SelectOne()
C++
public: DataTable^ SelectOne()
JScript
public function SelectOne() : DataTable;

# Source code

Visual Basic | Copy Code
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 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

# Platforms

Windows 8, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows XP SP2 x64 Edition, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2 The .NET Framework does not support all versions of every platform. For a list of the supported versions, see System Requirements.

# Version Information

## .NET Framework Supported in: 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0 ## .NET Compact Framework Supported in: 3.5, 2.0, 1.0 ## XNA Framework Supported in: 3.0, 2.0, 1.0

# See Also

## Reference clsDokumenttyp Class clsDokumenttyp clsDokumenttyp Members EDKB12WS.edokadb Namespace