|
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
|
|