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.
1351 lines
64 KiB
1351 lines
64 KiB
' ///////////////////////////////////////////////////////////////////////////
|
|
' // Description: Data Access class for the table 'tmpdokument'
|
|
' // Generated by LLBLGen v1.2.1045.38210 Final on: Mittwoch, 16. April 2003, 23:38:52
|
|
' // 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 'tmpdokument'.
|
|
' /// </summary>
|
|
Public Class clsTmpdokument
|
|
Inherits clsDBInteractionBase
|
|
|
|
#Region " Class Member Declarations "
|
|
|
|
Private m_bGesperrt, m_bUnvollstaendig, m_bZu_retournieren, m_bAusgangsarchiviert, m_bAuserstuebernahme, m_bBereit_zur_archivierung, m_bAmsdokument, m_bEingangsarchiviert, m_bZustaendig_kube, m_bVertraulich, m_bAktiv As SqlBoolean
|
|
Private m_daGesperrtam, m_daErstellungsdatum, m_daTermin, m_daArchivierungsdatum, m_daMutiertam, m_daDatum_eingangsarchivierung, m_daErstelltam, m_daDatum_ausgangsarchivierung As SqlDateTime
|
|
Private m_iStatus_edoka_batch_eingang, m_iStatus_edoka_batch_ausgang, m_iUnterschriftrechts, m_iUnterschriftlinks, m_iStatusnr, m_iPostzustellung, m_iBarcodenr, m_iColdstatus, m_iZustaendiger, m_iVerantwortlich, m_iMa_eingangsarchivierung, m_iMutierer, m_iErstellerteam, m_iGesperrt_durch, m_iMutiererteam, m_iMitarbeiternr1, m_iMitarbeiternr, m_iErsteller, m_iNrpar00, m_iDokumenttypnr, m_iMa_ausgangsarchivierung As SqlInt32
|
|
Private m_sZustelladresse, m_sDokumentidn, m_sDokumentid, m_sBemerkunguvm, m_sLoeschgrund, m_sColddokumentid, m_sSpeicherort, m_sBezeichnung, m_sDokumentname, m_sVersandadresse, m_sBemerkung 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>iMutiererteam. 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>
|
|
' /// </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_tmpdokument_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("@imutiererteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutiererteam))
|
|
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("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
|
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Open connection.
|
|
m_scoMainConnection.Open()
|
|
Else
|
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
|
End If
|
|
End If
|
|
|
|
' // Execute query.
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_tmpdokument_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("clsTmpdokument::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>iMutiererteam. 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>
|
|
' /// </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_tmpdokument_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("@imutiererteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutiererteam))
|
|
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("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
|
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Open connection.
|
|
m_scoMainConnection.Open()
|
|
Else
|
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
|
End If
|
|
End If
|
|
|
|
' // Execute query.
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_tmpdokument_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("clsTmpdokument::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>
|
|
Public Overrides Function Delete() As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_tmpdokument_Delete]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
|
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Open connection.
|
|
m_scoMainConnection.Open()
|
|
Else
|
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
|
End If
|
|
End If
|
|
|
|
' // Execute query.
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_tmpdokument_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("clsTmpdokument::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>iMutiererteam</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>
|
|
' /// </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_tmpdokument_SelectOne]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = new DataTable("tmpdokument")
|
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
|
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Open connection.
|
|
m_scoMainConnection.Open()
|
|
Else
|
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
|
End If
|
|
End If
|
|
|
|
' // Execute query.
|
|
sdaAdapter.Fill(dtToReturn)
|
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_tmpdokument_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)("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)("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
|
|
End If
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("clsTmpdokument::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>
|
|
Public Overrides Function SelectAll() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_tmpdokument_SelectAll]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable("tmpdokument")
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
|
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Open connection.
|
|
m_scoMainConnection.Open()
|
|
Else
|
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
|
End If
|
|
End If
|
|
|
|
' // Execute query.
|
|
sdaAdapter.Fill(dtToReturn)
|
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_tmpdokument_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("clsTmpdokument::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 [iMutiererteam]() As SqlInt32
|
|
Get
|
|
Return m_iMutiererteam
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iMutiererteam = 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
|
|
|
|
#End Region
|
|
|
|
End Class
|
|
End Namespace
|