shu
/
EDKB09_DMS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
EDKB09_DMS/DB/clsDokument.vb

1891 lines
86 KiB
Raw Permalink Blame History

' ///////////////////////////////////////////////////////////////////////////
' // 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
' /// <summary>
' /// Purpose: Data Access class for the table 'dokument'.
' /// </summary>
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
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Nothing for now.
End Sub
' /// <summary>
' /// Purpose: Insert method. This method will insert one new row into the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sDokumentid</LI>
' /// <LI>iMitarbeiternr. May be SqlInt32.Null</LI>
' /// <LI>iMitarbeiternr1. May be SqlInt32.Null</LI>
' /// <LI>iNrpar00. May be SqlInt32.Null</LI>
' /// <LI>sDokumentidn. May be SqlString.Null</LI>
' /// <LI>sDokumentname. May be SqlString.Null</LI>
' /// <LI>iErsteller. May be SqlInt32.Null</LI>
' /// <LI>iErstellerteam. May be SqlInt32.Null</LI>
' /// <LI>daErstelltam. May be SqlDateTime.Null</LI>
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
' /// <LI>iMutierertieam. May be SqlInt32.Null</LI>
' /// <LI>daMutiertam. May be SqlDateTime.Null</LI>
' /// <LI>sSpeicherort. May be SqlString.Null</LI>
' /// <LI>bGesperrt. May be SqlBoolean.Null</LI>
' /// <LI>iGesperrt_durch. May be SqlInt32.Null</LI>
' /// <LI>daGesperrtam. May be SqlDateTime.Null</LI>
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
' /// <LI>sBemerkung. May be SqlString.Null</LI>
' /// <LI>bAuserstuebernahme. May be SqlBoolean.Null</LI>
' /// <LI>iDokumenttypnr. May be SqlInt32.Null</LI>
' /// <LI>bUnvollstaendig. May be SqlBoolean.Null</LI>
' /// <LI>sBemerkunguvm. May be SqlString.Null</LI>
' /// <LI>bBereit_zur_archivierung. May be SqlBoolean.Null</LI>
' /// <LI>bAusgangsarchiviert. May be SqlBoolean.Null</LI>
' /// <LI>daDatum_ausgangsarchivierung. May be SqlDateTime.Null</LI>
' /// <LI>iMa_ausgangsarchivierung. May be SqlInt32.Null</LI>
' /// <LI>bZu_retournieren. May be SqlBoolean.Null</LI>
' /// <LI>bEingangsarchiviert. May be SqlBoolean.Null</LI>
' /// <LI>daDatum_eingangsarchivierung. May be SqlDateTime.Null</LI>
' /// <LI>iMa_eingangsarchivierung. May be SqlInt32.Null</LI>
' /// <LI>iStatus_edoka_batch_ausgang. May be SqlInt32.Null</LI>
' /// <LI>iStatus_edoka_batch_eingang. May be SqlInt32.Null</LI>
' /// <LI>sLoeschgrund. May be SqlString.Null</LI>
' /// <LI>iColdstatus. May be SqlInt32.Null</LI>
' /// <LI>sVersandadresse. May be SqlString.Null</LI>
' /// <LI>iBarcodenr. May be SqlInt32.Null</LI>
' /// <LI>sColddokumentid. May be SqlString.Null</LI>
' /// <LI>bAmsdokument. May be SqlBoolean.Null</LI>
' /// <LI>iVerantwortlich. May be SqlInt32.Null</LI>
' /// <LI>iZustaendiger. May be SqlInt32.Null</LI>
' /// <LI>iUnterschriftlinks. May be SqlInt32.Null</LI>
' /// <LI>iUnterschriftrechts. May be SqlInt32.Null</LI>
' /// <LI>iPostzustellung. May be SqlInt32.Null</LI>
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
' /// <LI>iStatusnr. May be SqlInt32.Null</LI>
' /// <LI>bZustaendig_kube. May be SqlBoolean.Null</LI>
' /// <LI>sZustelladresse. May be SqlString.Null</LI>
' /// <LI>bVertraulich. May be SqlBoolean.Null</LI>
' /// <LI>daErstellungsdatum. May be SqlDateTime.Null</LI>
' /// <LI>daArchivierungsdatum. May be SqlDateTime.Null</LI>
' /// <LI>daTermin. May be SqlDateTime.Null</LI>
' /// <LI>iMutiererteam. May be SqlInt32.Null</LI>
' /// <LI>sAnredezustelladresse. May be SqlString.Null</LI>
' /// <LI>iDokdurchkubeweitergegeben. May be SqlInt32.Null</LI>
' /// <LI>iBck. May be SqlInt32.Null</LI>
' /// <LI>iBearbeitungszeit_in_minuten. May be SqlInt32.Null</LI>
' /// <LI>iMonierung_in_tagen. May be SqlInt32.Null</LI>
' /// <LI>iAufbewahrung_elektronisch. May be SqlInt32.Null</LI>
' /// <LI>iAufbewahrung_phaysisch. May be SqlInt32.Null</LI>
' /// <LI>iIn_edoka_datenbank. May be SqlInt32.Null</LI>
' /// <LI>iBearbeitung_nach_abschluss. May be SqlInt32.Null</LI>
' /// <LI>sColdfolder. May be SqlString.Null</LI>
' /// <LI>sColdschema. May be SqlString.Null</LI>
' /// <LI>daErinnerungam. May be SqlDateTime.Null</LI>
' /// <LI>sFANummer1. May be SqlString.Null</LI>
' /// <LI>sFANummer2. May be SqlString.Null</LI>
' /// <LI>bFapartnerwechsel. May be SqlBoolean.Null</LI>
' /// <LI>bFAStatuswechsel. May be SqlBoolean.Null</LI>
' /// <LI>bFAVerantwortlicherwechsel. May be SqlBoolean.Null</LI>
' /// <LI>sBedRDokumentid. May be SqlString.Null</LI>
' /// <LI>bBedRRetourniert. May be SqlBoolean.Null</LI>
' /// <LI>iBRVernichtungnachTagen. May be SqlInt32.Null</LI>
' /// <LI>bOfficedokumentgeloescht. May be SqlBoolean.Null</LI>
' /// <LI>sFanummer3. May be SqlString.Null</LI>
' /// <LI>sVvnr. May be SqlString.Null</LI>
' /// <LI>iAnzeigeStatus. May be SqlInt32.Null</LI>
' /// <LI>bBl_scan. May be SqlBoolean.Null</LI>
' /// <LI>bBldossier. May be SqlBoolean.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
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
' /// <summary>
' /// Purpose: Update method. This method will Update one existing row in the database.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sDokumentid</LI>
' /// <LI>iMitarbeiternr. May be SqlInt32.Null</LI>
' /// <LI>iMitarbeiternr1. May be SqlInt32.Null</LI>
' /// <LI>iNrpar00. May be SqlInt32.Null</LI>
' /// <LI>sDokumentidn. May be SqlString.Null</LI>
' /// <LI>sDokumentname. May be SqlString.Null</LI>
' /// <LI>iErsteller. May be SqlInt32.Null</LI>
' /// <LI>iErstellerteam. May be SqlInt32.Null</LI>
' /// <LI>daErstelltam. May be SqlDateTime.Null</LI>
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
' /// <LI>iMutierertieam. May be SqlInt32.Null</LI>
' /// <LI>daMutiertam. May be SqlDateTime.Null</LI>
' /// <LI>sSpeicherort. May be SqlString.Null</LI>
' /// <LI>bGesperrt. May be SqlBoolean.Null</LI>
' /// <LI>iGesperrt_durch. May be SqlInt32.Null</LI>
' /// <LI>daGesperrtam. May be SqlDateTime.Null</LI>
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
' /// <LI>sBemerkung. May be SqlString.Null</LI>
' /// <LI>bAuserstuebernahme. May be SqlBoolean.Null</LI>
' /// <LI>iDokumenttypnr. May be SqlInt32.Null</LI>
' /// <LI>bUnvollstaendig. May be SqlBoolean.Null</LI>
' /// <LI>sBemerkunguvm. May be SqlString.Null</LI>
' /// <LI>bBereit_zur_archivierung. May be SqlBoolean.Null</LI>
' /// <LI>bAusgangsarchiviert. May be SqlBoolean.Null</LI>
' /// <LI>daDatum_ausgangsarchivierung. May be SqlDateTime.Null</LI>
' /// <LI>iMa_ausgangsarchivierung. May be SqlInt32.Null</LI>
' /// <LI>bZu_retournieren. May be SqlBoolean.Null</LI>
' /// <LI>bEingangsarchiviert. May be SqlBoolean.Null</LI>
' /// <LI>daDatum_eingangsarchivierung. May be SqlDateTime.Null</LI>
' /// <LI>iMa_eingangsarchivierung. May be SqlInt32.Null</LI>
' /// <LI>iStatus_edoka_batch_ausgang. May be SqlInt32.Null</LI>
' /// <LI>iStatus_edoka_batch_eingang. May be SqlInt32.Null</LI>
' /// <LI>sLoeschgrund. May be SqlString.Null</LI>
' /// <LI>iColdstatus. May be SqlInt32.Null</LI>
' /// <LI>sVersandadresse. May be SqlString.Null</LI>
' /// <LI>iBarcodenr. May be SqlInt32.Null</LI>
' /// <LI>sColddokumentid. May be SqlString.Null</LI>
' /// <LI>bAmsdokument. May be SqlBoolean.Null</LI>
' /// <LI>iVerantwortlich. May be SqlInt32.Null</LI>
' /// <LI>iZustaendiger. May be SqlInt32.Null</LI>
' /// <LI>iUnterschriftlinks. May be SqlInt32.Null</LI>
' /// <LI>iUnterschriftrechts. May be SqlInt32.Null</LI>
' /// <LI>iPostzustellung. May be SqlInt32.Null</LI>
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
' /// <LI>iStatusnr. May be SqlInt32.Null</LI>
' /// <LI>bZustaendig_kube. May be SqlBoolean.Null</LI>
' /// <LI>sZustelladresse. May be SqlString.Null</LI>
' /// <LI>bVertraulich. May be SqlBoolean.Null</LI>
' /// <LI>daErstellungsdatum. May be SqlDateTime.Null</LI>
' /// <LI>daArchivierungsdatum. May be SqlDateTime.Null</LI>
' /// <LI>daTermin. May be SqlDateTime.Null</LI>
' /// <LI>iMutiererteam. May be SqlInt32.Null</LI>
' /// <LI>sAnredezustelladresse. May be SqlString.Null</LI>
' /// <LI>iDokdurchkubeweitergegeben. May be SqlInt32.Null</LI>
' /// <LI>iBck. May be SqlInt32.Null</LI>
' /// <LI>iBearbeitungszeit_in_minuten. May be SqlInt32.Null</LI>
' /// <LI>iMonierung_in_tagen. May be SqlInt32.Null</LI>
' /// <LI>iAufbewahrung_elektronisch. May be SqlInt32.Null</LI>
' /// <LI>iAufbewahrung_phaysisch. May be SqlInt32.Null</LI>
' /// <LI>iIn_edoka_datenbank. May be SqlInt32.Null</LI>
' /// <LI>iBearbeitung_nach_abschluss. May be SqlInt32.Null</LI>
' /// <LI>sColdfolder. May be SqlString.Null</LI>
' /// <LI>sColdschema. May be SqlString.Null</LI>
' /// <LI>daErinnerungam. May be SqlDateTime.Null</LI>
' /// <LI>sFANummer1. May be SqlString.Null</LI>
' /// <LI>sFANummer2. May be SqlString.Null</LI>
' /// <LI>bFapartnerwechsel. May be SqlBoolean.Null</LI>
' /// <LI>bFAStatuswechsel. May be SqlBoolean.Null</LI>
' /// <LI>bFAVerantwortlicherwechsel. May be SqlBoolean.Null</LI>
' /// <LI>sBedRDokumentid. May be SqlString.Null</LI>
' /// <LI>bBedRRetourniert. May be SqlBoolean.Null</LI>
' /// <LI>iBRVernichtungnachTagen. May be SqlInt32.Null</LI>
' /// <LI>bOfficedokumentgeloescht. May be SqlBoolean.Null</LI>
' /// <LI>sFanummer3. May be SqlString.Null</LI>
' /// <LI>sVvnr. May be SqlString.Null</LI>
' /// <LI>iAnzeigeStatus. May be SqlInt32.Null</LI>
' /// <LI>bBl_scan. May be SqlBoolean.Null</LI>
' /// <LI>bBldossier. May be SqlBoolean.Null</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
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
' /// <summary>
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
' /// </summary>
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sDokumentid</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
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
' /// <summary>
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
' /// </summary>
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties needed for this method:
' /// <UL>
' /// <LI>sDokumentid</LI>
' /// </UL>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// <LI>sDokumentid</LI>
' /// <LI>iMitarbeiternr</LI>
' /// <LI>iMitarbeiternr1</LI>
' /// <LI>iNrpar00</LI>
' /// <LI>sDokumentidn</LI>
' /// <LI>sDokumentname</LI>
' /// <LI>iErsteller</LI>
' /// <LI>iErstellerteam</LI>
' /// <LI>daErstelltam</LI>
' /// <LI>iMutierer</LI>
' /// <LI>iMutierertieam</LI>
' /// <LI>daMutiertam</LI>
' /// <LI>sSpeicherort</LI>
' /// <LI>bGesperrt</LI>
' /// <LI>iGesperrt_durch</LI>
' /// <LI>daGesperrtam</LI>
' /// <LI>sBezeichnung</LI>
' /// <LI>sBemerkung</LI>
' /// <LI>bAuserstuebernahme</LI>
' /// <LI>iDokumenttypnr</LI>
' /// <LI>bUnvollstaendig</LI>
' /// <LI>sBemerkunguvm</LI>
' /// <LI>bBereit_zur_archivierung</LI>
' /// <LI>bAusgangsarchiviert</LI>
' /// <LI>daDatum_ausgangsarchivierung</LI>
' /// <LI>iMa_ausgangsarchivierung</LI>
' /// <LI>bZu_retournieren</LI>
' /// <LI>bEingangsarchiviert</LI>
' /// <LI>daDatum_eingangsarchivierung</LI>
' /// <LI>iMa_eingangsarchivierung</LI>
' /// <LI>iStatus_edoka_batch_ausgang</LI>
' /// <LI>iStatus_edoka_batch_eingang</LI>
' /// <LI>sLoeschgrund</LI>
' /// <LI>iColdstatus</LI>
' /// <LI>sVersandadresse</LI>
' /// <LI>iBarcodenr</LI>
' /// <LI>sColddokumentid</LI>
' /// <LI>bAmsdokument</LI>
' /// <LI>iVerantwortlich</LI>
' /// <LI>iZustaendiger</LI>
' /// <LI>iUnterschriftlinks</LI>
' /// <LI>iUnterschriftrechts</LI>
' /// <LI>iPostzustellung</LI>
' /// <LI>bAktiv</LI>
' /// <LI>iStatusnr</LI>
' /// <LI>bZustaendig_kube</LI>
' /// <LI>sZustelladresse</LI>
' /// <LI>bVertraulich</LI>
' /// <LI>daErstellungsdatum</LI>
' /// <LI>daArchivierungsdatum</LI>
' /// <LI>daTermin</LI>
' /// <LI>iMutiererteam</LI>
' /// <LI>sAnredezustelladresse</LI>
' /// <LI>iDokdurchkubeweitergegeben</LI>
' /// <LI>iBck</LI>
' /// <LI>iBearbeitungszeit_in_minuten</LI>
' /// <LI>iMonierung_in_tagen</LI>
' /// <LI>iAufbewahrung_elektronisch</LI>
' /// <LI>iAufbewahrung_phaysisch</LI>
' /// <LI>iIn_edoka_datenbank</LI>
' /// <LI>iBearbeitung_nach_abschluss</LI>
' /// <LI>sColdfolder</LI>
' /// <LI>sColdschema</LI>
' /// <LI>daErinnerungam</LI>
' /// <LI>sFANummer1</LI>
' /// <LI>sFANummer2</LI>
' /// <LI>bFapartnerwechsel</LI>
' /// <LI>bFAStatuswechsel</LI>
' /// <LI>bFAVerantwortlicherwechsel</LI>
' /// <LI>sBedRDokumentid</LI>
' /// <LI>bBedRRetourniert</LI>
' /// <LI>iBRVernichtungnachTagen</LI>
' /// <LI>bOfficedokumentgeloescht</LI>
' /// <LI>sFanummer3</LI>
' /// <LI>sVvnr</LI>
' /// <LI>iAnzeigeStatus</LI>
' /// <LI>bBl_scan</LI>
' /// <LI>bBldossier</LI>
' /// </UL>
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
' /// </remarks>
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
' /// <summary>
' /// Purpose: SelectAll method. This method will Select all rows from the table.
' /// </summary>
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
' /// <remarks>
' /// Properties set after a succesful call of this method:
' /// <UL>
' /// <LI>iErrorCode</LI>
' /// </UL>
' /// </remarks>
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
Reference in new issue View Git Blame Copy Permalink