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

EDKB12WS Reference
clsDokument.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_dokument_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("dokument") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) 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_dokument_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("dokumentid"), String)) If dtToReturn.Rows(0)("mitarbeiternr") Is System.DBNull.Value Then m_iMitarbeiternr = SqlInt32.Null Else m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr"), Integer)) End If If dtToReturn.Rows(0)("mitarbeiternr1") Is System.DBNull.Value Then m_iMitarbeiternr1 = SqlInt32.Null Else m_iMitarbeiternr1 = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr1"), Integer)) End If If dtToReturn.Rows(0)("nrpar00") Is System.DBNull.Value Then m_iNrpar00 = SqlInt32.Null Else m_iNrpar00 = New SqlInt32(CType(dtToReturn.Rows(0)("nrpar00"), Integer)) End If If dtToReturn.Rows(0)("dokumentidn") Is System.DBNull.Value Then m_sDokumentidn = SqlString.Null Else m_sDokumentidn = New SqlString(CType(dtToReturn.Rows(0)("dokumentidn"), String)) End If If dtToReturn.Rows(0)("dokumentname") Is System.DBNull.Value Then m_sDokumentname = SqlString.Null Else m_sDokumentname = New SqlString(CType(dtToReturn.Rows(0)("dokumentname"), String)) End If If dtToReturn.Rows(0)("ersteller") Is System.DBNull.Value Then m_iErsteller = SqlInt32.Null Else m_iErsteller = New SqlInt32(CType(dtToReturn.Rows(0)("ersteller"), Integer)) End If If dtToReturn.Rows(0)("erstellerteam") Is System.DBNull.Value Then m_iErstellerteam = SqlInt32.Null Else m_iErstellerteam = New SqlInt32(CType(dtToReturn.Rows(0)("erstellerteam"), Integer)) End If If dtToReturn.Rows(0)("erstelltam") Is System.DBNull.Value Then m_daErstelltam = SqlDateTime.Null Else m_daErstelltam = New SqlDateTime(CType(dtToReturn.Rows(0)("erstelltam"), 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)("mutierertieam") Is System.DBNull.Value Then m_iMutierertieam = SqlInt32.Null Else m_iMutierertieam = New SqlInt32(CType(dtToReturn.Rows(0)("mutierertieam"), Integer)) End If If dtToReturn.Rows(0)("mutiertam") Is System.DBNull.Value Then m_daMutiertam = SqlDateTime.Null Else m_daMutiertam = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiertam"), Date)) End If If dtToReturn.Rows(0)("speicherort") Is System.DBNull.Value Then m_sSpeicherort = SqlString.Null Else m_sSpeicherort = New SqlString(CType(dtToReturn.Rows(0)("speicherort"), String)) End If If dtToReturn.Rows(0)("gesperrt") Is System.DBNull.Value Then m_bGesperrt = SqlBoolean.Null Else m_bGesperrt = New SqlBoolean(CType(dtToReturn.Rows(0)("gesperrt"), Boolean)) End If If dtToReturn.Rows(0)("gesperrt_durch") Is System.DBNull.Value Then m_iGesperrt_durch = SqlInt32.Null Else m_iGesperrt_durch = New SqlInt32(CType(dtToReturn.Rows(0)("gesperrt_durch"), Integer)) End If If dtToReturn.Rows(0)("gesperrtam") Is System.DBNull.Value Then m_daGesperrtam = SqlDateTime.Null Else m_daGesperrtam = New SqlDateTime(CType(dtToReturn.Rows(0)("gesperrtam"), Date)) End If 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)("bemerkung") Is System.DBNull.Value Then m_sBemerkung = SqlString.Null Else m_sBemerkung = New SqlString(CType(dtToReturn.Rows(0)("bemerkung"), String)) End If If dtToReturn.Rows(0)("auserstuebernahme") Is System.DBNull.Value Then m_bAuserstuebernahme = SqlBoolean.Null Else m_bAuserstuebernahme = New SqlBoolean(CType(dtToReturn.Rows(0)("auserstuebernahme"), Boolean)) End If If dtToReturn.Rows(0)("dokumenttypnr") Is System.DBNull.Value Then m_iDokumenttypnr = SqlInt32.Null Else m_iDokumenttypnr = New SqlInt32(CType(dtToReturn.Rows(0)("dokumenttypnr"), Integer)) End If If dtToReturn.Rows(0)("unvollstaendig") Is System.DBNull.Value Then m_bUnvollstaendig = SqlBoolean.Null Else m_bUnvollstaendig = New SqlBoolean(CType(dtToReturn.Rows(0)("unvollstaendig"), Boolean)) End If If dtToReturn.Rows(0)("bemerkunguvm") Is System.DBNull.Value Then m_sBemerkunguvm = SqlString.Null Else m_sBemerkunguvm = New SqlString(CType(dtToReturn.Rows(0)("bemerkunguvm"), String)) End If If dtToReturn.Rows(0)("bereit_zur_archivierung") Is System.DBNull.Value Then m_bBereit_zur_archivierung = SqlBoolean.Null Else m_bBereit_zur_archivierung = New SqlBoolean(CType(dtToReturn.Rows(0)("bereit_zur_archivierung"), Boolean)) End If If dtToReturn.Rows(0)("ausgangsarchiviert") Is System.DBNull.Value Then m_bAusgangsarchiviert = SqlBoolean.Null Else m_bAusgangsarchiviert = New SqlBoolean(CType(dtToReturn.Rows(0)("ausgangsarchiviert"), Boolean)) End If If dtToReturn.Rows(0)("datum_ausgangsarchivierung") Is System.DBNull.Value Then m_daDatum_ausgangsarchivierung = SqlDateTime.Null Else m_daDatum_ausgangsarchivierung = New SqlDateTime(CType(dtToReturn.Rows(0)("datum_ausgangsarchivierung"), Date)) End If If dtToReturn.Rows(0)("ma_ausgangsarchivierung") Is System.DBNull.Value Then m_iMa_ausgangsarchivierung = SqlInt32.Null Else m_iMa_ausgangsarchivierung = New SqlInt32(CType(dtToReturn.Rows(0)("ma_ausgangsarchivierung"), Integer)) End If If dtToReturn.Rows(0)("zu_retournieren") Is System.DBNull.Value Then m_bZu_retournieren = SqlBoolean.Null Else m_bZu_retournieren = New SqlBoolean(CType(dtToReturn.Rows(0)("zu_retournieren"), Boolean)) End If If dtToReturn.Rows(0)("eingangsarchiviert") Is System.DBNull.Value Then m_bEingangsarchiviert = SqlBoolean.Null Else m_bEingangsarchiviert = New SqlBoolean(CType(dtToReturn.Rows(0)("eingangsarchiviert"), Boolean)) End If If dtToReturn.Rows(0)("datum_eingangsarchivierung") Is System.DBNull.Value Then m_daDatum_eingangsarchivierung = SqlDateTime.Null Else m_daDatum_eingangsarchivierung = New SqlDateTime(CType(dtToReturn.Rows(0)("datum_eingangsarchivierung"), Date)) End If If dtToReturn.Rows(0)("ma_eingangsarchivierung") Is System.DBNull.Value Then m_iMa_eingangsarchivierung = SqlInt32.Null Else m_iMa_eingangsarchivierung = New SqlInt32(CType(dtToReturn.Rows(0)("ma_eingangsarchivierung"), Integer)) End If If dtToReturn.Rows(0)("status_edoka_batch_ausgang") Is System.DBNull.Value Then m_iStatus_edoka_batch_ausgang = SqlInt32.Null Else m_iStatus_edoka_batch_ausgang = New SqlInt32(CType(dtToReturn.Rows(0)("status_edoka_batch_ausgang"), Integer)) End If If dtToReturn.Rows(0)("status_edoka_batch_eingang") Is System.DBNull.Value Then m_iStatus_edoka_batch_eingang = SqlInt32.Null Else m_iStatus_edoka_batch_eingang = New SqlInt32(CType(dtToReturn.Rows(0)("status_edoka_batch_eingang"), Integer)) End If If dtToReturn.Rows(0)("loeschgrund") Is System.DBNull.Value Then m_sLoeschgrund = SqlString.Null Else m_sLoeschgrund = New SqlString(CType(dtToReturn.Rows(0)("loeschgrund"), String)) End If If dtToReturn.Rows(0)("coldstatus") Is System.DBNull.Value Then m_iColdstatus = SqlInt32.Null Else m_iColdstatus = New SqlInt32(CType(dtToReturn.Rows(0)("coldstatus"), Integer)) End If If dtToReturn.Rows(0)("versandadresse") Is System.DBNull.Value Then m_sVersandadresse = SqlString.Null Else m_sVersandadresse = New SqlString(CType(dtToReturn.Rows(0)("versandadresse"), String)) End If If dtToReturn.Rows(0)("barcodenr") Is System.DBNull.Value Then m_iBarcodenr = SqlInt32.Null Else m_iBarcodenr = New SqlInt32(CType(dtToReturn.Rows(0)("barcodenr"), Integer)) End If If dtToReturn.Rows(0)("colddokumentid") Is System.DBNull.Value Then m_sColddokumentid = SqlString.Null Else m_sColddokumentid = New SqlString(CType(dtToReturn.Rows(0)("colddokumentid"), String)) End If If dtToReturn.Rows(0)("amsdokument") Is System.DBNull.Value Then m_bAmsdokument = SqlBoolean.Null Else m_bAmsdokument = New SqlBoolean(CType(dtToReturn.Rows(0)("amsdokument"), Boolean)) End If If dtToReturn.Rows(0)("verantwortlich") Is System.DBNull.Value Then m_iVerantwortlich = SqlInt32.Null Else m_iVerantwortlich = New SqlInt32(CType(dtToReturn.Rows(0)("verantwortlich"), Integer)) End If If dtToReturn.Rows(0)("zustaendiger") Is System.DBNull.Value Then m_iZustaendiger = SqlInt32.Null Else m_iZustaendiger = New SqlInt32(CType(dtToReturn.Rows(0)("zustaendiger"), Integer)) End If If dtToReturn.Rows(0)("unterschriftlinks") Is System.DBNull.Value Then m_iUnterschriftlinks = SqlInt32.Null Else m_iUnterschriftlinks = New SqlInt32(CType(dtToReturn.Rows(0)("unterschriftlinks"), Integer)) End If If dtToReturn.Rows(0)("unterschriftrechts") Is System.DBNull.Value Then m_iUnterschriftrechts = SqlInt32.Null Else m_iUnterschriftrechts = New SqlInt32(CType(dtToReturn.Rows(0)("unterschriftrechts"), Integer)) End If If dtToReturn.Rows(0)("postzustellung") Is System.DBNull.Value Then m_iPostzustellung = SqlInt32.Null Else m_iPostzustellung = New SqlInt32(CType(dtToReturn.Rows(0)("postzustellung"), 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)("statusnr") Is System.DBNull.Value Then m_iStatusnr = SqlInt32.Null Else m_iStatusnr = New SqlInt32(CType(dtToReturn.Rows(0)("statusnr"), Integer)) End If If dtToReturn.Rows(0)("zustaendig_kube") Is System.DBNull.Value Then m_bZustaendig_kube = SqlBoolean.Null Else m_bZustaendig_kube = New SqlBoolean(CType(dtToReturn.Rows(0)("zustaendig_kube"), Boolean)) End If If dtToReturn.Rows(0)("zustelladresse") Is System.DBNull.Value Then m_sZustelladresse = SqlString.Null Else m_sZustelladresse = New SqlString(CType(dtToReturn.Rows(0)("zustelladresse"), String)) End If If dtToReturn.Rows(0)("vertraulich") Is System.DBNull.Value Then m_bVertraulich = SqlBoolean.Null Else m_bVertraulich = New SqlBoolean(CType(dtToReturn.Rows(0)("vertraulich"), Boolean)) End If If dtToReturn.Rows(0)("erstellungsdatum") Is System.DBNull.Value Then m_daErstellungsdatum = SqlDateTime.Null Else m_daErstellungsdatum = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellungsdatum"), Date)) End If If dtToReturn.Rows(0)("archivierungsdatum") Is System.DBNull.Value Then m_daArchivierungsdatum = SqlDateTime.Null Else m_daArchivierungsdatum = New SqlDateTime(CType(dtToReturn.Rows(0)("archivierungsdatum"), Date)) End If If dtToReturn.Rows(0)("termin") Is System.DBNull.Value Then m_daTermin = SqlDateTime.Null Else m_daTermin = New SqlDateTime(CType(dtToReturn.Rows(0)("termin"), Date)) End If If dtToReturn.Rows(0)("mutiererteam") Is System.DBNull.Value Then m_iMutiererteam = SqlInt32.Null Else m_iMutiererteam = New SqlInt32(CType(dtToReturn.Rows(0)("mutiererteam"), Integer)) End If If dtToReturn.Rows(0)("anredezustelladresse") Is System.DBNull.Value Then m_sAnredezustelladresse = SqlString.Null Else m_sAnredezustelladresse = New SqlString(CType(dtToReturn.Rows(0)("anredezustelladresse"), String)) End If If dtToReturn.Rows(0)("dokdurchkubeweitergegeben") Is System.DBNull.Value Then m_iDokdurchkubeweitergegeben = SqlInt32.Null Else m_iDokdurchkubeweitergegeben = New SqlInt32(CType(dtToReturn.Rows(0)("dokdurchkubeweitergegeben"), Integer)) End If If dtToReturn.Rows(0)("bck") Is System.DBNull.Value Then m_iBck = SqlInt32.Null Else m_iBck = New SqlInt32(CType(dtToReturn.Rows(0)("bck"), Integer)) End If If dtToReturn.Rows(0)("bearbeitungszeit_in_minuten") Is System.DBNull.Value Then m_iBearbeitungszeit_in_minuten = SqlInt32.Null Else m_iBearbeitungszeit_in_minuten = New SqlInt32(CType(dtToReturn.Rows(0)("bearbeitungszeit_in_minuten"), Integer)) End If If dtToReturn.Rows(0)("monierung_in_tagen") Is System.DBNull.Value Then m_iMonierung_in_tagen = SqlInt32.Null Else m_iMonierung_in_tagen = New SqlInt32(CType(dtToReturn.Rows(0)("monierung_in_tagen"), Integer)) End If If dtToReturn.Rows(0)("aufbewahrung_elektronisch") Is System.DBNull.Value Then m_iAufbewahrung_elektronisch = SqlInt32.Null Else m_iAufbewahrung_elektronisch = New SqlInt32(CType(dtToReturn.Rows(0)("aufbewahrung_elektronisch"), Integer)) End If If dtToReturn.Rows(0)("aufbewahrung_phaysisch") Is System.DBNull.Value Then m_iAufbewahrung_phaysisch = SqlInt32.Null Else m_iAufbewahrung_phaysisch = New SqlInt32(CType(dtToReturn.Rows(0)("aufbewahrung_phaysisch"), Integer)) End If If dtToReturn.Rows(0)("in_edoka_datenbank") Is System.DBNull.Value Then m_iIn_edoka_datenbank = SqlInt32.Null Else m_iIn_edoka_datenbank = New SqlInt32(CType(dtToReturn.Rows(0)("in_edoka_datenbank"), Integer)) End If If dtToReturn.Rows(0)("bearbeitung_nach_abschluss") Is System.DBNull.Value Then m_iBearbeitung_nach_abschluss = SqlInt32.Null Else m_iBearbeitung_nach_abschluss = New SqlInt32(CType(dtToReturn.Rows(0)("bearbeitung_nach_abschluss"), Integer)) End If If dtToReturn.Rows(0)("coldfolder") Is System.DBNull.Value Then m_sColdfolder = SqlString.Null Else m_sColdfolder = New SqlString(CType(dtToReturn.Rows(0)("coldfolder"), String)) End If If dtToReturn.Rows(0)("coldschema") Is System.DBNull.Value Then m_sColdschema = SqlString.Null Else m_sColdschema = New SqlString(CType(dtToReturn.Rows(0)("coldschema"), String)) End If If dtToReturn.Rows(0)("erinnerungam") Is System.DBNull.Value Then m_daErinnerungam = SqlDateTime.Null Else m_daErinnerungam = New SqlDateTime(CType(dtToReturn.Rows(0)("erinnerungam"), Date)) End If If dtToReturn.Rows(0)("FANummer1") Is System.DBNull.Value Then m_sFANummer1 = SqlString.Null Else m_sFANummer1 = New SqlString(CType(dtToReturn.Rows(0)("FANummer1"), String)) End If If dtToReturn.Rows(0)("FANummer2") Is System.DBNull.Value Then m_sFANummer2 = SqlString.Null Else m_sFANummer2 = New SqlString(CType(dtToReturn.Rows(0)("FANummer2"), String)) End If If dtToReturn.Rows(0)("fapartnerwechsel") Is System.DBNull.Value Then m_bFapartnerwechsel = SqlBoolean.Null Else m_bFapartnerwechsel = New SqlBoolean(CType(dtToReturn.Rows(0)("fapartnerwechsel"), Boolean)) End If If dtToReturn.Rows(0)("FAStatuswechsel") Is System.DBNull.Value Then m_bFAStatuswechsel = SqlBoolean.Null Else m_bFAStatuswechsel = New SqlBoolean(CType(dtToReturn.Rows(0)("FAStatuswechsel"), Boolean)) End If If dtToReturn.Rows(0)("FAVerantwortlicherwechsel") Is System.DBNull.Value Then m_bFAVerantwortlicherwechsel = SqlBoolean.Null Else m_bFAVerantwortlicherwechsel = New SqlBoolean(CType(dtToReturn.Rows(0)("FAVerantwortlicherwechsel"), Boolean)) End If If dtToReturn.Rows(0)("BedRDokumentid") Is System.DBNull.Value Then m_sBedRDokumentid = SqlString.Null Else m_sBedRDokumentid = New SqlString(CType(dtToReturn.Rows(0)("BedRDokumentid"), String)) End If If dtToReturn.Rows(0)("BedRRetourniert") Is System.DBNull.Value Then m_bBedRRetourniert = SqlBoolean.Null Else m_bBedRRetourniert = New SqlBoolean(CType(dtToReturn.Rows(0)("BedRRetourniert"), Boolean)) End If If dtToReturn.Rows(0)("BRVernichtungnachTagen") Is System.DBNull.Value Then m_iBRVernichtungnachTagen = SqlInt32.Null Else m_iBRVernichtungnachTagen = New SqlInt32(CType(dtToReturn.Rows(0)("BRVernichtungnachTagen"), Integer)) End If If dtToReturn.Rows(0)("officedokumentgeloescht") Is System.DBNull.Value Then m_bOfficedokumentgeloescht = SqlBoolean.Null Else m_bOfficedokumentgeloescht = New SqlBoolean(CType(dtToReturn.Rows(0)("officedokumentgeloescht"), Boolean)) End If If dtToReturn.Rows(0)("fanummer3") Is System.DBNull.Value Then m_sFanummer3 = SqlString.Null Else m_sFanummer3 = New SqlString(CType(dtToReturn.Rows(0)("fanummer3"), String)) End If If dtToReturn.Rows(0)("vvnr") Is System.DBNull.Value Then m_sVvnr = SqlString.Null Else m_sVvnr = New SqlString(CType(dtToReturn.Rows(0)("vvnr"), String)) End If If dtToReturn.Rows(0)("AnzeigeStatus") Is System.DBNull.Value Then m_iAnzeigeStatus = SqlInt32.Null Else m_iAnzeigeStatus = New SqlInt32(CType(dtToReturn.Rows(0)("AnzeigeStatus"), Integer)) End If If dtToReturn.Rows(0)("bl_scan") Is System.DBNull.Value Then m_bBl_scan = SqlBoolean.Null Else m_bBl_scan = New SqlBoolean(CType(dtToReturn.Rows(0)("bl_scan"), Boolean)) End If If dtToReturn.Rows(0)("bldossier") Is System.DBNull.Value Then m_bBldossier = SqlBoolean.Null Else m_bBldossier = New SqlBoolean(CType(dtToReturn.Rows(0)("bldossier"), 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("clsDokument::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 clsDokument Class clsDokument clsDokument Members EDKB12WS.edokadb Namespace