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