' /////////////////////////////////////////////////////////////////////////// ' // Description: Data Access class for the table 'dokument' ' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 24. Mai 2005, 16:40:40 ' // 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 'dokument'. ' /// Public Class clsDokument Inherits clsDBInteractionBase #Region " Class Member Declarations " Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean Private m_daArchivierungsdatum, m_daTermin, m_daDatum_ausgangsarchivierung, m_daErstellungsdatum, m_daDatum_eingangsarchivierung, m_daGesperrtam, m_daErinnerungam, m_daMutiertam, m_daErstelltam As SqlDateTime Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema 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_dokument_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("@sanredezustelladresse", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnredezustelladresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokdurchkubeweitergegeben", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokdurchkubeweitergegeben)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBck)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibearbeitungszeit_in_minuten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBearbeitungszeit_in_minuten)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imonierung_in_tagen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMonierung_in_tagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrung_elektronisch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrung_elektronisch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrung_phaysisch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrung_phaysisch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iin_edoka_datenbank", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIn_edoka_datenbank)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibearbeitung_nach_abschluss", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBearbeitung_nach_abschluss)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldfolder", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdfolder)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldschema", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdschema)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerinnerungam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErinnerungam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sFANummer1", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFANummer1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sFANummer2", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFANummer2)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bfapartnerwechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFapartnerwechsel)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bFAStatuswechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFAStatuswechsel)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bFAVerantwortlicherwechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFAVerantwortlicherwechsel)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBedRDokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBedRDokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bBedRRetourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBedRRetourniert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iBRVernichtungnachTagen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBRVernichtungnachTagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bofficedokumentgeloescht", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bOfficedokumentgeloescht)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sfanummer3", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFanummer3)) scmCmdToExecute.Parameters.Add(New SqlParameter("@svvnr", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iAnzeigeStatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnzeigeStatus)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbl_scan", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBl_scan)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbldossier", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBldossier)) 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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_dokument_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("clsDokument::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_dokument_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("@sanredezustelladresse", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnredezustelladresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokdurchkubeweitergegeben", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokdurchkubeweitergegeben)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBck)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibearbeitungszeit_in_minuten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBearbeitungszeit_in_minuten)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imonierung_in_tagen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMonierung_in_tagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrung_elektronisch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrung_elektronisch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrung_phaysisch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrung_phaysisch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iin_edoka_datenbank", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIn_edoka_datenbank)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibearbeitung_nach_abschluss", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBearbeitung_nach_abschluss)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldfolder", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdfolder)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldschema", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdschema)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerinnerungam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErinnerungam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sFANummer1", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFANummer1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sFANummer2", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFANummer2)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bfapartnerwechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFapartnerwechsel)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bFAStatuswechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFAStatuswechsel)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bFAVerantwortlicherwechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFAVerantwortlicherwechsel)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBedRDokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBedRDokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bBedRRetourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBedRRetourniert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iBRVernichtungnachTagen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBRVernichtungnachTagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bofficedokumentgeloescht", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bOfficedokumentgeloescht)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sfanummer3", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFanummer3)) scmCmdToExecute.Parameters.Add(New SqlParameter("@svvnr", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iAnzeigeStatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnzeigeStatus)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbl_scan", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBl_scan)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbldossier", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBldossier)) 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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_dokument_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("clsDokument::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: ' /// ' /// Overrides Public Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_dokument_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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_dokument_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("clsDokument::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_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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value 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 ' /// ' /// 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: ' /// ' /// Overrides Public Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_dokument_SelectAll]" 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("@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 = scmCmdToExecute.Parameters.Item("@iErrorCode").Value If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_dokument_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("clsDokument::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 Public Property [sAnredezustelladresse]() As SqlString Get Return m_sAnredezustelladresse End Get Set(ByVal Value As SqlString) m_sAnredezustelladresse = Value End Set End Property Public Property [iDokdurchkubeweitergegeben]() As SqlInt32 Get Return m_iDokdurchkubeweitergegeben End Get Set(ByVal Value As SqlInt32) m_iDokdurchkubeweitergegeben = Value End Set End Property Public Property [iBck]() As SqlInt32 Get Return m_iBck End Get Set(ByVal Value As SqlInt32) m_iBck = Value End Set End Property Public Property [iBearbeitungszeit_in_minuten]() As SqlInt32 Get Return m_iBearbeitungszeit_in_minuten End Get Set(ByVal Value As SqlInt32) m_iBearbeitungszeit_in_minuten = Value End Set End Property Public Property [iMonierung_in_tagen]() As SqlInt32 Get Return m_iMonierung_in_tagen End Get Set(ByVal Value As SqlInt32) m_iMonierung_in_tagen = Value End Set End Property Public Property [iAufbewahrung_elektronisch]() As SqlInt32 Get Return m_iAufbewahrung_elektronisch End Get Set(ByVal Value As SqlInt32) m_iAufbewahrung_elektronisch = Value End Set End Property Public Property [iAufbewahrung_phaysisch]() As SqlInt32 Get Return m_iAufbewahrung_phaysisch End Get Set(ByVal Value As SqlInt32) m_iAufbewahrung_phaysisch = Value End Set End Property Public Property [iIn_edoka_datenbank]() As SqlInt32 Get Return m_iIn_edoka_datenbank End Get Set(ByVal Value As SqlInt32) m_iIn_edoka_datenbank = Value End Set End Property Public Property [iBearbeitung_nach_abschluss]() As SqlInt32 Get Return m_iBearbeitung_nach_abschluss End Get Set(ByVal Value As SqlInt32) m_iBearbeitung_nach_abschluss = Value End Set End Property Public Property [sColdfolder]() As SqlString Get Return m_sColdfolder End Get Set(ByVal Value As SqlString) m_sColdfolder = Value End Set End Property Public Property [sColdschema]() As SqlString Get Return m_sColdschema End Get Set(ByVal Value As SqlString) m_sColdschema = Value End Set End Property Public Property [daErinnerungam]() As SqlDateTime Get Return m_daErinnerungam End Get Set(ByVal Value As SqlDateTime) m_daErinnerungam = Value End Set End Property Public Property [sFANummer1]() As SqlString Get Return m_sFANummer1 End Get Set(ByVal Value As SqlString) m_sFANummer1 = Value End Set End Property Public Property [sFANummer2]() As SqlString Get Return m_sFANummer2 End Get Set(ByVal Value As SqlString) m_sFANummer2 = Value End Set End Property Public Property [bFapartnerwechsel]() As SqlBoolean Get Return m_bFapartnerwechsel End Get Set(ByVal Value As SqlBoolean) m_bFapartnerwechsel = Value End Set End Property Public Property [bFAStatuswechsel]() As SqlBoolean Get Return m_bFAStatuswechsel End Get Set(ByVal Value As SqlBoolean) m_bFAStatuswechsel = Value End Set End Property Public Property [bFAVerantwortlicherwechsel]() As SqlBoolean Get Return m_bFAVerantwortlicherwechsel End Get Set(ByVal Value As SqlBoolean) m_bFAVerantwortlicherwechsel = Value End Set End Property Public Property [sBedRDokumentid]() As SqlString Get Return m_sBedRDokumentid End Get Set(ByVal Value As SqlString) m_sBedRDokumentid = Value End Set End Property Public Property [bBedRRetourniert]() As SqlBoolean Get Return m_bBedRRetourniert End Get Set(ByVal Value As SqlBoolean) m_bBedRRetourniert = Value End Set End Property Public Property [iBRVernichtungnachTagen]() As SqlInt32 Get Return m_iBRVernichtungnachTagen End Get Set(ByVal Value As SqlInt32) m_iBRVernichtungnachTagen = Value End Set End Property Public Property [bOfficedokumentgeloescht]() As SqlBoolean Get Return m_bOfficedokumentgeloescht End Get Set(ByVal Value As SqlBoolean) m_bOfficedokumentgeloescht = Value End Set End Property Public Property [sFanummer3]() As SqlString Get Return m_sFanummer3 End Get Set(ByVal Value As SqlString) m_sFanummer3 = Value End Set End Property Public Property [sVvnr]() As SqlString Get Return m_sVvnr End Get Set(ByVal Value As SqlString) m_sVvnr = Value End Set End Property Public Property [iAnzeigeStatus]() As SqlInt32 Get Return m_iAnzeigeStatus End Get Set(ByVal Value As SqlInt32) m_iAnzeigeStatus = Value End Set End Property Public Property [bBl_scan]() As SqlBoolean Get Return m_bBl_scan End Get Set(ByVal Value As SqlBoolean) m_bBl_scan = Value End Set End Property Public Property [bBldossier]() As SqlBoolean Get Return m_bBldossier End Get Set(ByVal Value As SqlBoolean) m_bBldossier = Value End Set End Property #End Region End Class End Namespace