' /////////////////////////////////////////////////////////////////////////// ' // Description: Data Access class for the table 'Tempdokument' ' // Generated by LLBLGen v1.2.1045.38210 Final on: Samstag, 19. April 2003, 22:33:53 ' // 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 ' /// ' /// Purpose: Data Access class for the table 'Tempdokument'. ' /// Public Class clsTempdokument Inherits clsDBInteractionBase #Region " Class Member Declarations " Private m_bGesperrt, m_bAusgangsarchiviert, m_bEingangsarchiviert, m_bZu_retournieren, m_bBereit_zur_archivierung, m_bUnvollstaendig, m_bAmsdokument, m_bAuserstuebernahme, m_bZustaendig_kube, m_bVertraulich, m_bAktiv As SqlBoolean Private m_daGesperrtam, m_daTermin, m_daArchivierungsdatum, m_daErstellungsdatum, m_daDatum_eingangsarchivierung, m_daErstelltam, m_daMutiertam, m_daDatum_ausgangsarchivierung As SqlDateTime Private m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang, m_iColdstatus, m_iPostzustellung, m_iUnterschriftrechts, m_iMutiererteam, m_iStatusnr, m_iVerantwortlich, m_iBarcodenr, m_iUnterschriftlinks, m_iZustaendiger, m_iErstellerteam, m_iNrpar00, m_iMutierer, m_iMutierertieam, m_iGesperrt_durch, m_iDokumenttypnr, m_iMa_ausgangsarchivierung, m_iMa_eingangsarchivierung, m_iErsteller, m_iMitarbeiternr1, m_iMitarbeiternr As SqlInt32 Private m_sDokumentidn, m_sDokumentid, m_sDokumentname, m_sZustelladresse, m_sVersandadresse, m_sBemerkunguvm, m_sLoeschgrund, m_sColddokumentid, m_sSpeicherort, m_sBezeichnung, m_sBemerkung As SqlString #End Region ' /// ' /// Purpose: Class constructor. ' /// Public Sub New() ' // Nothing for now. End Sub ' /// ' /// Purpose: Insert method. This method will insert one new row into the database. ' /// ' /// True if succeeded, otherwise an Exception is thrown. ' /// ' /// Properties needed for this method: ' /// ' /// Properties set after a succesful call of this method: ' /// ' /// Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Tempdokument_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // 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("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@inrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNrpar00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentidn", SqlDbType.VarChar, 20, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentidn)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentname)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iersteller", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErsteller)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ierstellerteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErstellerteam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstelltam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstelltam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierertieam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierertieam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiertam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiertam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sspeicherort", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpeicherort)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bgesperrt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bGesperrt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@igesperrt_durch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iGesperrt_durch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dagesperrtam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daGesperrtam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbemerkung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bauserstuebernahme", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAuserstuebernahme)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bunvollstaendig", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bUnvollstaendig)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbemerkunguvm", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkunguvm)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbereit_zur_archivierung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBereit_zur_archivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bausgangsarchiviert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAusgangsarchiviert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatum_ausgangsarchivierung", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatum_ausgangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ima_ausgangsarchivierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMa_ausgangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bZu_retournieren)) scmCmdToExecute.Parameters.Add(New SqlParameter("@beingangsarchiviert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEingangsarchiviert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatum_eingangsarchivierung", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatum_eingangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ima_eingangsarchivierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMa_eingangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus_edoka_batch_ausgang", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus_edoka_batch_ausgang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus_edoka_batch_eingang", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus_edoka_batch_eingang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sloeschgrund", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoeschgrund)) scmCmdToExecute.Parameters.Add(New SqlParameter("@icoldstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iColdstatus)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sversandadresse", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersandadresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibarcodenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBarcodenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scolddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColddokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bamsdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAmsdokument)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich)) scmCmdToExecute.Parameters.Add(New SqlParameter("@izustaendiger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZustaendiger)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftlinks", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftlinks)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftrechts", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftrechts)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ipostzustellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPostzustellung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatusnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatusnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bzustaendig_kube", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bZustaendig_kube)) scmCmdToExecute.Parameters.Add(New SqlParameter("@szustelladresse", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZustelladresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertraulich", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bVertraulich)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellungsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellungsdatum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daarchivierungsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daArchivierungsdatum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@datermin", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daTermin)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutiererteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutiererteam)) 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. 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_Tempdokument_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("clsTempdokument::Insert::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function ' /// ' /// Purpose: Update method. This method will Update one existing row in the database. ' /// ' /// True if succeeded, otherwise an Exception is thrown. ' /// ' /// Properties needed for this method: ' /// ' /// Properties set after a succesful call of this method: ' /// ' /// Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Tempdokument_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // 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("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@inrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNrpar00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentidn", SqlDbType.VarChar, 20, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentidn)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentname)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iersteller", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErsteller)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ierstellerteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErstellerteam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstelltam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstelltam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierertieam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierertieam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiertam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiertam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sspeicherort", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpeicherort)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bgesperrt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bGesperrt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@igesperrt_durch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iGesperrt_durch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dagesperrtam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daGesperrtam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbemerkung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bauserstuebernahme", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAuserstuebernahme)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bunvollstaendig", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bUnvollstaendig)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbemerkunguvm", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkunguvm)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbereit_zur_archivierung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBereit_zur_archivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bausgangsarchiviert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAusgangsarchiviert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatum_ausgangsarchivierung", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatum_ausgangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ima_ausgangsarchivierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMa_ausgangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bZu_retournieren)) scmCmdToExecute.Parameters.Add(New SqlParameter("@beingangsarchiviert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEingangsarchiviert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatum_eingangsarchivierung", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatum_eingangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ima_eingangsarchivierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMa_eingangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus_edoka_batch_ausgang", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus_edoka_batch_ausgang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus_edoka_batch_eingang", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus_edoka_batch_eingang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sloeschgrund", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoeschgrund)) scmCmdToExecute.Parameters.Add(New SqlParameter("@icoldstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iColdstatus)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sversandadresse", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersandadresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibarcodenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBarcodenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scolddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColddokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bamsdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAmsdokument)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich)) scmCmdToExecute.Parameters.Add(New SqlParameter("@izustaendiger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZustaendiger)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftlinks", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftlinks)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftrechts", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftrechts)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ipostzustellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPostzustellung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatusnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatusnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bzustaendig_kube", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bZustaendig_kube)) scmCmdToExecute.Parameters.Add(New SqlParameter("@szustelladresse", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZustelladresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertraulich", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bVertraulich)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellungsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellungsdatum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daarchivierungsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daArchivierungsdatum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@datermin", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daTermin)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutiererteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutiererteam)) 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. 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_Tempdokument_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("clsTempdokument::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function ' /// ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. ' /// ' /// True if succeeded, otherwise an Exception is thrown. ' /// ' /// Properties needed for this method: ' /// ' /// Properties set after a succesful call of this method: ' /// ' /// Public Overrides Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Tempdokument_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // 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. 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_Tempdokument_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("clsTempdokument::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function ' /// ' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. ' /// ' /// DataTable object if succeeded, otherwise an Exception is thrown. ' /// ' /// Properties needed for this method: ' /// ' /// Properties set after a succesful call of this method: ' /// ' /// Will fill all properties corresponding with a field in the table with the value of the row selected. ' /// Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Tempdokument_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("Tempdokument") 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_Tempdokument_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 End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsTempdokument::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function ' /// ' /// Purpose: SelectAll method. This method will Select all rows from the table. ' /// ' /// DataTable object if succeeded, otherwise an Exception is thrown. ' /// ' /// Properties set after a succesful call of this method: ' /// ' /// Public Overrides Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Tempdokument_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("Tempdokument") 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_Tempdokument_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("clsTempdokument::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 [sDokumentid]() As SqlString Get Return m_sDokumentid End Get Set(ByVal Value As SqlString) Dim sDokumentidTmp As SqlString = Value If sDokumentidTmp.IsNull Then Throw New ArgumentOutOfRangeException("sDokumentid", "sDokumentid can't be NULL") End If m_sDokumentid = Value End Set End Property Public Property [iMitarbeiternr]() As SqlInt32 Get Return m_iMitarbeiternr End Get Set(ByVal Value As SqlInt32) m_iMitarbeiternr = Value End Set End Property Public Property [iMitarbeiternr1]() As SqlInt32 Get Return m_iMitarbeiternr1 End Get Set(ByVal Value As SqlInt32) m_iMitarbeiternr1 = Value End Set End Property Public Property [iNrpar00]() As SqlInt32 Get Return m_iNrpar00 End Get Set(ByVal Value As SqlInt32) m_iNrpar00 = Value End Set End Property Public Property [sDokumentidn]() As SqlString Get Return m_sDokumentidn End Get Set(ByVal Value As SqlString) m_sDokumentidn = Value End Set End Property Public Property [sDokumentname]() As SqlString Get Return m_sDokumentname End Get Set(ByVal Value As SqlString) m_sDokumentname = Value End Set End Property Public Property [iErsteller]() As SqlInt32 Get Return m_iErsteller End Get Set(ByVal Value As SqlInt32) m_iErsteller = Value End Set End Property Public Property [iErstellerteam]() As SqlInt32 Get Return m_iErstellerteam End Get Set(ByVal Value As SqlInt32) m_iErstellerteam = Value End Set End Property Public Property [daErstelltam]() As SqlDateTime Get Return m_daErstelltam End Get Set(ByVal Value As SqlDateTime) m_daErstelltam = 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 [iMutierertieam]() As SqlInt32 Get Return m_iMutierertieam End Get Set(ByVal Value As SqlInt32) m_iMutierertieam = Value End Set End Property Public Property [daMutiertam]() As SqlDateTime Get Return m_daMutiertam End Get Set(ByVal Value As SqlDateTime) m_daMutiertam = Value End Set End Property Public Property [sSpeicherort]() As SqlString Get Return m_sSpeicherort End Get Set(ByVal Value As SqlString) m_sSpeicherort = Value End Set End Property Public Property [bGesperrt]() As SqlBoolean Get Return m_bGesperrt End Get Set(ByVal Value As SqlBoolean) m_bGesperrt = Value End Set End Property Public Property [iGesperrt_durch]() As SqlInt32 Get Return m_iGesperrt_durch End Get Set(ByVal Value As SqlInt32) m_iGesperrt_durch = Value End Set End Property Public Property [daGesperrtam]() As SqlDateTime Get Return m_daGesperrtam End Get Set(ByVal Value As SqlDateTime) m_daGesperrtam = 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 [sBemerkung]() As SqlString Get Return m_sBemerkung End Get Set(ByVal Value As SqlString) m_sBemerkung = Value End Set End Property Public Property [bAuserstuebernahme]() As SqlBoolean Get Return m_bAuserstuebernahme End Get Set(ByVal Value As SqlBoolean) m_bAuserstuebernahme = Value End Set End Property Public Property [iDokumenttypnr]() As SqlInt32 Get Return m_iDokumenttypnr End Get Set(ByVal Value As SqlInt32) m_iDokumenttypnr = Value End Set End Property Public Property [bUnvollstaendig]() As SqlBoolean Get Return m_bUnvollstaendig End Get Set(ByVal Value As SqlBoolean) m_bUnvollstaendig = Value End Set End Property Public Property [sBemerkunguvm]() As SqlString Get Return m_sBemerkunguvm End Get Set(ByVal Value As SqlString) m_sBemerkunguvm = Value End Set End Property Public Property [bBereit_zur_archivierung]() As SqlBoolean Get Return m_bBereit_zur_archivierung End Get Set(ByVal Value As SqlBoolean) m_bBereit_zur_archivierung = Value End Set End Property Public Property [bAusgangsarchiviert]() As SqlBoolean Get Return m_bAusgangsarchiviert End Get Set(ByVal Value As SqlBoolean) m_bAusgangsarchiviert = Value End Set End Property Public Property [daDatum_ausgangsarchivierung]() As SqlDateTime Get Return m_daDatum_ausgangsarchivierung End Get Set(ByVal Value As SqlDateTime) m_daDatum_ausgangsarchivierung = Value End Set End Property Public Property [iMa_ausgangsarchivierung]() As SqlInt32 Get Return m_iMa_ausgangsarchivierung End Get Set(ByVal Value As SqlInt32) m_iMa_ausgangsarchivierung = Value End Set End Property Public Property [bZu_retournieren]() As SqlBoolean Get Return m_bZu_retournieren End Get Set(ByVal Value As SqlBoolean) m_bZu_retournieren = Value End Set End Property Public Property [bEingangsarchiviert]() As SqlBoolean Get Return m_bEingangsarchiviert End Get Set(ByVal Value As SqlBoolean) m_bEingangsarchiviert = Value End Set End Property Public Property [daDatum_eingangsarchivierung]() As SqlDateTime Get Return m_daDatum_eingangsarchivierung End Get Set(ByVal Value As SqlDateTime) m_daDatum_eingangsarchivierung = Value End Set End Property Public Property [iMa_eingangsarchivierung]() As SqlInt32 Get Return m_iMa_eingangsarchivierung End Get Set(ByVal Value As SqlInt32) m_iMa_eingangsarchivierung = Value End Set End Property Public Property [iStatus_edoka_batch_ausgang]() As SqlInt32 Get Return m_iStatus_edoka_batch_ausgang End Get Set(ByVal Value As SqlInt32) m_iStatus_edoka_batch_ausgang = Value End Set End Property Public Property [iStatus_edoka_batch_eingang]() As SqlInt32 Get Return m_iStatus_edoka_batch_eingang End Get Set(ByVal Value As SqlInt32) m_iStatus_edoka_batch_eingang = Value End Set End Property Public Property [sLoeschgrund]() As SqlString Get Return m_sLoeschgrund End Get Set(ByVal Value As SqlString) m_sLoeschgrund = Value End Set End Property Public Property [iColdstatus]() As SqlInt32 Get Return m_iColdstatus End Get Set(ByVal Value As SqlInt32) m_iColdstatus = Value End Set End Property Public Property [sVersandadresse]() As SqlString Get Return m_sVersandadresse End Get Set(ByVal Value As SqlString) m_sVersandadresse = Value End Set End Property Public Property [iBarcodenr]() As SqlInt32 Get Return m_iBarcodenr End Get Set(ByVal Value As SqlInt32) m_iBarcodenr = Value End Set End Property Public Property [sColddokumentid]() As SqlString Get Return m_sColddokumentid End Get Set(ByVal Value As SqlString) m_sColddokumentid = Value End Set End Property Public Property [bAmsdokument]() As SqlBoolean Get Return m_bAmsdokument End Get Set(ByVal Value As SqlBoolean) m_bAmsdokument = Value End Set End Property Public Property [iVerantwortlich]() As SqlInt32 Get Return m_iVerantwortlich End Get Set(ByVal Value As SqlInt32) m_iVerantwortlich = Value End Set End Property Public Property [iZustaendiger]() As SqlInt32 Get Return m_iZustaendiger End Get Set(ByVal Value As SqlInt32) m_iZustaendiger = Value End Set End Property Public Property [iUnterschriftlinks]() As SqlInt32 Get Return m_iUnterschriftlinks End Get Set(ByVal Value As SqlInt32) m_iUnterschriftlinks = Value End Set End Property Public Property [iUnterschriftrechts]() As SqlInt32 Get Return m_iUnterschriftrechts End Get Set(ByVal Value As SqlInt32) m_iUnterschriftrechts = Value End Set End Property Public Property [iPostzustellung]() As SqlInt32 Get Return m_iPostzustellung End Get Set(ByVal Value As SqlInt32) m_iPostzustellung = 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 [iStatusnr]() As SqlInt32 Get Return m_iStatusnr End Get Set(ByVal Value As SqlInt32) m_iStatusnr = Value End Set End Property Public Property [bZustaendig_kube]() As SqlBoolean Get Return m_bZustaendig_kube End Get Set(ByVal Value As SqlBoolean) m_bZustaendig_kube = Value End Set End Property Public Property [sZustelladresse]() As SqlString Get Return m_sZustelladresse End Get Set(ByVal Value As SqlString) m_sZustelladresse = Value End Set End Property Public Property [bVertraulich]() As SqlBoolean Get Return m_bVertraulich End Get Set(ByVal Value As SqlBoolean) m_bVertraulich = Value End Set End Property Public Property [daErstellungsdatum]() As SqlDateTime Get Return m_daErstellungsdatum End Get Set(ByVal Value As SqlDateTime) m_daErstellungsdatum = Value End Set End Property Public Property [daArchivierungsdatum]() As SqlDateTime Get Return m_daArchivierungsdatum End Get Set(ByVal Value As SqlDateTime) m_daArchivierungsdatum = Value End Set End Property Public Property [daTermin]() As SqlDateTime Get Return m_daTermin End Get Set(ByVal Value As SqlDateTime) m_daTermin = Value End Set End Property Public Property [iMutiererteam]() As SqlInt32 Get Return m_iMutiererteam End Get Set(ByVal Value As SqlInt32) m_iMutiererteam = Value End Set End Property #End Region End Class End Namespace