' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'profil'
' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 18. April 2005, 12:25:42
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
' ///
' /// Purpose: Data Access class for the table 'profil'.
' ///
Public Class clsProfil
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv, m_bStandard, m_bInklalt, m_bAktive, m_bInkInaktVersant, m_bInklhostmavip, m_bInklmavip As SqlBoolean
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
Private m_iHw2, m_iHw5, m_iHw1, m_iHw3, m_iHw4, m_iHw6, m_iHw10, m_iHw11, m_iHw9, m_iHw7, m_iHw8, m_iMutierer, m_iProfiltyp, m_iTeam, m_iProfilnr, m_iMitarbeiternr, m_iMandantnr, m_iUnterschriftlinks, m_iUnterschriftrechts As SqlInt32
Private m_sUvmdoktyp, m_sUvmdatum2, m_sHostdatum3, m_sUvmdatum1, m_sUvmdatum4, m_sUvmauftragnr, m_sUvmdatum3, m_sHostdokart, m_sHostpartner, m_sHosttag1, m_sHostdoktyp, m_sHostdatum2, m_sHosttag3, m_sHostdatum1, m_sHosttag2, m_sZvposten, m_sZvauftragnr, m_sZvvvexter2, m_sZvbetrag, m_sZvvvextern1, m_sZvdatum3, m_sZvdatum4, m_sZvdatum2, m_sZvarchivdatum, m_sZvdatum1, m_sZviso, m_sZvreferenznr, m_sZvzahlungsart, m_sZvverarbeitungsart, m_sZvdokumenttyp, m_sZvauftraggeber, m_sZvswift, m_sZvvaluta, m_sZvkontobeg, m_sZvpcnr, m_sZvclearingnr, m_sVteam, m_sVma, m_sVkost, m_sVmb, m_sVnl, m_sMteam, m_sMma, m_sMkost, m_sMmb, m_sMnl, m_sColor2, m_sColor3, m_sColor1, m_sBezeichnung, m_sBeschreibung, m_sColor7, m_sColor8, m_sColor6, m_sColor4, m_sColor5, m_sDatum6, m_sDatum7, m_sDatum5, m_sDatum3, m_sDatum4, m_sSort, m_sDoktyp, m_sMutaelterasl, m_sDatum8, m_sErstaelterals, m_sEteam, m_sEma, m_sEkost, m_sEmb, m_sEnl, m_sDatum1, m_sDatum2, m_sDdokstatus, m_sDpartner, m_sDdokart As SqlString
#End Region
' ///
' /// Purpose: Class constructor.
' ///
Public Sub New()
' // Nothing for now.
End Sub
' ///
' /// Purpose: Insert method. This method will insert one new row into the database.
' ///
' /// True if succeeded, otherwise an Exception is thrown.
' ///
' /// Properties needed for this method:
' ///
' /// - iProfilnr
' /// - iMitarbeiternr
' /// - sBezeichnung
' /// - sBeschreibung
' /// - bStandard
' /// - iMandantnr
' /// - bAktiv
' /// - daErstellt_am
' /// - daMutiert_am
' /// - iMutierer
' /// - sColor1
' /// - sColor2
' /// - sColor3
' /// - sColor4
' /// - sColor5
' /// - sColor6
' /// - sColor7
' /// - sColor8
' /// - iUnterschriftlinks
' /// - iUnterschriftrechts
' /// - iHw1
' /// - iHw2
' /// - iHw3
' /// - iHw4
' /// - iHw5
' /// - iHw6
' /// - iHw7
' /// - iHw8
' /// - iHw9
' /// - iHw10
' /// - iHw11
' /// - sVmb
' /// - sVnl
' /// - sVkost
' /// - sVteam
' /// - sVma
' /// - sMmb
' /// - sMnl
' /// - sMkost
' /// - sMteam
' /// - sMma
' /// - sEmb
' /// - sEnl
' /// - sEkost
' /// - sEteam
' /// - sEma
' /// - sDpartner
' /// - sDdokart
' /// - sDdokstatus
' /// - sDatum1
' /// - sDatum2
' /// - sDatum3
' /// - sDatum4
' /// - sDatum5
' /// - sDatum6
' /// - sDatum7
' /// - sDatum8
' /// - sErstaelterals
' /// - sMutaelterasl
' /// - iTeam
' /// - sSort
' /// - bAktive. May be SqlBoolean.Null
' /// - iProfiltyp. May be SqlInt32.Null
' /// - sDoktyp. May be SqlString.Null
' /// - bInklmavip. May be SqlBoolean.Null
' /// - bInklalt. May be SqlBoolean.Null
' /// - sHostpartner. May be SqlString.Null
' /// - sHostdokart. May be SqlString.Null
' /// - sHostdoktyp. May be SqlString.Null
' /// - sHosttag1. May be SqlString.Null
' /// - sHostdatum1. May be SqlString.Null
' /// - sHosttag2. May be SqlString.Null
' /// - sHostdatum2. May be SqlString.Null
' /// - sHosttag3. May be SqlString.Null
' /// - sHostdatum3. May be SqlString.Null
' /// - bInklhostmavip. May be SqlBoolean.Null
' /// - sUvmdoktyp. May be SqlString.Null
' /// - sUvmdatum1. May be SqlString.Null
' /// - sUvmdatum2. May be SqlString.Null
' /// - sUvmdatum3. May be SqlString.Null
' /// - sUvmdatum4. May be SqlString.Null
' /// - sUvmauftragnr. May be SqlString.Null
' /// - sZvdokumenttyp. May be SqlString.Null
' /// - sZvauftraggeber. May be SqlString.Null
' /// - sZvverarbeitungsart. May be SqlString.Null
' /// - sZvreferenznr. May be SqlString.Null
' /// - sZvzahlungsart. May be SqlString.Null
' /// - sZvpcnr. May be SqlString.Null
' /// - sZvclearingnr. May be SqlString.Null
' /// - sZvkontobeg. May be SqlString.Null
' /// - sZvswift. May be SqlString.Null
' /// - sZvvaluta. May be SqlString.Null
' /// - sZviso. May be SqlString.Null
' /// - sZvbetrag. May be SqlString.Null
' /// - sZvvvextern1. May be SqlString.Null
' /// - sZvvvexter2. May be SqlString.Null
' /// - sZvposten. May be SqlString.Null
' /// - sZvauftragnr. May be SqlString.Null
' /// - sZvarchivdatum. May be SqlString.Null
' /// - sZvdatum1. May be SqlString.Null
' /// - sZvdatum2. May be SqlString.Null
' /// - sZvdatum3. May be SqlString.Null
' /// - sZvdatum4. May be SqlString.Null
' /// - bInkInaktVersant. May be SqlBoolean.Null
' ///
' /// Properties set after a succesful call of this method:
' ///
' ///
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_profil_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iprofilnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iProfilnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bstandard", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bStandard))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, False, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, False, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor1", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor2", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor3", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor4", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor4))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor5", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor5))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor6", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor6))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor7", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor7))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor8", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor8))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftlinks", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftlinks))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftrechts", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftrechts))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw1", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw2", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw3", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw4", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw4))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw5", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw5))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw6", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw6))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw7", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw7))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw8", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw8))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw9", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw9))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw10", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw10))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw11", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw11))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svmb", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sVmb))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svnl", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sVnl))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svkost", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sVkost))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svteam", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sVteam))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svma", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sVma))
scmCmdToExecute.Parameters.Add(New SqlParameter("@smmb", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sMmb))
scmCmdToExecute.Parameters.Add(New SqlParameter("@smnl", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sMnl))
scmCmdToExecute.Parameters.Add(New SqlParameter("@smkost", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sMkost))
scmCmdToExecute.Parameters.Add(New SqlParameter("@smteam", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sMteam))
scmCmdToExecute.Parameters.Add(New SqlParameter("@smma", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sMma))
scmCmdToExecute.Parameters.Add(New SqlParameter("@semb", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sEmb))
scmCmdToExecute.Parameters.Add(New SqlParameter("@senl", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sEnl))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sekost", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sEkost))
scmCmdToExecute.Parameters.Add(New SqlParameter("@seteam", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sEteam))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sema", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sEma))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdpartner", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDpartner))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sddokart", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDdokart))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sddokstatus", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDdokstatus))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum2", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum3", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum4", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum4))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum5", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum5))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum6", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum6))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum7", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum7))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum8", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum8))
scmCmdToExecute.Parameters.Add(New SqlParameter("@serstaelterals", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sErstaelterals))
scmCmdToExecute.Parameters.Add(New SqlParameter("@smutaelterasl", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sMutaelterasl))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iteam", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iTeam))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ssort", SqlDbType.VarChar, 1024, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sSort))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktive", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktive))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iprofiltyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProfiltyp))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdoktyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDoktyp))
scmCmdToExecute.Parameters.Add(New SqlParameter("@binklmavip", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bInklmavip))
scmCmdToExecute.Parameters.Add(New SqlParameter("@binklalt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bInklalt))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shostpartner", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostpartner))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdokart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdokart))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdoktyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdoktyp))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shosttag1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHosttag1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdatum1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdatum1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shosttag2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHosttag2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdatum2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdatum2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shosttag3", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHosttag3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdatum3", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdatum3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@binklhostmavip", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bInklhostmavip))
scmCmdToExecute.Parameters.Add(New SqlParameter("@suvmdoktyp", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUvmdoktyp))
scmCmdToExecute.Parameters.Add(New SqlParameter("@suvmdatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUvmdatum1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@suvmdatum2", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUvmdatum2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@suvmdatum3", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUvmdatum3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@suvmdatum4", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUvmdatum4))
scmCmdToExecute.Parameters.Add(New SqlParameter("@suvmauftragnr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUvmauftragnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvdokumenttyp", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvdokumenttyp))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvauftraggeber", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvauftraggeber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvverarbeitungsart", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvverarbeitungsart))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvreferenznr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvreferenznr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvzahlungsart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvzahlungsart))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvpcnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvpcnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvclearingnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvclearingnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvkontobeg", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvkontobeg))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvswift", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvswift))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvvaluta", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvvaluta))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szviso", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZviso))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvbetrag", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvbetrag))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvvvextern1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvvvextern1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvvvexter2", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvvvexter2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvposten", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvposten))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvauftragnr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvauftragnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvarchivdatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvdatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvdatum1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvdatum2", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvdatum2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvdatum3", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvdatum3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvdatum4", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvdatum4))
scmCmdToExecute.Parameters.Add(New SqlParameter("@binkInaktVersant", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bInkInaktVersant))
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_profil_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("clsProfil::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' ///
' /// Purpose: Update method. This method will Update one existing row in the database.
' ///
' /// True if succeeded, otherwise an Exception is thrown.
' ///
' /// Properties needed for this method:
' ///
' /// - iProfilnr
' /// - iMitarbeiternr
' /// - sBezeichnung
' /// - sBeschreibung
' /// - bStandard
' /// - iMandantnr
' /// - bAktiv
' /// - daErstellt_am
' /// - daMutiert_am
' /// - iMutierer
' /// - sColor1
' /// - sColor2
' /// - sColor3
' /// - sColor4
' /// - sColor5
' /// - sColor6
' /// - sColor7
' /// - sColor8
' /// - iUnterschriftlinks
' /// - iUnterschriftrechts
' /// - iHw1
' /// - iHw2
' /// - iHw3
' /// - iHw4
' /// - iHw5
' /// - iHw6
' /// - iHw7
' /// - iHw8
' /// - iHw9
' /// - iHw10
' /// - iHw11
' /// - sVmb
' /// - sVnl
' /// - sVkost
' /// - sVteam
' /// - sVma
' /// - sMmb
' /// - sMnl
' /// - sMkost
' /// - sMteam
' /// - sMma
' /// - sEmb
' /// - sEnl
' /// - sEkost
' /// - sEteam
' /// - sEma
' /// - sDpartner
' /// - sDdokart
' /// - sDdokstatus
' /// - sDatum1
' /// - sDatum2
' /// - sDatum3
' /// - sDatum4
' /// - sDatum5
' /// - sDatum6
' /// - sDatum7
' /// - sDatum8
' /// - sErstaelterals
' /// - sMutaelterasl
' /// - iTeam
' /// - sSort
' /// - bAktive. May be SqlBoolean.Null
' /// - iProfiltyp. May be SqlInt32.Null
' /// - sDoktyp. May be SqlString.Null
' /// - bInklmavip. May be SqlBoolean.Null
' /// - bInklalt. May be SqlBoolean.Null
' /// - sHostpartner. May be SqlString.Null
' /// - sHostdokart. May be SqlString.Null
' /// - sHostdoktyp. May be SqlString.Null
' /// - sHosttag1. May be SqlString.Null
' /// - sHostdatum1. May be SqlString.Null
' /// - sHosttag2. May be SqlString.Null
' /// - sHostdatum2. May be SqlString.Null
' /// - sHosttag3. May be SqlString.Null
' /// - sHostdatum3. May be SqlString.Null
' /// - bInklhostmavip. May be SqlBoolean.Null
' /// - sUvmdoktyp. May be SqlString.Null
' /// - sUvmdatum1. May be SqlString.Null
' /// - sUvmdatum2. May be SqlString.Null
' /// - sUvmdatum3. May be SqlString.Null
' /// - sUvmdatum4. May be SqlString.Null
' /// - sUvmauftragnr. May be SqlString.Null
' /// - sZvdokumenttyp. May be SqlString.Null
' /// - sZvauftraggeber. May be SqlString.Null
' /// - sZvverarbeitungsart. May be SqlString.Null
' /// - sZvreferenznr. May be SqlString.Null
' /// - sZvzahlungsart. May be SqlString.Null
' /// - sZvpcnr. May be SqlString.Null
' /// - sZvclearingnr. May be SqlString.Null
' /// - sZvkontobeg. May be SqlString.Null
' /// - sZvswift. May be SqlString.Null
' /// - sZvvaluta. May be SqlString.Null
' /// - sZviso. May be SqlString.Null
' /// - sZvbetrag. May be SqlString.Null
' /// - sZvvvextern1. May be SqlString.Null
' /// - sZvvvexter2. May be SqlString.Null
' /// - sZvposten. May be SqlString.Null
' /// - sZvauftragnr. May be SqlString.Null
' /// - sZvarchivdatum. May be SqlString.Null
' /// - sZvdatum1. May be SqlString.Null
' /// - sZvdatum2. May be SqlString.Null
' /// - sZvdatum3. May be SqlString.Null
' /// - sZvdatum4. May be SqlString.Null
' /// - bInkInaktVersant. May be SqlBoolean.Null
' ///
' /// Properties set after a succesful call of this method:
' ///
' ///
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_profil_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iprofilnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iProfilnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bstandard", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bStandard))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, False, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, False, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor1", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor2", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor3", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor4", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor4))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor5", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor5))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor6", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor6))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor7", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor7))
scmCmdToExecute.Parameters.Add(New SqlParameter("@scolor8", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sColor8))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftlinks", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftlinks))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftrechts", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftrechts))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw1", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw2", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw3", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw4", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw4))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw5", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw5))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw6", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw6))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw7", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw7))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw8", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw8))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw9", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw9))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw10", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw10))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ihw11", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iHw11))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svmb", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sVmb))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svnl", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sVnl))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svkost", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sVkost))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svteam", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sVteam))
scmCmdToExecute.Parameters.Add(New SqlParameter("@svma", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sVma))
scmCmdToExecute.Parameters.Add(New SqlParameter("@smmb", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sMmb))
scmCmdToExecute.Parameters.Add(New SqlParameter("@smnl", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sMnl))
scmCmdToExecute.Parameters.Add(New SqlParameter("@smkost", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sMkost))
scmCmdToExecute.Parameters.Add(New SqlParameter("@smteam", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sMteam))
scmCmdToExecute.Parameters.Add(New SqlParameter("@smma", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sMma))
scmCmdToExecute.Parameters.Add(New SqlParameter("@semb", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sEmb))
scmCmdToExecute.Parameters.Add(New SqlParameter("@senl", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sEnl))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sekost", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sEkost))
scmCmdToExecute.Parameters.Add(New SqlParameter("@seteam", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sEteam))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sema", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sEma))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdpartner", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDpartner))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sddokart", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDdokart))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sddokstatus", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDdokstatus))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum2", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum3", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum4", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum4))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum5", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum5))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum6", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum6))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum7", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum7))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdatum8", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDatum8))
scmCmdToExecute.Parameters.Add(New SqlParameter("@serstaelterals", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sErstaelterals))
scmCmdToExecute.Parameters.Add(New SqlParameter("@smutaelterasl", SqlDbType.VarChar, 50, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sMutaelterasl))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iteam", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iTeam))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ssort", SqlDbType.VarChar, 1024, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sSort))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktive", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktive))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iprofiltyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProfiltyp))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sdoktyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDoktyp))
scmCmdToExecute.Parameters.Add(New SqlParameter("@binklmavip", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bInklmavip))
scmCmdToExecute.Parameters.Add(New SqlParameter("@binklalt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bInklalt))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shostpartner", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostpartner))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdokart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdokart))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdoktyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdoktyp))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shosttag1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHosttag1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdatum1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdatum1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shosttag2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHosttag2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdatum2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdatum2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shosttag3", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHosttag3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdatum3", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdatum3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@binklhostmavip", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bInklhostmavip))
scmCmdToExecute.Parameters.Add(New SqlParameter("@suvmdoktyp", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUvmdoktyp))
scmCmdToExecute.Parameters.Add(New SqlParameter("@suvmdatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUvmdatum1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@suvmdatum2", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUvmdatum2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@suvmdatum3", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUvmdatum3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@suvmdatum4", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUvmdatum4))
scmCmdToExecute.Parameters.Add(New SqlParameter("@suvmauftragnr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUvmauftragnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvdokumenttyp", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvdokumenttyp))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvauftraggeber", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvauftraggeber))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvverarbeitungsart", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvverarbeitungsart))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvreferenznr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvreferenznr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvzahlungsart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvzahlungsart))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvpcnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvpcnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvclearingnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvclearingnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvkontobeg", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvkontobeg))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvswift", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvswift))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvvaluta", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvvaluta))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szviso", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZviso))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvbetrag", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvbetrag))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvvvextern1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvvvextern1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvvvexter2", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvvvexter2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvposten", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvposten))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvauftragnr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvauftragnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvarchivdatum", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvarchivdatum))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvdatum1", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvdatum1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvdatum2", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvdatum2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvdatum3", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvdatum3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@szvdatum4", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZvdatum4))
scmCmdToExecute.Parameters.Add(New SqlParameter("@binkInaktVersant", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bInkInaktVersant))
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_profil_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("clsProfil::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' ///
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
' ///
' /// True if succeeded, otherwise an Exception is thrown.
' ///
' /// Properties needed for this method:
' ///
' /// Properties set after a succesful call of this method:
' ///
' ///
Public Overrides Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_profil_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iprofilnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iProfilnr))
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_profil_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("clsProfil::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
' ///
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
' ///
' /// DataTable object if succeeded, otherwise an Exception is thrown.
' ///
' /// Properties needed for this method:
' ///
' /// Properties set after a succesful call of this method:
' ///
' /// - iErrorCode
' /// - iProfilnr
' /// - iMitarbeiternr
' /// - sBezeichnung
' /// - sBeschreibung
' /// - bStandard
' /// - iMandantnr
' /// - bAktiv
' /// - daErstellt_am
' /// - daMutiert_am
' /// - iMutierer
' /// - sColor1
' /// - sColor2
' /// - sColor3
' /// - sColor4
' /// - sColor5
' /// - sColor6
' /// - sColor7
' /// - sColor8
' /// - iUnterschriftlinks
' /// - iUnterschriftrechts
' /// - iHw1
' /// - iHw2
' /// - iHw3
' /// - iHw4
' /// - iHw5
' /// - iHw6
' /// - iHw7
' /// - iHw8
' /// - iHw9
' /// - iHw10
' /// - iHw11
' /// - sVmb
' /// - sVnl
' /// - sVkost
' /// - sVteam
' /// - sVma
' /// - sMmb
' /// - sMnl
' /// - sMkost
' /// - sMteam
' /// - sMma
' /// - sEmb
' /// - sEnl
' /// - sEkost
' /// - sEteam
' /// - sEma
' /// - sDpartner
' /// - sDdokart
' /// - sDdokstatus
' /// - sDatum1
' /// - sDatum2
' /// - sDatum3
' /// - sDatum4
' /// - sDatum5
' /// - sDatum6
' /// - sDatum7
' /// - sDatum8
' /// - sErstaelterals
' /// - sMutaelterasl
' /// - iTeam
' /// - sSort
' /// - bAktive
' /// - iProfiltyp
' /// - sDoktyp
' /// - bInklmavip
' /// - bInklalt
' /// - sHostpartner
' /// - sHostdokart
' /// - sHostdoktyp
' /// - sHosttag1
' /// - sHostdatum1
' /// - sHosttag2
' /// - sHostdatum2
' /// - sHosttag3
' /// - sHostdatum3
' /// - bInklhostmavip
' /// - sUvmdoktyp
' /// - sUvmdatum1
' /// - sUvmdatum2
' /// - sUvmdatum3
' /// - sUvmdatum4
' /// - sUvmauftragnr
' /// - sZvdokumenttyp
' /// - sZvauftraggeber
' /// - sZvverarbeitungsart
' /// - sZvreferenznr
' /// - sZvzahlungsart
' /// - sZvpcnr
' /// - sZvclearingnr
' /// - sZvkontobeg
' /// - sZvswift
' /// - sZvvaluta
' /// - sZviso
' /// - sZvbetrag
' /// - sZvvvextern1
' /// - sZvvvexter2
' /// - sZvposten
' /// - sZvauftragnr
' /// - sZvarchivdatum
' /// - sZvdatum1
' /// - sZvdatum2
' /// - sZvdatum3
' /// - sZvdatum4
' /// - bInkInaktVersant
' ///
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
' ///
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_profil_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("profil")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iprofilnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iProfilnr))
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_profil_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iProfilnr = New SqlInt32(CType(dtToReturn.Rows(0)("profilnr"), Integer))
m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr"), Integer))
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String))
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
m_bStandard = New SqlBoolean(CType(dtToReturn.Rows(0)("standard"), Boolean))
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
m_sColor1 = New SqlString(CType(dtToReturn.Rows(0)("color1"), String))
m_sColor2 = New SqlString(CType(dtToReturn.Rows(0)("color2"), String))
m_sColor3 = New SqlString(CType(dtToReturn.Rows(0)("color3"), String))
m_sColor4 = New SqlString(CType(dtToReturn.Rows(0)("color4"), String))
m_sColor5 = New SqlString(CType(dtToReturn.Rows(0)("color5"), String))
m_sColor6 = New SqlString(CType(dtToReturn.Rows(0)("color6"), String))
m_sColor7 = New SqlString(CType(dtToReturn.Rows(0)("color7"), String))
m_sColor8 = New SqlString(CType(dtToReturn.Rows(0)("color8"), String))
m_iUnterschriftlinks = New SqlInt32(CType(dtToReturn.Rows(0)("unterschriftlinks"), Integer))
m_iUnterschriftrechts = New SqlInt32(CType(dtToReturn.Rows(0)("unterschriftrechts"), Integer))
m_iHw1 = New SqlInt32(CType(dtToReturn.Rows(0)("hw1"), Integer))
m_iHw2 = New SqlInt32(CType(dtToReturn.Rows(0)("hw2"), Integer))
m_iHw3 = New SqlInt32(CType(dtToReturn.Rows(0)("hw3"), Integer))
m_iHw4 = New SqlInt32(CType(dtToReturn.Rows(0)("hw4"), Integer))
m_iHw5 = New SqlInt32(CType(dtToReturn.Rows(0)("hw5"), Integer))
m_iHw6 = New SqlInt32(CType(dtToReturn.Rows(0)("hw6"), Integer))
m_iHw7 = New SqlInt32(CType(dtToReturn.Rows(0)("hw7"), Integer))
m_iHw8 = New SqlInt32(CType(dtToReturn.Rows(0)("hw8"), Integer))
m_iHw9 = New SqlInt32(CType(dtToReturn.Rows(0)("hw9"), Integer))
m_iHw10 = New SqlInt32(CType(dtToReturn.Rows(0)("hw10"), Integer))
m_iHw11 = New SqlInt32(CType(dtToReturn.Rows(0)("hw11"), Integer))
m_sVmb = New SqlString(CType(dtToReturn.Rows(0)("vmb"), String))
m_sVnl = New SqlString(CType(dtToReturn.Rows(0)("vnl"), String))
m_sVkost = New SqlString(CType(dtToReturn.Rows(0)("vkost"), String))
m_sVteam = New SqlString(CType(dtToReturn.Rows(0)("vteam"), String))
m_sVma = New SqlString(CType(dtToReturn.Rows(0)("vma"), String))
m_sMmb = New SqlString(CType(dtToReturn.Rows(0)("mmb"), String))
m_sMnl = New SqlString(CType(dtToReturn.Rows(0)("mnl"), String))
m_sMkost = New SqlString(CType(dtToReturn.Rows(0)("mkost"), String))
m_sMteam = New SqlString(CType(dtToReturn.Rows(0)("mteam"), String))
m_sMma = New SqlString(CType(dtToReturn.Rows(0)("mma"), String))
m_sEmb = New SqlString(CType(dtToReturn.Rows(0)("emb"), String))
m_sEnl = New SqlString(CType(dtToReturn.Rows(0)("enl"), String))
m_sEkost = New SqlString(CType(dtToReturn.Rows(0)("ekost"), String))
m_sEteam = New SqlString(CType(dtToReturn.Rows(0)("eteam"), String))
m_sEma = New SqlString(CType(dtToReturn.Rows(0)("ema"), String))
m_sDpartner = New SqlString(CType(dtToReturn.Rows(0)("dpartner"), String))
m_sDdokart = New SqlString(CType(dtToReturn.Rows(0)("ddokart"), String))
m_sDdokstatus = New SqlString(CType(dtToReturn.Rows(0)("ddokstatus"), String))
m_sDatum1 = New SqlString(CType(dtToReturn.Rows(0)("datum1"), String))
m_sDatum2 = New SqlString(CType(dtToReturn.Rows(0)("datum2"), String))
m_sDatum3 = New SqlString(CType(dtToReturn.Rows(0)("datum3"), String))
m_sDatum4 = New SqlString(CType(dtToReturn.Rows(0)("datum4"), String))
m_sDatum5 = New SqlString(CType(dtToReturn.Rows(0)("datum5"), String))
m_sDatum6 = New SqlString(CType(dtToReturn.Rows(0)("datum6"), String))
m_sDatum7 = New SqlString(CType(dtToReturn.Rows(0)("datum7"), String))
m_sDatum8 = New SqlString(CType(dtToReturn.Rows(0)("datum8"), String))
m_sErstaelterals = New SqlString(CType(dtToReturn.Rows(0)("erstaelterals"), String))
m_sMutaelterasl = New SqlString(CType(dtToReturn.Rows(0)("mutaelterasl"), String))
m_iTeam = New SqlInt32(CType(dtToReturn.Rows(0)("team"), Integer))
m_sSort = New SqlString(CType(dtToReturn.Rows(0)("sort"), String))
If dtToReturn.Rows(0)("aktive") Is System.DBNull.Value Then
m_bAktive = SqlBoolean.Null
Else
m_bAktive = New SqlBoolean(CType(dtToReturn.Rows(0)("aktive"), Boolean))
End If
If dtToReturn.Rows(0)("profiltyp") Is System.DBNull.Value Then
m_iProfiltyp = SqlInt32.Null
Else
m_iProfiltyp = New SqlInt32(CType(dtToReturn.Rows(0)("profiltyp"), Integer))
End If
If dtToReturn.Rows(0)("doktyp") Is System.DBNull.Value Then
m_sDoktyp = SqlString.Null
Else
m_sDoktyp = New SqlString(CType(dtToReturn.Rows(0)("doktyp"), String))
End If
If dtToReturn.Rows(0)("inklmavip") Is System.DBNull.Value Then
m_bInklmavip = SqlBoolean.Null
Else
m_bInklmavip = New SqlBoolean(CType(dtToReturn.Rows(0)("inklmavip"), Boolean))
End If
If dtToReturn.Rows(0)("inklalt") Is System.DBNull.Value Then
m_bInklalt = SqlBoolean.Null
Else
m_bInklalt = New SqlBoolean(CType(dtToReturn.Rows(0)("inklalt"), Boolean))
End If
If dtToReturn.Rows(0)("hostpartner") Is System.DBNull.Value Then
m_sHostpartner = SqlString.Null
Else
m_sHostpartner = New SqlString(CType(dtToReturn.Rows(0)("hostpartner"), String))
End If
If dtToReturn.Rows(0)("hostdokart") Is System.DBNull.Value Then
m_sHostdokart = SqlString.Null
Else
m_sHostdokart = New SqlString(CType(dtToReturn.Rows(0)("hostdokart"), String))
End If
If dtToReturn.Rows(0)("hostdoktyp") Is System.DBNull.Value Then
m_sHostdoktyp = SqlString.Null
Else
m_sHostdoktyp = New SqlString(CType(dtToReturn.Rows(0)("hostdoktyp"), String))
End If
If dtToReturn.Rows(0)("hosttag1") Is System.DBNull.Value Then
m_sHosttag1 = SqlString.Null
Else
m_sHosttag1 = New SqlString(CType(dtToReturn.Rows(0)("hosttag1"), String))
End If
If dtToReturn.Rows(0)("hostdatum1") Is System.DBNull.Value Then
m_sHostdatum1 = SqlString.Null
Else
m_sHostdatum1 = New SqlString(CType(dtToReturn.Rows(0)("hostdatum1"), String))
End If
If dtToReturn.Rows(0)("hosttag2") Is System.DBNull.Value Then
m_sHosttag2 = SqlString.Null
Else
m_sHosttag2 = New SqlString(CType(dtToReturn.Rows(0)("hosttag2"), String))
End If
If dtToReturn.Rows(0)("hostdatum2") Is System.DBNull.Value Then
m_sHostdatum2 = SqlString.Null
Else
m_sHostdatum2 = New SqlString(CType(dtToReturn.Rows(0)("hostdatum2"), String))
End If
If dtToReturn.Rows(0)("hosttag3") Is System.DBNull.Value Then
m_sHosttag3 = SqlString.Null
Else
m_sHosttag3 = New SqlString(CType(dtToReturn.Rows(0)("hosttag3"), String))
End If
If dtToReturn.Rows(0)("hostdatum3") Is System.DBNull.Value Then
m_sHostdatum3 = SqlString.Null
Else
m_sHostdatum3 = New SqlString(CType(dtToReturn.Rows(0)("hostdatum3"), String))
End If
If dtToReturn.Rows(0)("inklhostmavip") Is System.DBNull.Value Then
m_bInklhostmavip = SqlBoolean.Null
Else
m_bInklhostmavip = New SqlBoolean(CType(dtToReturn.Rows(0)("inklhostmavip"), Boolean))
End If
If dtToReturn.Rows(0)("uvmdoktyp") Is System.DBNull.Value Then
m_sUvmdoktyp = SqlString.Null
Else
m_sUvmdoktyp = New SqlString(CType(dtToReturn.Rows(0)("uvmdoktyp"), String))
End If
If dtToReturn.Rows(0)("uvmdatum1") Is System.DBNull.Value Then
m_sUvmdatum1 = SqlString.Null
Else
m_sUvmdatum1 = New SqlString(CType(dtToReturn.Rows(0)("uvmdatum1"), String))
End If
If dtToReturn.Rows(0)("uvmdatum2") Is System.DBNull.Value Then
m_sUvmdatum2 = SqlString.Null
Else
m_sUvmdatum2 = New SqlString(CType(dtToReturn.Rows(0)("uvmdatum2"), String))
End If
If dtToReturn.Rows(0)("uvmdatum3") Is System.DBNull.Value Then
m_sUvmdatum3 = SqlString.Null
Else
m_sUvmdatum3 = New SqlString(CType(dtToReturn.Rows(0)("uvmdatum3"), String))
End If
If dtToReturn.Rows(0)("uvmdatum4") Is System.DBNull.Value Then
m_sUvmdatum4 = SqlString.Null
Else
m_sUvmdatum4 = New SqlString(CType(dtToReturn.Rows(0)("uvmdatum4"), String))
End If
If dtToReturn.Rows(0)("uvmauftragnr") Is System.DBNull.Value Then
m_sUvmauftragnr = SqlString.Null
Else
m_sUvmauftragnr = New SqlString(CType(dtToReturn.Rows(0)("uvmauftragnr"), String))
End If
If dtToReturn.Rows(0)("zvdokumenttyp") Is System.DBNull.Value Then
m_sZvdokumenttyp = SqlString.Null
Else
m_sZvdokumenttyp = New SqlString(CType(dtToReturn.Rows(0)("zvdokumenttyp"), String))
End If
If dtToReturn.Rows(0)("zvauftraggeber") Is System.DBNull.Value Then
m_sZvauftraggeber = SqlString.Null
Else
m_sZvauftraggeber = New SqlString(CType(dtToReturn.Rows(0)("zvauftraggeber"), String))
End If
If dtToReturn.Rows(0)("zvverarbeitungsart") Is System.DBNull.Value Then
m_sZvverarbeitungsart = SqlString.Null
Else
m_sZvverarbeitungsart = New SqlString(CType(dtToReturn.Rows(0)("zvverarbeitungsart"), String))
End If
If dtToReturn.Rows(0)("zvreferenznr") Is System.DBNull.Value Then
m_sZvreferenznr = SqlString.Null
Else
m_sZvreferenznr = New SqlString(CType(dtToReturn.Rows(0)("zvreferenznr"), String))
End If
If dtToReturn.Rows(0)("zvzahlungsart") Is System.DBNull.Value Then
m_sZvzahlungsart = SqlString.Null
Else
m_sZvzahlungsart = New SqlString(CType(dtToReturn.Rows(0)("zvzahlungsart"), String))
End If
If dtToReturn.Rows(0)("zvpcnr") Is System.DBNull.Value Then
m_sZvpcnr = SqlString.Null
Else
m_sZvpcnr = New SqlString(CType(dtToReturn.Rows(0)("zvpcnr"), String))
End If
If dtToReturn.Rows(0)("zvclearingnr") Is System.DBNull.Value Then
m_sZvclearingnr = SqlString.Null
Else
m_sZvclearingnr = New SqlString(CType(dtToReturn.Rows(0)("zvclearingnr"), String))
End If
If dtToReturn.Rows(0)("zvkontobeg") Is System.DBNull.Value Then
m_sZvkontobeg = SqlString.Null
Else
m_sZvkontobeg = New SqlString(CType(dtToReturn.Rows(0)("zvkontobeg"), String))
End If
If dtToReturn.Rows(0)("zvswift") Is System.DBNull.Value Then
m_sZvswift = SqlString.Null
Else
m_sZvswift = New SqlString(CType(dtToReturn.Rows(0)("zvswift"), String))
End If
If dtToReturn.Rows(0)("zvvaluta") Is System.DBNull.Value Then
m_sZvvaluta = SqlString.Null
Else
m_sZvvaluta = New SqlString(CType(dtToReturn.Rows(0)("zvvaluta"), String))
End If
If dtToReturn.Rows(0)("zviso") Is System.DBNull.Value Then
m_sZviso = SqlString.Null
Else
m_sZviso = New SqlString(CType(dtToReturn.Rows(0)("zviso"), String))
End If
If dtToReturn.Rows(0)("zvbetrag") Is System.DBNull.Value Then
m_sZvbetrag = SqlString.Null
Else
m_sZvbetrag = New SqlString(CType(dtToReturn.Rows(0)("zvbetrag"), String))
End If
If dtToReturn.Rows(0)("zvvvextern1") Is System.DBNull.Value Then
m_sZvvvextern1 = SqlString.Null
Else
m_sZvvvextern1 = New SqlString(CType(dtToReturn.Rows(0)("zvvvextern1"), String))
End If
If dtToReturn.Rows(0)("zvvvexter2") Is System.DBNull.Value Then
m_sZvvvexter2 = SqlString.Null
Else
m_sZvvvexter2 = New SqlString(CType(dtToReturn.Rows(0)("zvvvexter2"), String))
End If
If dtToReturn.Rows(0)("zvposten") Is System.DBNull.Value Then
m_sZvposten = SqlString.Null
Else
m_sZvposten = New SqlString(CType(dtToReturn.Rows(0)("zvposten"), String))
End If
If dtToReturn.Rows(0)("zvauftragnr") Is System.DBNull.Value Then
m_sZvauftragnr = SqlString.Null
Else
m_sZvauftragnr = New SqlString(CType(dtToReturn.Rows(0)("zvauftragnr"), String))
End If
If dtToReturn.Rows(0)("zvarchivdatum") Is System.DBNull.Value Then
m_sZvarchivdatum = SqlString.Null
Else
m_sZvarchivdatum = New SqlString(CType(dtToReturn.Rows(0)("zvarchivdatum"), String))
End If
If dtToReturn.Rows(0)("zvdatum1") Is System.DBNull.Value Then
m_sZvdatum1 = SqlString.Null
Else
m_sZvdatum1 = New SqlString(CType(dtToReturn.Rows(0)("zvdatum1"), String))
End If
If dtToReturn.Rows(0)("zvdatum2") Is System.DBNull.Value Then
m_sZvdatum2 = SqlString.Null
Else
m_sZvdatum2 = New SqlString(CType(dtToReturn.Rows(0)("zvdatum2"), String))
End If
If dtToReturn.Rows(0)("zvdatum3") Is System.DBNull.Value Then
m_sZvdatum3 = SqlString.Null
Else
m_sZvdatum3 = New SqlString(CType(dtToReturn.Rows(0)("zvdatum3"), String))
End If
If dtToReturn.Rows(0)("zvdatum4") Is System.DBNull.Value Then
m_sZvdatum4 = SqlString.Null
Else
m_sZvdatum4 = New SqlString(CType(dtToReturn.Rows(0)("zvdatum4"), String))
End If
If dtToReturn.Rows(0)("inkInaktVersant") Is System.DBNull.Value Then
m_bInkInaktVersant = SqlBoolean.Null
Else
m_bInkInaktVersant = New SqlBoolean(CType(dtToReturn.Rows(0)("inkInaktVersant"), 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("clsProfil::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
' ///
' /// Purpose: SelectAll method. This method will Select all rows from the table.
' ///
' /// DataTable object if succeeded, otherwise an Exception is thrown.
' ///
' /// Properties set after a succesful call of this method:
' ///
' ///
Public Overrides Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_profil_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable("profil")
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_profil_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("clsProfil::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 [iProfilnr]() As SqlInt32
Get
Return m_iProfilnr
End Get
Set(ByVal Value As SqlInt32)
Dim iProfilnrTmp As SqlInt32 = Value
If iProfilnrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iProfilnr", "iProfilnr can't be NULL")
End If
m_iProfilnr = Value
End Set
End Property
Public Property [iMitarbeiternr]() As SqlInt32
Get
Return m_iMitarbeiternr
End Get
Set(ByVal Value As SqlInt32)
Dim iMitarbeiternrTmp As SqlInt32 = Value
If iMitarbeiternrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iMitarbeiternr", "iMitarbeiternr can't be NULL")
End If
m_iMitarbeiternr = Value
End Set
End Property
Public Property [sBezeichnung]() As SqlString
Get
Return m_sBezeichnung
End Get
Set(ByVal Value As SqlString)
Dim sBezeichnungTmp As SqlString = Value
If sBezeichnungTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sBezeichnung", "sBezeichnung can't be NULL")
End If
m_sBezeichnung = Value
End Set
End Property
Public Property [sBeschreibung]() As SqlString
Get
Return m_sBeschreibung
End Get
Set(ByVal Value As SqlString)
Dim sBeschreibungTmp As SqlString = Value
If sBeschreibungTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL")
End If
m_sBeschreibung = Value
End Set
End Property
Public Property [bStandard]() As SqlBoolean
Get
Return m_bStandard
End Get
Set(ByVal Value As SqlBoolean)
Dim bStandardTmp As SqlBoolean = Value
If bStandardTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bStandard", "bStandard can't be NULL")
End If
m_bStandard = Value
End Set
End Property
Public Property [iMandantnr]() As SqlInt32
Get
Return m_iMandantnr
End Get
Set(ByVal Value As SqlInt32)
Dim iMandantnrTmp As SqlInt32 = Value
If iMandantnrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iMandantnr", "iMandantnr can't be NULL")
End If
m_iMandantnr = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
Dim bAktivTmp As SqlBoolean = Value
If bAktivTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bAktiv", "bAktiv can't be NULL")
End If
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)
Dim daErstellt_amTmp As SqlDateTime = Value
If daErstellt_amTmp.IsNull Then
Throw New ArgumentOutOfRangeException("daErstellt_am", "daErstellt_am can't be NULL")
End If
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)
Dim daMutiert_amTmp As SqlDateTime = Value
If daMutiert_amTmp.IsNull Then
Throw New ArgumentOutOfRangeException("daMutiert_am", "daMutiert_am can't be NULL")
End If
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
Dim iMutiererTmp As SqlInt32 = Value
If iMutiererTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iMutierer", "iMutierer can't be NULL")
End If
m_iMutierer = Value
End Set
End Property
Public Property [sColor1]() As SqlString
Get
Return m_sColor1
End Get
Set(ByVal Value As SqlString)
Dim sColor1Tmp As SqlString = Value
If sColor1Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sColor1", "sColor1 can't be NULL")
End If
m_sColor1 = Value
End Set
End Property
Public Property [sColor2]() As SqlString
Get
Return m_sColor2
End Get
Set(ByVal Value As SqlString)
Dim sColor2Tmp As SqlString = Value
If sColor2Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sColor2", "sColor2 can't be NULL")
End If
m_sColor2 = Value
End Set
End Property
Public Property [sColor3]() As SqlString
Get
Return m_sColor3
End Get
Set(ByVal Value As SqlString)
Dim sColor3Tmp As SqlString = Value
If sColor3Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sColor3", "sColor3 can't be NULL")
End If
m_sColor3 = Value
End Set
End Property
Public Property [sColor4]() As SqlString
Get
Return m_sColor4
End Get
Set(ByVal Value As SqlString)
Dim sColor4Tmp As SqlString = Value
If sColor4Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sColor4", "sColor4 can't be NULL")
End If
m_sColor4 = Value
End Set
End Property
Public Property [sColor5]() As SqlString
Get
Return m_sColor5
End Get
Set(ByVal Value As SqlString)
Dim sColor5Tmp As SqlString = Value
If sColor5Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sColor5", "sColor5 can't be NULL")
End If
m_sColor5 = Value
End Set
End Property
Public Property [sColor6]() As SqlString
Get
Return m_sColor6
End Get
Set(ByVal Value As SqlString)
Dim sColor6Tmp As SqlString = Value
If sColor6Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sColor6", "sColor6 can't be NULL")
End If
m_sColor6 = Value
End Set
End Property
Public Property [sColor7]() As SqlString
Get
Return m_sColor7
End Get
Set(ByVal Value As SqlString)
Dim sColor7Tmp As SqlString = Value
If sColor7Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sColor7", "sColor7 can't be NULL")
End If
m_sColor7 = Value
End Set
End Property
Public Property [sColor8]() As SqlString
Get
Return m_sColor8
End Get
Set(ByVal Value As SqlString)
Dim sColor8Tmp As SqlString = Value
If sColor8Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sColor8", "sColor8 can't be NULL")
End If
m_sColor8 = Value
End Set
End Property
Public Property [iUnterschriftlinks]() As SqlInt32
Get
Return m_iUnterschriftlinks
End Get
Set(ByVal Value As SqlInt32)
Dim iUnterschriftlinksTmp As SqlInt32 = Value
If iUnterschriftlinksTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iUnterschriftlinks", "iUnterschriftlinks can't be NULL")
End If
m_iUnterschriftlinks = Value
End Set
End Property
Public Property [iUnterschriftrechts]() As SqlInt32
Get
Return m_iUnterschriftrechts
End Get
Set(ByVal Value As SqlInt32)
Dim iUnterschriftrechtsTmp As SqlInt32 = Value
If iUnterschriftrechtsTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iUnterschriftrechts", "iUnterschriftrechts can't be NULL")
End If
m_iUnterschriftrechts = Value
End Set
End Property
Public Property [iHw1]() As SqlInt32
Get
Return m_iHw1
End Get
Set(ByVal Value As SqlInt32)
Dim iHw1Tmp As SqlInt32 = Value
If iHw1Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("iHw1", "iHw1 can't be NULL")
End If
m_iHw1 = Value
End Set
End Property
Public Property [iHw2]() As SqlInt32
Get
Return m_iHw2
End Get
Set(ByVal Value As SqlInt32)
Dim iHw2Tmp As SqlInt32 = Value
If iHw2Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("iHw2", "iHw2 can't be NULL")
End If
m_iHw2 = Value
End Set
End Property
Public Property [iHw3]() As SqlInt32
Get
Return m_iHw3
End Get
Set(ByVal Value As SqlInt32)
Dim iHw3Tmp As SqlInt32 = Value
If iHw3Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("iHw3", "iHw3 can't be NULL")
End If
m_iHw3 = Value
End Set
End Property
Public Property [iHw4]() As SqlInt32
Get
Return m_iHw4
End Get
Set(ByVal Value As SqlInt32)
Dim iHw4Tmp As SqlInt32 = Value
If iHw4Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("iHw4", "iHw4 can't be NULL")
End If
m_iHw4 = Value
End Set
End Property
Public Property [iHw5]() As SqlInt32
Get
Return m_iHw5
End Get
Set(ByVal Value As SqlInt32)
Dim iHw5Tmp As SqlInt32 = Value
If iHw5Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("iHw5", "iHw5 can't be NULL")
End If
m_iHw5 = Value
End Set
End Property
Public Property [iHw6]() As SqlInt32
Get
Return m_iHw6
End Get
Set(ByVal Value As SqlInt32)
Dim iHw6Tmp As SqlInt32 = Value
If iHw6Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("iHw6", "iHw6 can't be NULL")
End If
m_iHw6 = Value
End Set
End Property
Public Property [iHw7]() As SqlInt32
Get
Return m_iHw7
End Get
Set(ByVal Value As SqlInt32)
Dim iHw7Tmp As SqlInt32 = Value
If iHw7Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("iHw7", "iHw7 can't be NULL")
End If
m_iHw7 = Value
End Set
End Property
Public Property [iHw8]() As SqlInt32
Get
Return m_iHw8
End Get
Set(ByVal Value As SqlInt32)
Dim iHw8Tmp As SqlInt32 = Value
If iHw8Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("iHw8", "iHw8 can't be NULL")
End If
m_iHw8 = Value
End Set
End Property
Public Property [iHw9]() As SqlInt32
Get
Return m_iHw9
End Get
Set(ByVal Value As SqlInt32)
Dim iHw9Tmp As SqlInt32 = Value
If iHw9Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("iHw9", "iHw9 can't be NULL")
End If
m_iHw9 = Value
End Set
End Property
Public Property [iHw10]() As SqlInt32
Get
Return m_iHw10
End Get
Set(ByVal Value As SqlInt32)
Dim iHw10Tmp As SqlInt32 = Value
If iHw10Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("iHw10", "iHw10 can't be NULL")
End If
m_iHw10 = Value
End Set
End Property
Public Property [iHw11]() As SqlInt32
Get
Return m_iHw11
End Get
Set(ByVal Value As SqlInt32)
Dim iHw11Tmp As SqlInt32 = Value
If iHw11Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("iHw11", "iHw11 can't be NULL")
End If
m_iHw11 = Value
End Set
End Property
Public Property [sVmb]() As SqlString
Get
Return m_sVmb
End Get
Set(ByVal Value As SqlString)
Dim sVmbTmp As SqlString = Value
If sVmbTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sVmb", "sVmb can't be NULL")
End If
m_sVmb = Value
End Set
End Property
Public Property [sVnl]() As SqlString
Get
Return m_sVnl
End Get
Set(ByVal Value As SqlString)
Dim sVnlTmp As SqlString = Value
If sVnlTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sVnl", "sVnl can't be NULL")
End If
m_sVnl = Value
End Set
End Property
Public Property [sVkost]() As SqlString
Get
Return m_sVkost
End Get
Set(ByVal Value As SqlString)
Dim sVkostTmp As SqlString = Value
If sVkostTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sVkost", "sVkost can't be NULL")
End If
m_sVkost = Value
End Set
End Property
Public Property [sVteam]() As SqlString
Get
Return m_sVteam
End Get
Set(ByVal Value As SqlString)
Dim sVteamTmp As SqlString = Value
If sVteamTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sVteam", "sVteam can't be NULL")
End If
m_sVteam = Value
End Set
End Property
Public Property [sVma]() As SqlString
Get
Return m_sVma
End Get
Set(ByVal Value As SqlString)
Dim sVmaTmp As SqlString = Value
If sVmaTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sVma", "sVma can't be NULL")
End If
m_sVma = Value
End Set
End Property
Public Property [sMmb]() As SqlString
Get
Return m_sMmb
End Get
Set(ByVal Value As SqlString)
Dim sMmbTmp As SqlString = Value
If sMmbTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sMmb", "sMmb can't be NULL")
End If
m_sMmb = Value
End Set
End Property
Public Property [sMnl]() As SqlString
Get
Return m_sMnl
End Get
Set(ByVal Value As SqlString)
Dim sMnlTmp As SqlString = Value
If sMnlTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sMnl", "sMnl can't be NULL")
End If
m_sMnl = Value
End Set
End Property
Public Property [sMkost]() As SqlString
Get
Return m_sMkost
End Get
Set(ByVal Value As SqlString)
Dim sMkostTmp As SqlString = Value
If sMkostTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sMkost", "sMkost can't be NULL")
End If
m_sMkost = Value
End Set
End Property
Public Property [sMteam]() As SqlString
Get
Return m_sMteam
End Get
Set(ByVal Value As SqlString)
Dim sMteamTmp As SqlString = Value
If sMteamTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sMteam", "sMteam can't be NULL")
End If
m_sMteam = Value
End Set
End Property
Public Property [sMma]() As SqlString
Get
Return m_sMma
End Get
Set(ByVal Value As SqlString)
Dim sMmaTmp As SqlString = Value
If sMmaTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sMma", "sMma can't be NULL")
End If
m_sMma = Value
End Set
End Property
Public Property [sEmb]() As SqlString
Get
Return m_sEmb
End Get
Set(ByVal Value As SqlString)
Dim sEmbTmp As SqlString = Value
If sEmbTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sEmb", "sEmb can't be NULL")
End If
m_sEmb = Value
End Set
End Property
Public Property [sEnl]() As SqlString
Get
Return m_sEnl
End Get
Set(ByVal Value As SqlString)
Dim sEnlTmp As SqlString = Value
If sEnlTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sEnl", "sEnl can't be NULL")
End If
m_sEnl = Value
End Set
End Property
Public Property [sEkost]() As SqlString
Get
Return m_sEkost
End Get
Set(ByVal Value As SqlString)
Dim sEkostTmp As SqlString = Value
If sEkostTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sEkost", "sEkost can't be NULL")
End If
m_sEkost = Value
End Set
End Property
Public Property [sEteam]() As SqlString
Get
Return m_sEteam
End Get
Set(ByVal Value As SqlString)
Dim sEteamTmp As SqlString = Value
If sEteamTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sEteam", "sEteam can't be NULL")
End If
m_sEteam = Value
End Set
End Property
Public Property [sEma]() As SqlString
Get
Return m_sEma
End Get
Set(ByVal Value As SqlString)
Dim sEmaTmp As SqlString = Value
If sEmaTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sEma", "sEma can't be NULL")
End If
m_sEma = Value
End Set
End Property
Public Property [sDpartner]() As SqlString
Get
Return m_sDpartner
End Get
Set(ByVal Value As SqlString)
Dim sDpartnerTmp As SqlString = Value
If sDpartnerTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sDpartner", "sDpartner can't be NULL")
End If
m_sDpartner = Value
End Set
End Property
Public Property [sDdokart]() As SqlString
Get
Return m_sDdokart
End Get
Set(ByVal Value As SqlString)
Dim sDdokartTmp As SqlString = Value
If sDdokartTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sDdokart", "sDdokart can't be NULL")
End If
m_sDdokart = Value
End Set
End Property
Public Property [sDdokstatus]() As SqlString
Get
Return m_sDdokstatus
End Get
Set(ByVal Value As SqlString)
Dim sDdokstatusTmp As SqlString = Value
If sDdokstatusTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sDdokstatus", "sDdokstatus can't be NULL")
End If
m_sDdokstatus = Value
End Set
End Property
Public Property [sDatum1]() As SqlString
Get
Return m_sDatum1
End Get
Set(ByVal Value As SqlString)
Dim sDatum1Tmp As SqlString = Value
If sDatum1Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sDatum1", "sDatum1 can't be NULL")
End If
m_sDatum1 = Value
End Set
End Property
Public Property [sDatum2]() As SqlString
Get
Return m_sDatum2
End Get
Set(ByVal Value As SqlString)
Dim sDatum2Tmp As SqlString = Value
If sDatum2Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sDatum2", "sDatum2 can't be NULL")
End If
m_sDatum2 = Value
End Set
End Property
Public Property [sDatum3]() As SqlString
Get
Return m_sDatum3
End Get
Set(ByVal Value As SqlString)
Dim sDatum3Tmp As SqlString = Value
If sDatum3Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sDatum3", "sDatum3 can't be NULL")
End If
m_sDatum3 = Value
End Set
End Property
Public Property [sDatum4]() As SqlString
Get
Return m_sDatum4
End Get
Set(ByVal Value As SqlString)
Dim sDatum4Tmp As SqlString = Value
If sDatum4Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sDatum4", "sDatum4 can't be NULL")
End If
m_sDatum4 = Value
End Set
End Property
Public Property [sDatum5]() As SqlString
Get
Return m_sDatum5
End Get
Set(ByVal Value As SqlString)
Dim sDatum5Tmp As SqlString = Value
If sDatum5Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sDatum5", "sDatum5 can't be NULL")
End If
m_sDatum5 = Value
End Set
End Property
Public Property [sDatum6]() As SqlString
Get
Return m_sDatum6
End Get
Set(ByVal Value As SqlString)
Dim sDatum6Tmp As SqlString = Value
If sDatum6Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sDatum6", "sDatum6 can't be NULL")
End If
m_sDatum6 = Value
End Set
End Property
Public Property [sDatum7]() As SqlString
Get
Return m_sDatum7
End Get
Set(ByVal Value As SqlString)
Dim sDatum7Tmp As SqlString = Value
If sDatum7Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sDatum7", "sDatum7 can't be NULL")
End If
m_sDatum7 = Value
End Set
End Property
Public Property [sDatum8]() As SqlString
Get
Return m_sDatum8
End Get
Set(ByVal Value As SqlString)
Dim sDatum8Tmp As SqlString = Value
If sDatum8Tmp.IsNull Then
Throw New ArgumentOutOfRangeException("sDatum8", "sDatum8 can't be NULL")
End If
m_sDatum8 = Value
End Set
End Property
Public Property [sErstaelterals]() As SqlString
Get
Return m_sErstaelterals
End Get
Set(ByVal Value As SqlString)
Dim sErstaelteralsTmp As SqlString = Value
If sErstaelteralsTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sErstaelterals", "sErstaelterals can't be NULL")
End If
m_sErstaelterals = Value
End Set
End Property
Public Property [sMutaelterasl]() As SqlString
Get
Return m_sMutaelterasl
End Get
Set(ByVal Value As SqlString)
Dim sMutaelteraslTmp As SqlString = Value
If sMutaelteraslTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sMutaelterasl", "sMutaelterasl can't be NULL")
End If
m_sMutaelterasl = Value
End Set
End Property
Public Property [iTeam]() As SqlInt32
Get
Return m_iTeam
End Get
Set(ByVal Value As SqlInt32)
Dim iTeamTmp As SqlInt32 = Value
If iTeamTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iTeam", "iTeam can't be NULL")
End If
m_iTeam = Value
End Set
End Property
Public Property [sSort]() As SqlString
Get
Return m_sSort
End Get
Set(ByVal Value As SqlString)
Dim sSortTmp As SqlString = Value
If sSortTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sSort", "sSort can't be NULL")
End If
m_sSort = Value
End Set
End Property
Public Property [bAktive]() As SqlBoolean
Get
Return m_bAktive
End Get
Set(ByVal Value As SqlBoolean)
m_bAktive = Value
End Set
End Property
Public Property [iProfiltyp]() As SqlInt32
Get
Return m_iProfiltyp
End Get
Set(ByVal Value As SqlInt32)
m_iProfiltyp = Value
End Set
End Property
Public Property [sDoktyp]() As SqlString
Get
Return m_sDoktyp
End Get
Set(ByVal Value As SqlString)
m_sDoktyp = Value
End Set
End Property
Public Property [bInklmavip]() As SqlBoolean
Get
Return m_bInklmavip
End Get
Set(ByVal Value As SqlBoolean)
m_bInklmavip = Value
End Set
End Property
Public Property [bInklalt]() As SqlBoolean
Get
Return m_bInklalt
End Get
Set(ByVal Value As SqlBoolean)
m_bInklalt = Value
End Set
End Property
Public Property [sHostpartner]() As SqlString
Get
Return m_sHostpartner
End Get
Set(ByVal Value As SqlString)
m_sHostpartner = Value
End Set
End Property
Public Property [sHostdokart]() As SqlString
Get
Return m_sHostdokart
End Get
Set(ByVal Value As SqlString)
m_sHostdokart = Value
End Set
End Property
Public Property [sHostdoktyp]() As SqlString
Get
Return m_sHostdoktyp
End Get
Set(ByVal Value As SqlString)
m_sHostdoktyp = Value
End Set
End Property
Public Property [sHosttag1]() As SqlString
Get
Return m_sHosttag1
End Get
Set(ByVal Value As SqlString)
m_sHosttag1 = Value
End Set
End Property
Public Property [sHostdatum1]() As SqlString
Get
Return m_sHostdatum1
End Get
Set(ByVal Value As SqlString)
m_sHostdatum1 = Value
End Set
End Property
Public Property [sHosttag2]() As SqlString
Get
Return m_sHosttag2
End Get
Set(ByVal Value As SqlString)
m_sHosttag2 = Value
End Set
End Property
Public Property [sHostdatum2]() As SqlString
Get
Return m_sHostdatum2
End Get
Set(ByVal Value As SqlString)
m_sHostdatum2 = Value
End Set
End Property
Public Property [sHosttag3]() As SqlString
Get
Return m_sHosttag3
End Get
Set(ByVal Value As SqlString)
m_sHosttag3 = Value
End Set
End Property
Public Property [sHostdatum3]() As SqlString
Get
Return m_sHostdatum3
End Get
Set(ByVal Value As SqlString)
m_sHostdatum3 = Value
End Set
End Property
Public Property [bInklhostmavip]() As SqlBoolean
Get
Return m_bInklhostmavip
End Get
Set(ByVal Value As SqlBoolean)
m_bInklhostmavip = Value
End Set
End Property
Public Property [sUvmdoktyp]() As SqlString
Get
Return m_sUvmdoktyp
End Get
Set(ByVal Value As SqlString)
m_sUvmdoktyp = Value
End Set
End Property
Public Property [sUvmdatum1]() As SqlString
Get
Return m_sUvmdatum1
End Get
Set(ByVal Value As SqlString)
m_sUvmdatum1 = Value
End Set
End Property
Public Property [sUvmdatum2]() As SqlString
Get
Return m_sUvmdatum2
End Get
Set(ByVal Value As SqlString)
m_sUvmdatum2 = Value
End Set
End Property
Public Property [sUvmdatum3]() As SqlString
Get
Return m_sUvmdatum3
End Get
Set(ByVal Value As SqlString)
m_sUvmdatum3 = Value
End Set
End Property
Public Property [sUvmdatum4]() As SqlString
Get
Return m_sUvmdatum4
End Get
Set(ByVal Value As SqlString)
m_sUvmdatum4 = Value
End Set
End Property
Public Property [sUvmauftragnr]() As SqlString
Get
Return m_sUvmauftragnr
End Get
Set(ByVal Value As SqlString)
m_sUvmauftragnr = Value
End Set
End Property
Public Property [sZvdokumenttyp]() As SqlString
Get
Return m_sZvdokumenttyp
End Get
Set(ByVal Value As SqlString)
m_sZvdokumenttyp = Value
End Set
End Property
Public Property [sZvauftraggeber]() As SqlString
Get
Return m_sZvauftraggeber
End Get
Set(ByVal Value As SqlString)
m_sZvauftraggeber = Value
End Set
End Property
Public Property [sZvverarbeitungsart]() As SqlString
Get
Return m_sZvverarbeitungsart
End Get
Set(ByVal Value As SqlString)
m_sZvverarbeitungsart = Value
End Set
End Property
Public Property [sZvreferenznr]() As SqlString
Get
Return m_sZvreferenznr
End Get
Set(ByVal Value As SqlString)
m_sZvreferenznr = Value
End Set
End Property
Public Property [sZvzahlungsart]() As SqlString
Get
Return m_sZvzahlungsart
End Get
Set(ByVal Value As SqlString)
m_sZvzahlungsart = Value
End Set
End Property
Public Property [sZvpcnr]() As SqlString
Get
Return m_sZvpcnr
End Get
Set(ByVal Value As SqlString)
m_sZvpcnr = Value
End Set
End Property
Public Property [sZvclearingnr]() As SqlString
Get
Return m_sZvclearingnr
End Get
Set(ByVal Value As SqlString)
m_sZvclearingnr = Value
End Set
End Property
Public Property [sZvkontobeg]() As SqlString
Get
Return m_sZvkontobeg
End Get
Set(ByVal Value As SqlString)
m_sZvkontobeg = Value
End Set
End Property
Public Property [sZvswift]() As SqlString
Get
Return m_sZvswift
End Get
Set(ByVal Value As SqlString)
m_sZvswift = Value
End Set
End Property
Public Property [sZvvaluta]() As SqlString
Get
Return m_sZvvaluta
End Get
Set(ByVal Value As SqlString)
m_sZvvaluta = Value
End Set
End Property
Public Property [sZviso]() As SqlString
Get
Return m_sZviso
End Get
Set(ByVal Value As SqlString)
m_sZviso = Value
End Set
End Property
Public Property [sZvbetrag]() As SqlString
Get
Return m_sZvbetrag
End Get
Set(ByVal Value As SqlString)
m_sZvbetrag = Value
End Set
End Property
Public Property [sZvvvextern1]() As SqlString
Get
Return m_sZvvvextern1
End Get
Set(ByVal Value As SqlString)
m_sZvvvextern1 = Value
End Set
End Property
Public Property [sZvvvexter2]() As SqlString
Get
Return m_sZvvvexter2
End Get
Set(ByVal Value As SqlString)
m_sZvvvexter2 = Value
End Set
End Property
Public Property [sZvposten]() As SqlString
Get
Return m_sZvposten
End Get
Set(ByVal Value As SqlString)
m_sZvposten = Value
End Set
End Property
Public Property [sZvauftragnr]() As SqlString
Get
Return m_sZvauftragnr
End Get
Set(ByVal Value As SqlString)
m_sZvauftragnr = Value
End Set
End Property
Public Property [sZvarchivdatum]() As SqlString
Get
Return m_sZvarchivdatum
End Get
Set(ByVal Value As SqlString)
m_sZvarchivdatum = Value
End Set
End Property
Public Property [sZvdatum1]() As SqlString
Get
Return m_sZvdatum1
End Get
Set(ByVal Value As SqlString)
m_sZvdatum1 = Value
End Set
End Property
Public Property [sZvdatum2]() As SqlString
Get
Return m_sZvdatum2
End Get
Set(ByVal Value As SqlString)
m_sZvdatum2 = Value
End Set
End Property
Public Property [sZvdatum3]() As SqlString
Get
Return m_sZvdatum3
End Get
Set(ByVal Value As SqlString)
m_sZvdatum3 = Value
End Set
End Property
Public Property [sZvdatum4]() As SqlString
Get
Return m_sZvdatum4
End Get
Set(ByVal Value As SqlString)
m_sZvdatum4 = Value
End Set
End Property
Public Property [bInkInaktVersant]() As SqlBoolean
Get
Return m_bInkInaktVersant
End Get
Set(ByVal Value As SqlBoolean)
m_bInkInaktVersant = Value
End Set
End Property
#End Region
End Class
End Namespace