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.
1531 lines
74 KiB
1531 lines
74 KiB
' ///////////////////////////////////////////////////////////////////////////
|
|
' // Description: Data Access class for the table 'dokumenttyp'
|
|
' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 16. Oktober 2005, 22:34:03
|
|
' // 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 'dokumenttyp'.
|
|
' /// </summary>
|
|
Public Class clsDokumenttyp
|
|
Inherits clsDBInteractionBase
|
|
|
|
#Region " Class Member Declarations "
|
|
|
|
Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean
|
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
|
Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32
|
|
Private m_sHostdokumenttyp, m_sBezeichnung, m_sBeschreibung 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>iDokumenttypnr</LI>
|
|
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
|
|
' /// <LI>sBeschreibung. May be SqlString.Null</LI>
|
|
' /// <LI>bZu_vercolden</LI>
|
|
' /// <LI>bZu_retournieren</LI>
|
|
' /// <LI>bEingang_ersetzt_ausgang</LI>
|
|
' /// <LI>bWird_importiert</LI>
|
|
' /// <LI>iAnzahl_tage</LI>
|
|
' /// <LI>iDbearbeitungszeit</LI>
|
|
' /// <LI>iTage_mutation</LI>
|
|
' /// <LI>bPartnersaldierung_statusalt</LI>
|
|
' /// <LI>bWird_nicht_geloescht</LI>
|
|
' /// <LI>bVertrauliches_dokument</LI>
|
|
' /// <LI>bUnterschrift_links</LI>
|
|
' /// <LI>bUnterschrift_rechts</LI>
|
|
' /// <LI>iMonate_bis_zur_archivierung</LI>
|
|
' /// <LI>iAufbewahrungsfrist_elektronisch</LI>
|
|
' /// <LI>iAufbewahrungsfrist_physisch</LI>
|
|
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
|
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
|
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
|
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
|
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
|
' /// <LI>iOffice_vorlagenr. May be SqlInt32.Null</LI>
|
|
' /// <LI>iDokumentart_kundendossier. May be SqlInt32.Null</LI>
|
|
' /// <LI>iDokumentart_neuerstellung. May be SqlInt32.Null</LI>
|
|
' /// <LI>iDokumentart_retournierung. May be SqlInt32.Null</LI>
|
|
' /// <LI>iDokumentart_coldausgang</LI>
|
|
' /// <LI>iDokumentart_coldeingang</LI>
|
|
' /// <LI>iDokumentart_host. May be SqlInt32.Null</LI>
|
|
' /// <LI>iDokumentart_weitere. May be SqlInt32.Null</LI>
|
|
' /// <LI>iDokumentart_nativ. May be SqlInt32.Null</LI>
|
|
' /// <LI>iProzessnr. May be SqlInt32.Null</LI>
|
|
' /// <LI>iProzessnr1. May be SqlInt32.Null</LI>
|
|
' /// <LI>bAmsdokument</LI>
|
|
' /// <LI>bHostdokument. May be SqlBoolean.Null</LI>
|
|
' /// <LI>sHostdokumenttyp. May be SqlString.Null</LI>
|
|
' /// <LI>iCold_folder. May be SqlInt32.Null</LI>
|
|
' /// <LI>iPhysisches_archiv. May be SqlInt32.Null</LI>
|
|
' /// <LI>iDokumentstatus. May be SqlInt32.Null</LI>
|
|
' /// <LI>bDokument_wird_erstellt. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bDokument_wird_retourniert. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bCold_ersetzen. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bEmail_versand. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bFunktionen_zuweisen. May be SqlBoolean.Null</LI>
|
|
' /// <LI>iDokumentstatus_barcode. May be SqlInt32.Null</LI>
|
|
' /// <LI>bNurnative. May be SqlBoolean.Null</LI>
|
|
' /// <LI>iOwner. May be SqlInt32.Null</LI>
|
|
' /// <LI>bVertrag. May be SqlBoolean.Null</LI>
|
|
' /// <LI>iObjektbezeichnungnr. May be SqlInt32.Null</LI>
|
|
' /// <LI>bBedingtretournierbar. May be SqlBoolean.Null</LI>
|
|
' /// <LI>iDoktypbedingteretournierung. May be SqlInt32.Null</LI>
|
|
' /// <LI>iTagebisvernichtungbedingteretournierung. May be SqlInt32.Null</LI>
|
|
' /// <LI>bAnzeigeZurDokumenterstellung. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bKundenDokument. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bSb. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bSbimport. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bSbedituser. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bSbnur. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bBezeichnungmut. 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_dokumenttyp_Insert]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_vercolden", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_vercolden))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_retournieren))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@beingang_ersetzt_ausgang", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bEingang_ersetzt_ausgang))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_importiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_importiert))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ianzahl_tage", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAnzahl_tage))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idbearbeitungszeit", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDbearbeitungszeit))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@itage_mutation", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iTage_mutation))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bpartnersaldierung_statusalt", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bPartnersaldierung_statusalt))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_nicht_geloescht", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_nicht_geloescht))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrauliches_dokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bVertrauliches_dokument))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_links", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_links))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_rechts", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_rechts))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imonate_bis_zur_archivierung", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMonate_bis_zur_archivierung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_elektronisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_elektronisch))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_physisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_physisch))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_kundendossier", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_kundendossier))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_neuerstellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_neuerstellung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_retournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_retournierung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldausgang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldausgang))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldeingang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldeingang))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_host))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_weitere", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_weitere))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_nativ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_nativ))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr1))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bamsdokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bAmsdokument))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bhostdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bHostdokument))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdokumenttyp", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdokumenttyp))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@icold_folder", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iCold_folder))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iphysisches_archiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPhysisches_archiv))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_erstellt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_erstellt))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_retourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_retourniert))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bcold_ersetzen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bCold_ersetzen))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bemail_versand", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEmail_versand))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bfunktionen_zuweisen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFunktionen_zuweisen))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus_barcode", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus_barcode))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bnurnative", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bNurnative))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iOwner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOwner))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrag", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bVertrag))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iobjektbezeichnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iObjektbezeichnungnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bbedingtretournierbar", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBedingtretournierbar))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idoktypbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDoktypbedingteretournierung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@itagebisvernichtungbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTagebisvernichtungbedingteretournierung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAnzeigeZurDokumenterstellung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAnzeigeZurDokumenterstellung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bKundenDokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bKundenDokument))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bsb", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSb))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbimport", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSbimport))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbedituser", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSbedituser))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbnur", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSbnur))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bbezeichnungmut", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBezeichnungmut))
|
|
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_dokumenttyp_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("clsDokumenttyp::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>iDokumenttypnr</LI>
|
|
' /// <LI>sBezeichnung. May be SqlString.Null</LI>
|
|
' /// <LI>sBeschreibung. May be SqlString.Null</LI>
|
|
' /// <LI>bZu_vercolden</LI>
|
|
' /// <LI>bZu_retournieren</LI>
|
|
' /// <LI>bEingang_ersetzt_ausgang</LI>
|
|
' /// <LI>bWird_importiert</LI>
|
|
' /// <LI>iAnzahl_tage</LI>
|
|
' /// <LI>iDbearbeitungszeit</LI>
|
|
' /// <LI>iTage_mutation</LI>
|
|
' /// <LI>bPartnersaldierung_statusalt</LI>
|
|
' /// <LI>bWird_nicht_geloescht</LI>
|
|
' /// <LI>bVertrauliches_dokument</LI>
|
|
' /// <LI>bUnterschrift_links</LI>
|
|
' /// <LI>bUnterschrift_rechts</LI>
|
|
' /// <LI>iMonate_bis_zur_archivierung</LI>
|
|
' /// <LI>iAufbewahrungsfrist_elektronisch</LI>
|
|
' /// <LI>iAufbewahrungsfrist_physisch</LI>
|
|
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
|
' /// <LI>bAktiv. May be SqlBoolean.Null</LI>
|
|
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
|
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
|
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
|
' /// <LI>iOffice_vorlagenr. May be SqlInt32.Null</LI>
|
|
' /// <LI>iDokumentart_kundendossier. May be SqlInt32.Null</LI>
|
|
' /// <LI>iDokumentart_neuerstellung. May be SqlInt32.Null</LI>
|
|
' /// <LI>iDokumentart_retournierung. May be SqlInt32.Null</LI>
|
|
' /// <LI>iDokumentart_coldausgang</LI>
|
|
' /// <LI>iDokumentart_coldeingang</LI>
|
|
' /// <LI>iDokumentart_host. May be SqlInt32.Null</LI>
|
|
' /// <LI>iDokumentart_weitere. May be SqlInt32.Null</LI>
|
|
' /// <LI>iDokumentart_nativ. May be SqlInt32.Null</LI>
|
|
' /// <LI>iProzessnr. May be SqlInt32.Null</LI>
|
|
' /// <LI>iProzessnr1. May be SqlInt32.Null</LI>
|
|
' /// <LI>bAmsdokument</LI>
|
|
' /// <LI>bHostdokument. May be SqlBoolean.Null</LI>
|
|
' /// <LI>sHostdokumenttyp. May be SqlString.Null</LI>
|
|
' /// <LI>iCold_folder. May be SqlInt32.Null</LI>
|
|
' /// <LI>iPhysisches_archiv. May be SqlInt32.Null</LI>
|
|
' /// <LI>iDokumentstatus. May be SqlInt32.Null</LI>
|
|
' /// <LI>bDokument_wird_erstellt. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bDokument_wird_retourniert. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bCold_ersetzen. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bEmail_versand. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bFunktionen_zuweisen. May be SqlBoolean.Null</LI>
|
|
' /// <LI>iDokumentstatus_barcode. May be SqlInt32.Null</LI>
|
|
' /// <LI>bNurnative. May be SqlBoolean.Null</LI>
|
|
' /// <LI>iOwner. May be SqlInt32.Null</LI>
|
|
' /// <LI>bVertrag. May be SqlBoolean.Null</LI>
|
|
' /// <LI>iObjektbezeichnungnr. May be SqlInt32.Null</LI>
|
|
' /// <LI>bBedingtretournierbar. May be SqlBoolean.Null</LI>
|
|
' /// <LI>iDoktypbedingteretournierung. May be SqlInt32.Null</LI>
|
|
' /// <LI>iTagebisvernichtungbedingteretournierung. May be SqlInt32.Null</LI>
|
|
' /// <LI>bAnzeigeZurDokumenterstellung. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bKundenDokument. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bSb. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bSbimport. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bSbedituser. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bSbnur. May be SqlBoolean.Null</LI>
|
|
' /// <LI>bBezeichnungmut. 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_dokumenttyp_Update]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_vercolden", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_vercolden))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_retournieren))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@beingang_ersetzt_ausgang", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bEingang_ersetzt_ausgang))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_importiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_importiert))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ianzahl_tage", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAnzahl_tage))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idbearbeitungszeit", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDbearbeitungszeit))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@itage_mutation", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iTage_mutation))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bpartnersaldierung_statusalt", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bPartnersaldierung_statusalt))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_nicht_geloescht", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_nicht_geloescht))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrauliches_dokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bVertrauliches_dokument))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_links", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_links))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_rechts", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_rechts))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imonate_bis_zur_archivierung", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMonate_bis_zur_archivierung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_elektronisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_elektronisch))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_physisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_physisch))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_kundendossier", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_kundendossier))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_neuerstellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_neuerstellung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_retournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_retournierung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldausgang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldausgang))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldeingang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldeingang))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_host))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_weitere", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_weitere))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_nativ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_nativ))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr1))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bamsdokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bAmsdokument))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bhostdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bHostdokument))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdokumenttyp", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdokumenttyp))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@icold_folder", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iCold_folder))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iphysisches_archiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPhysisches_archiv))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_erstellt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_erstellt))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_retourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_retourniert))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bcold_ersetzen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bCold_ersetzen))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bemail_versand", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEmail_versand))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bfunktionen_zuweisen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFunktionen_zuweisen))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus_barcode", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus_barcode))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bnurnative", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bNurnative))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iOwner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOwner))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrag", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bVertrag))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iobjektbezeichnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iObjektbezeichnungnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bbedingtretournierbar", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBedingtretournierbar))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idoktypbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDoktypbedingteretournierung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@itagebisvernichtungbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTagebisvernichtungbedingteretournierung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAnzeigeZurDokumenterstellung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAnzeigeZurDokumenterstellung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bKundenDokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bKundenDokument))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bsb", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSb))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbimport", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSbimport))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbedituser", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSbedituser))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbnur", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSbnur))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bbezeichnungmut", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBezeichnungmut))
|
|
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_dokumenttyp_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("clsDokumenttyp::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>iDokumenttypnr</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_dokumenttyp_Delete]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
|
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Open connection.
|
|
m_scoMainConnection.Open()
|
|
Else
|
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
|
End If
|
|
End If
|
|
|
|
' // Execute query.
|
|
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_dokumenttyp_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("clsDokumenttyp::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>iDokumenttypnr</LI>
|
|
' /// </UL>
|
|
' /// Properties set after a succesful call of this method:
|
|
' /// <UL>
|
|
' /// <LI>iErrorCode</LI>
|
|
' /// <LI>iDokumenttypnr</LI>
|
|
' /// <LI>sBezeichnung</LI>
|
|
' /// <LI>sBeschreibung</LI>
|
|
' /// <LI>bZu_vercolden</LI>
|
|
' /// <LI>bZu_retournieren</LI>
|
|
' /// <LI>bEingang_ersetzt_ausgang</LI>
|
|
' /// <LI>bWird_importiert</LI>
|
|
' /// <LI>iAnzahl_tage</LI>
|
|
' /// <LI>iDbearbeitungszeit</LI>
|
|
' /// <LI>iTage_mutation</LI>
|
|
' /// <LI>bPartnersaldierung_statusalt</LI>
|
|
' /// <LI>bWird_nicht_geloescht</LI>
|
|
' /// <LI>bVertrauliches_dokument</LI>
|
|
' /// <LI>bUnterschrift_links</LI>
|
|
' /// <LI>bUnterschrift_rechts</LI>
|
|
' /// <LI>iMonate_bis_zur_archivierung</LI>
|
|
' /// <LI>iAufbewahrungsfrist_elektronisch</LI>
|
|
' /// <LI>iAufbewahrungsfrist_physisch</LI>
|
|
' /// <LI>iMandantnr</LI>
|
|
' /// <LI>bAktiv</LI>
|
|
' /// <LI>daErstellt_am</LI>
|
|
' /// <LI>daMutiert_am</LI>
|
|
' /// <LI>iMutierer</LI>
|
|
' /// <LI>iOffice_vorlagenr</LI>
|
|
' /// <LI>iDokumentart_kundendossier</LI>
|
|
' /// <LI>iDokumentart_neuerstellung</LI>
|
|
' /// <LI>iDokumentart_retournierung</LI>
|
|
' /// <LI>iDokumentart_coldausgang</LI>
|
|
' /// <LI>iDokumentart_coldeingang</LI>
|
|
' /// <LI>iDokumentart_host</LI>
|
|
' /// <LI>iDokumentart_weitere</LI>
|
|
' /// <LI>iDokumentart_nativ</LI>
|
|
' /// <LI>iProzessnr</LI>
|
|
' /// <LI>iProzessnr1</LI>
|
|
' /// <LI>bAmsdokument</LI>
|
|
' /// <LI>bHostdokument</LI>
|
|
' /// <LI>sHostdokumenttyp</LI>
|
|
' /// <LI>iCold_folder</LI>
|
|
' /// <LI>iPhysisches_archiv</LI>
|
|
' /// <LI>iDokumentstatus</LI>
|
|
' /// <LI>bDokument_wird_erstellt</LI>
|
|
' /// <LI>bDokument_wird_retourniert</LI>
|
|
' /// <LI>bCold_ersetzen</LI>
|
|
' /// <LI>bEmail_versand</LI>
|
|
' /// <LI>bFunktionen_zuweisen</LI>
|
|
' /// <LI>iDokumentstatus_barcode</LI>
|
|
' /// <LI>bNurnative</LI>
|
|
' /// <LI>iOwner</LI>
|
|
' /// <LI>bVertrag</LI>
|
|
' /// <LI>iObjektbezeichnungnr</LI>
|
|
' /// <LI>bBedingtretournierbar</LI>
|
|
' /// <LI>iDoktypbedingteretournierung</LI>
|
|
' /// <LI>iTagebisvernichtungbedingteretournierung</LI>
|
|
' /// <LI>bAnzeigeZurDokumenterstellung</LI>
|
|
' /// <LI>bKundenDokument</LI>
|
|
' /// <LI>bSb</LI>
|
|
' /// <LI>bSbimport</LI>
|
|
' /// <LI>bSbedituser</LI>
|
|
' /// <LI>bSbnur</LI>
|
|
' /// <LI>bBezeichnungmut</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_dokumenttyp_SelectOne]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = new DataTable("dokumenttyp")
|
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
|
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Open connection.
|
|
m_scoMainConnection.Open()
|
|
Else
|
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
|
End If
|
|
End If
|
|
|
|
' // Execute query.
|
|
sdaAdapter.Fill(dtToReturn)
|
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_dokumenttyp_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
|
End If
|
|
|
|
If dtToReturn.Rows.Count > 0 Then
|
|
m_iDokumenttypnr = New SqlInt32(CType(dtToReturn.Rows(0)("dokumenttypnr"), Integer))
|
|
If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then
|
|
m_sBezeichnung = SqlString.Null
|
|
Else
|
|
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("beschreibung") Is System.DBNull.Value Then
|
|
m_sBeschreibung = SqlString.Null
|
|
Else
|
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
|
|
End If
|
|
m_bZu_vercolden = New SqlBoolean(CType(dtToReturn.Rows(0)("zu_vercolden"), Boolean))
|
|
m_bZu_retournieren = New SqlBoolean(CType(dtToReturn.Rows(0)("zu_retournieren"), Boolean))
|
|
m_bEingang_ersetzt_ausgang = New SqlBoolean(CType(dtToReturn.Rows(0)("eingang_ersetzt_ausgang"), Boolean))
|
|
m_bWird_importiert = New SqlBoolean(CType(dtToReturn.Rows(0)("wird_importiert"), Boolean))
|
|
m_iAnzahl_tage = New SqlInt32(CType(dtToReturn.Rows(0)("anzahl_tage"), Integer))
|
|
m_iDbearbeitungszeit = New SqlInt32(CType(dtToReturn.Rows(0)("dbearbeitungszeit"), Integer))
|
|
m_iTage_mutation = New SqlInt32(CType(dtToReturn.Rows(0)("tage_mutation"), Integer))
|
|
m_bPartnersaldierung_statusalt = New SqlBoolean(CType(dtToReturn.Rows(0)("partnersaldierung_statusalt"), Boolean))
|
|
m_bWird_nicht_geloescht = New SqlBoolean(CType(dtToReturn.Rows(0)("wird_nicht_geloescht"), Boolean))
|
|
m_bVertrauliches_dokument = New SqlBoolean(CType(dtToReturn.Rows(0)("vertrauliches_dokument"), Boolean))
|
|
m_bUnterschrift_links = New SqlBoolean(CType(dtToReturn.Rows(0)("unterschrift_links"), Boolean))
|
|
m_bUnterschrift_rechts = New SqlBoolean(CType(dtToReturn.Rows(0)("unterschrift_rechts"), Boolean))
|
|
m_iMonate_bis_zur_archivierung = New SqlInt32(CType(dtToReturn.Rows(0)("monate_bis_zur_archivierung"), Integer))
|
|
m_iAufbewahrungsfrist_elektronisch = New SqlInt32(CType(dtToReturn.Rows(0)("aufbewahrungsfrist_elektronisch"), Integer))
|
|
m_iAufbewahrungsfrist_physisch = New SqlInt32(CType(dtToReturn.Rows(0)("aufbewahrungsfrist_physisch"), Integer))
|
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
|
m_iMandantnr = SqlInt32.Null
|
|
Else
|
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
|
m_bAktiv = SqlBoolean.Null
|
|
Else
|
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
|
m_daErstellt_am = SqlDateTime.Null
|
|
Else
|
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
|
End If
|
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
|
m_daMutiert_am = SqlDateTime.Null
|
|
Else
|
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
|
End If
|
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
|
m_iMutierer = SqlInt32.Null
|
|
Else
|
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("office_vorlagenr") Is System.DBNull.Value Then
|
|
m_iOffice_vorlagenr = SqlInt32.Null
|
|
Else
|
|
m_iOffice_vorlagenr = New SqlInt32(CType(dtToReturn.Rows(0)("office_vorlagenr"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("dokumentart_kundendossier") Is System.DBNull.Value Then
|
|
m_iDokumentart_kundendossier = SqlInt32.Null
|
|
Else
|
|
m_iDokumentart_kundendossier = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_kundendossier"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("dokumentart_neuerstellung") Is System.DBNull.Value Then
|
|
m_iDokumentart_neuerstellung = SqlInt32.Null
|
|
Else
|
|
m_iDokumentart_neuerstellung = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_neuerstellung"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("dokumentart_retournierung") Is System.DBNull.Value Then
|
|
m_iDokumentart_retournierung = SqlInt32.Null
|
|
Else
|
|
m_iDokumentart_retournierung = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_retournierung"), Integer))
|
|
End If
|
|
m_iDokumentart_coldausgang = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_coldausgang"), Integer))
|
|
m_iDokumentart_coldeingang = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_coldeingang"), Integer))
|
|
If dtToReturn.Rows(0)("dokumentart_host") Is System.DBNull.Value Then
|
|
m_iDokumentart_host = SqlInt32.Null
|
|
Else
|
|
m_iDokumentart_host = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_host"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("dokumentart_weitere") Is System.DBNull.Value Then
|
|
m_iDokumentart_weitere = SqlInt32.Null
|
|
Else
|
|
m_iDokumentart_weitere = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_weitere"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("dokumentart_nativ") Is System.DBNull.Value Then
|
|
m_iDokumentart_nativ = SqlInt32.Null
|
|
Else
|
|
m_iDokumentart_nativ = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_nativ"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("prozessnr") Is System.DBNull.Value Then
|
|
m_iProzessnr = SqlInt32.Null
|
|
Else
|
|
m_iProzessnr = New SqlInt32(CType(dtToReturn.Rows(0)("prozessnr"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("prozessnr1") Is System.DBNull.Value Then
|
|
m_iProzessnr1 = SqlInt32.Null
|
|
Else
|
|
m_iProzessnr1 = New SqlInt32(CType(dtToReturn.Rows(0)("prozessnr1"), Integer))
|
|
End If
|
|
m_bAmsdokument = New SqlBoolean(CType(dtToReturn.Rows(0)("amsdokument"), Boolean))
|
|
If dtToReturn.Rows(0)("hostdokument") Is System.DBNull.Value Then
|
|
m_bHostdokument = SqlBoolean.Null
|
|
Else
|
|
m_bHostdokument = New SqlBoolean(CType(dtToReturn.Rows(0)("hostdokument"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("hostdokumenttyp") Is System.DBNull.Value Then
|
|
m_sHostdokumenttyp = SqlString.Null
|
|
Else
|
|
m_sHostdokumenttyp = New SqlString(CType(dtToReturn.Rows(0)("hostdokumenttyp"), String))
|
|
End If
|
|
If dtToReturn.Rows(0)("cold_folder") Is System.DBNull.Value Then
|
|
m_iCold_folder = SqlInt32.Null
|
|
Else
|
|
m_iCold_folder = New SqlInt32(CType(dtToReturn.Rows(0)("cold_folder"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("physisches_archiv") Is System.DBNull.Value Then
|
|
m_iPhysisches_archiv = SqlInt32.Null
|
|
Else
|
|
m_iPhysisches_archiv = New SqlInt32(CType(dtToReturn.Rows(0)("physisches_archiv"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("dokumentstatus") Is System.DBNull.Value Then
|
|
m_iDokumentstatus = SqlInt32.Null
|
|
Else
|
|
m_iDokumentstatus = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentstatus"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("Dokument_wird_erstellt") Is System.DBNull.Value Then
|
|
m_bDokument_wird_erstellt = SqlBoolean.Null
|
|
Else
|
|
m_bDokument_wird_erstellt = New SqlBoolean(CType(dtToReturn.Rows(0)("Dokument_wird_erstellt"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("Dokument_wird_retourniert") Is System.DBNull.Value Then
|
|
m_bDokument_wird_retourniert = SqlBoolean.Null
|
|
Else
|
|
m_bDokument_wird_retourniert = New SqlBoolean(CType(dtToReturn.Rows(0)("Dokument_wird_retourniert"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("cold_ersetzen") Is System.DBNull.Value Then
|
|
m_bCold_ersetzen = SqlBoolean.Null
|
|
Else
|
|
m_bCold_ersetzen = New SqlBoolean(CType(dtToReturn.Rows(0)("cold_ersetzen"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("email_versand") Is System.DBNull.Value Then
|
|
m_bEmail_versand = SqlBoolean.Null
|
|
Else
|
|
m_bEmail_versand = New SqlBoolean(CType(dtToReturn.Rows(0)("email_versand"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("funktionen_zuweisen") Is System.DBNull.Value Then
|
|
m_bFunktionen_zuweisen = SqlBoolean.Null
|
|
Else
|
|
m_bFunktionen_zuweisen = New SqlBoolean(CType(dtToReturn.Rows(0)("funktionen_zuweisen"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("dokumentstatus_barcode") Is System.DBNull.Value Then
|
|
m_iDokumentstatus_barcode = SqlInt32.Null
|
|
Else
|
|
m_iDokumentstatus_barcode = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentstatus_barcode"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("nurnative") Is System.DBNull.Value Then
|
|
m_bNurnative = SqlBoolean.Null
|
|
Else
|
|
m_bNurnative = New SqlBoolean(CType(dtToReturn.Rows(0)("nurnative"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("Owner") Is System.DBNull.Value Then
|
|
m_iOwner = SqlInt32.Null
|
|
Else
|
|
m_iOwner = New SqlInt32(CType(dtToReturn.Rows(0)("Owner"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("vertrag") Is System.DBNull.Value Then
|
|
m_bVertrag = SqlBoolean.Null
|
|
Else
|
|
m_bVertrag = New SqlBoolean(CType(dtToReturn.Rows(0)("vertrag"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("objektbezeichnungnr") Is System.DBNull.Value Then
|
|
m_iObjektbezeichnungnr = SqlInt32.Null
|
|
Else
|
|
m_iObjektbezeichnungnr = New SqlInt32(CType(dtToReturn.Rows(0)("objektbezeichnungnr"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("bedingtretournierbar") Is System.DBNull.Value Then
|
|
m_bBedingtretournierbar = SqlBoolean.Null
|
|
Else
|
|
m_bBedingtretournierbar = New SqlBoolean(CType(dtToReturn.Rows(0)("bedingtretournierbar"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("doktypbedingteretournierung") Is System.DBNull.Value Then
|
|
m_iDoktypbedingteretournierung = SqlInt32.Null
|
|
Else
|
|
m_iDoktypbedingteretournierung = New SqlInt32(CType(dtToReturn.Rows(0)("doktypbedingteretournierung"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("tagebisvernichtungbedingteretournierung") Is System.DBNull.Value Then
|
|
m_iTagebisvernichtungbedingteretournierung = SqlInt32.Null
|
|
Else
|
|
m_iTagebisvernichtungbedingteretournierung = New SqlInt32(CType(dtToReturn.Rows(0)("tagebisvernichtungbedingteretournierung"), Integer))
|
|
End If
|
|
If dtToReturn.Rows(0)("AnzeigeZurDokumenterstellung") Is System.DBNull.Value Then
|
|
m_bAnzeigeZurDokumenterstellung = SqlBoolean.Null
|
|
Else
|
|
m_bAnzeigeZurDokumenterstellung = New SqlBoolean(CType(dtToReturn.Rows(0)("AnzeigeZurDokumenterstellung"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("KundenDokument") Is System.DBNull.Value Then
|
|
m_bKundenDokument = SqlBoolean.Null
|
|
Else
|
|
m_bKundenDokument = New SqlBoolean(CType(dtToReturn.Rows(0)("KundenDokument"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("sb") Is System.DBNull.Value Then
|
|
m_bSb = SqlBoolean.Null
|
|
Else
|
|
m_bSb = New SqlBoolean(CType(dtToReturn.Rows(0)("sb"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("sbimport") Is System.DBNull.Value Then
|
|
m_bSbimport = SqlBoolean.Null
|
|
Else
|
|
m_bSbimport = New SqlBoolean(CType(dtToReturn.Rows(0)("sbimport"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("sbedituser") Is System.DBNull.Value Then
|
|
m_bSbedituser = SqlBoolean.Null
|
|
Else
|
|
m_bSbedituser = New SqlBoolean(CType(dtToReturn.Rows(0)("sbedituser"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("sbnur") Is System.DBNull.Value Then
|
|
m_bSbnur = SqlBoolean.Null
|
|
Else
|
|
m_bSbnur = New SqlBoolean(CType(dtToReturn.Rows(0)("sbnur"), Boolean))
|
|
End If
|
|
If dtToReturn.Rows(0)("bezeichnungmut") Is System.DBNull.Value Then
|
|
m_bBezeichnungmut = SqlBoolean.Null
|
|
Else
|
|
m_bBezeichnungmut = New SqlBoolean(CType(dtToReturn.Rows(0)("bezeichnungmut"), Boolean))
|
|
End If
|
|
End If
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("clsDokumenttyp::SelectOne::Error occured.", ex)
|
|
Finally
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Close connection.
|
|
m_scoMainConnection.Close()
|
|
End If
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
|
|
' /// <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_dokumenttyp_SelectAll]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable("dokumenttyp")
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
|
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Open connection.
|
|
m_scoMainConnection.Open()
|
|
Else
|
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
|
End If
|
|
End If
|
|
|
|
' // Execute query.
|
|
sdaAdapter.Fill(dtToReturn)
|
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_dokumenttyp_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("clsDokumenttyp::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 [iDokumenttypnr]() As SqlInt32
|
|
Get
|
|
Return m_iDokumenttypnr
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
Dim iDokumenttypnrTmp As SqlInt32 = Value
|
|
If iDokumenttypnrTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("iDokumenttypnr", "iDokumenttypnr can't be NULL")
|
|
End If
|
|
m_iDokumenttypnr = 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 [sBeschreibung]() As SqlString
|
|
Get
|
|
Return m_sBeschreibung
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sBeschreibung = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bZu_vercolden]() As SqlBoolean
|
|
Get
|
|
Return m_bZu_vercolden
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
Dim bZu_vercoldenTmp As SqlBoolean = Value
|
|
If bZu_vercoldenTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("bZu_vercolden", "bZu_vercolden can't be NULL")
|
|
End If
|
|
m_bZu_vercolden = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bZu_retournieren]() As SqlBoolean
|
|
Get
|
|
Return m_bZu_retournieren
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
Dim bZu_retournierenTmp As SqlBoolean = Value
|
|
If bZu_retournierenTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("bZu_retournieren", "bZu_retournieren can't be NULL")
|
|
End If
|
|
m_bZu_retournieren = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bEingang_ersetzt_ausgang]() As SqlBoolean
|
|
Get
|
|
Return m_bEingang_ersetzt_ausgang
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
Dim bEingang_ersetzt_ausgangTmp As SqlBoolean = Value
|
|
If bEingang_ersetzt_ausgangTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("bEingang_ersetzt_ausgang", "bEingang_ersetzt_ausgang can't be NULL")
|
|
End If
|
|
m_bEingang_ersetzt_ausgang = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bWird_importiert]() As SqlBoolean
|
|
Get
|
|
Return m_bWird_importiert
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
Dim bWird_importiertTmp As SqlBoolean = Value
|
|
If bWird_importiertTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("bWird_importiert", "bWird_importiert can't be NULL")
|
|
End If
|
|
m_bWird_importiert = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iAnzahl_tage]() As SqlInt32
|
|
Get
|
|
Return m_iAnzahl_tage
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
Dim iAnzahl_tageTmp As SqlInt32 = Value
|
|
If iAnzahl_tageTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("iAnzahl_tage", "iAnzahl_tage can't be NULL")
|
|
End If
|
|
m_iAnzahl_tage = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iDbearbeitungszeit]() As SqlInt32
|
|
Get
|
|
Return m_iDbearbeitungszeit
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
Dim iDbearbeitungszeitTmp As SqlInt32 = Value
|
|
If iDbearbeitungszeitTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("iDbearbeitungszeit", "iDbearbeitungszeit can't be NULL")
|
|
End If
|
|
m_iDbearbeitungszeit = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iTage_mutation]() As SqlInt32
|
|
Get
|
|
Return m_iTage_mutation
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
Dim iTage_mutationTmp As SqlInt32 = Value
|
|
If iTage_mutationTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("iTage_mutation", "iTage_mutation can't be NULL")
|
|
End If
|
|
m_iTage_mutation = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bPartnersaldierung_statusalt]() As SqlBoolean
|
|
Get
|
|
Return m_bPartnersaldierung_statusalt
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
Dim bPartnersaldierung_statusaltTmp As SqlBoolean = Value
|
|
If bPartnersaldierung_statusaltTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("bPartnersaldierung_statusalt", "bPartnersaldierung_statusalt can't be NULL")
|
|
End If
|
|
m_bPartnersaldierung_statusalt = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bWird_nicht_geloescht]() As SqlBoolean
|
|
Get
|
|
Return m_bWird_nicht_geloescht
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
Dim bWird_nicht_geloeschtTmp As SqlBoolean = Value
|
|
If bWird_nicht_geloeschtTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("bWird_nicht_geloescht", "bWird_nicht_geloescht can't be NULL")
|
|
End If
|
|
m_bWird_nicht_geloescht = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bVertrauliches_dokument]() As SqlBoolean
|
|
Get
|
|
Return m_bVertrauliches_dokument
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
Dim bVertrauliches_dokumentTmp As SqlBoolean = Value
|
|
If bVertrauliches_dokumentTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("bVertrauliches_dokument", "bVertrauliches_dokument can't be NULL")
|
|
End If
|
|
m_bVertrauliches_dokument = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bUnterschrift_links]() As SqlBoolean
|
|
Get
|
|
Return m_bUnterschrift_links
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
Dim bUnterschrift_linksTmp As SqlBoolean = Value
|
|
If bUnterschrift_linksTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("bUnterschrift_links", "bUnterschrift_links can't be NULL")
|
|
End If
|
|
m_bUnterschrift_links = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bUnterschrift_rechts]() As SqlBoolean
|
|
Get
|
|
Return m_bUnterschrift_rechts
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
Dim bUnterschrift_rechtsTmp As SqlBoolean = Value
|
|
If bUnterschrift_rechtsTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("bUnterschrift_rechts", "bUnterschrift_rechts can't be NULL")
|
|
End If
|
|
m_bUnterschrift_rechts = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iMonate_bis_zur_archivierung]() As SqlInt32
|
|
Get
|
|
Return m_iMonate_bis_zur_archivierung
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
Dim iMonate_bis_zur_archivierungTmp As SqlInt32 = Value
|
|
If iMonate_bis_zur_archivierungTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("iMonate_bis_zur_archivierung", "iMonate_bis_zur_archivierung can't be NULL")
|
|
End If
|
|
m_iMonate_bis_zur_archivierung = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iAufbewahrungsfrist_elektronisch]() As SqlInt32
|
|
Get
|
|
Return m_iAufbewahrungsfrist_elektronisch
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
Dim iAufbewahrungsfrist_elektronischTmp As SqlInt32 = Value
|
|
If iAufbewahrungsfrist_elektronischTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("iAufbewahrungsfrist_elektronisch", "iAufbewahrungsfrist_elektronisch can't be NULL")
|
|
End If
|
|
m_iAufbewahrungsfrist_elektronisch = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iAufbewahrungsfrist_physisch]() As SqlInt32
|
|
Get
|
|
Return m_iAufbewahrungsfrist_physisch
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
Dim iAufbewahrungsfrist_physischTmp As SqlInt32 = Value
|
|
If iAufbewahrungsfrist_physischTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("iAufbewahrungsfrist_physisch", "iAufbewahrungsfrist_physisch can't be NULL")
|
|
End If
|
|
m_iAufbewahrungsfrist_physisch = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iMandantnr]() As SqlInt32
|
|
Get
|
|
Return m_iMandantnr
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iMandantnr = 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 [daErstellt_am]() As SqlDateTime
|
|
Get
|
|
Return m_daErstellt_am
|
|
End Get
|
|
Set(ByVal Value As SqlDateTime)
|
|
m_daErstellt_am = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [daMutiert_am]() As SqlDateTime
|
|
Get
|
|
Return m_daMutiert_am
|
|
End Get
|
|
Set(ByVal Value As SqlDateTime)
|
|
m_daMutiert_am = 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 [iOffice_vorlagenr]() As SqlInt32
|
|
Get
|
|
Return m_iOffice_vorlagenr
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iOffice_vorlagenr = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iDokumentart_kundendossier]() As SqlInt32
|
|
Get
|
|
Return m_iDokumentart_kundendossier
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iDokumentart_kundendossier = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iDokumentart_neuerstellung]() As SqlInt32
|
|
Get
|
|
Return m_iDokumentart_neuerstellung
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iDokumentart_neuerstellung = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iDokumentart_retournierung]() As SqlInt32
|
|
Get
|
|
Return m_iDokumentart_retournierung
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iDokumentart_retournierung = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iDokumentart_coldausgang]() As SqlInt32
|
|
Get
|
|
Return m_iDokumentart_coldausgang
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
Dim iDokumentart_coldausgangTmp As SqlInt32 = Value
|
|
If iDokumentart_coldausgangTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("iDokumentart_coldausgang", "iDokumentart_coldausgang can't be NULL")
|
|
End If
|
|
m_iDokumentart_coldausgang = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iDokumentart_coldeingang]() As SqlInt32
|
|
Get
|
|
Return m_iDokumentart_coldeingang
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
Dim iDokumentart_coldeingangTmp As SqlInt32 = Value
|
|
If iDokumentart_coldeingangTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("iDokumentart_coldeingang", "iDokumentart_coldeingang can't be NULL")
|
|
End If
|
|
m_iDokumentart_coldeingang = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iDokumentart_host]() As SqlInt32
|
|
Get
|
|
Return m_iDokumentart_host
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iDokumentart_host = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iDokumentart_weitere]() As SqlInt32
|
|
Get
|
|
Return m_iDokumentart_weitere
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iDokumentart_weitere = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iDokumentart_nativ]() As SqlInt32
|
|
Get
|
|
Return m_iDokumentart_nativ
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iDokumentart_nativ = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iProzessnr]() As SqlInt32
|
|
Get
|
|
Return m_iProzessnr
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iProzessnr = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iProzessnr1]() As SqlInt32
|
|
Get
|
|
Return m_iProzessnr1
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iProzessnr1 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bAmsdokument]() As SqlBoolean
|
|
Get
|
|
Return m_bAmsdokument
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
Dim bAmsdokumentTmp As SqlBoolean = Value
|
|
If bAmsdokumentTmp.IsNull Then
|
|
Throw New ArgumentOutOfRangeException("bAmsdokument", "bAmsdokument can't be NULL")
|
|
End If
|
|
m_bAmsdokument = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bHostdokument]() As SqlBoolean
|
|
Get
|
|
Return m_bHostdokument
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bHostdokument = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sHostdokumenttyp]() As SqlString
|
|
Get
|
|
Return m_sHostdokumenttyp
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sHostdokumenttyp = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iCold_folder]() As SqlInt32
|
|
Get
|
|
Return m_iCold_folder
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iCold_folder = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iPhysisches_archiv]() As SqlInt32
|
|
Get
|
|
Return m_iPhysisches_archiv
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iPhysisches_archiv = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iDokumentstatus]() As SqlInt32
|
|
Get
|
|
Return m_iDokumentstatus
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iDokumentstatus = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bDokument_wird_erstellt]() As SqlBoolean
|
|
Get
|
|
Return m_bDokument_wird_erstellt
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bDokument_wird_erstellt = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bDokument_wird_retourniert]() As SqlBoolean
|
|
Get
|
|
Return m_bDokument_wird_retourniert
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bDokument_wird_retourniert = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bCold_ersetzen]() As SqlBoolean
|
|
Get
|
|
Return m_bCold_ersetzen
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bCold_ersetzen = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bEmail_versand]() As SqlBoolean
|
|
Get
|
|
Return m_bEmail_versand
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bEmail_versand = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bFunktionen_zuweisen]() As SqlBoolean
|
|
Get
|
|
Return m_bFunktionen_zuweisen
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bFunktionen_zuweisen = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iDokumentstatus_barcode]() As SqlInt32
|
|
Get
|
|
Return m_iDokumentstatus_barcode
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iDokumentstatus_barcode = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bNurnative]() As SqlBoolean
|
|
Get
|
|
Return m_bNurnative
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bNurnative = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iOwner]() As SqlInt32
|
|
Get
|
|
Return m_iOwner
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iOwner = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bVertrag]() As SqlBoolean
|
|
Get
|
|
Return m_bVertrag
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bVertrag = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iObjektbezeichnungnr]() As SqlInt32
|
|
Get
|
|
Return m_iObjektbezeichnungnr
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iObjektbezeichnungnr = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bBedingtretournierbar]() As SqlBoolean
|
|
Get
|
|
Return m_bBedingtretournierbar
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bBedingtretournierbar = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iDoktypbedingteretournierung]() As SqlInt32
|
|
Get
|
|
Return m_iDoktypbedingteretournierung
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iDoktypbedingteretournierung = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [iTagebisvernichtungbedingteretournierung]() As SqlInt32
|
|
Get
|
|
Return m_iTagebisvernichtungbedingteretournierung
|
|
End Get
|
|
Set(ByVal Value As SqlInt32)
|
|
m_iTagebisvernichtungbedingteretournierung = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bAnzeigeZurDokumenterstellung]() As SqlBoolean
|
|
Get
|
|
Return m_bAnzeigeZurDokumenterstellung
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bAnzeigeZurDokumenterstellung = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bKundenDokument]() As SqlBoolean
|
|
Get
|
|
Return m_bKundenDokument
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bKundenDokument = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bSb]() As SqlBoolean
|
|
Get
|
|
Return m_bSb
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bSb = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bSbimport]() As SqlBoolean
|
|
Get
|
|
Return m_bSbimport
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bSbimport = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bSbedituser]() As SqlBoolean
|
|
Get
|
|
Return m_bSbedituser
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bSbedituser = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bSbnur]() As SqlBoolean
|
|
Get
|
|
Return m_bSbnur
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bSbnur = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [bBezeichnungmut]() As SqlBoolean
|
|
Get
|
|
Return m_bBezeichnungmut
|
|
End Get
|
|
Set(ByVal Value As SqlBoolean)
|
|
m_bBezeichnungmut = Value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
End Class
|
|
End Namespace
|