' /////////////////////////////////////////////////////////////////////////// ' // Description: Data Access class for the table 'Applikation' ' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 30. Oktober 2012, 12:34:31 ' // 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 TKB.VV.DB ''' ''' Purpose: Data Access class for the table 'Applikation'. ''' Public Class clsApplikation Inherits clsDBInteractionBase #Region " Class Member Declarations " Private m_bTicketXPert_WPIAnzeigen, m_bTicketXPert_AMAnzeigen, m_bRAS, m_bTicketXPertVerwendung, m_bIntranetObligatorisch, m_bIKVProviderVereinbart, m_bVerwendungIntragnet, m_bSensitiveDaten, m_bStrukturelement, m_bNurLizenz, m_bAlsProdukt, m_bAktiv As SqlBoolean Private m_daErstellt_am, m_daMutiert_am, m_daInaktivseit As SqlDateTime Private m_iApplikationNr, m_iSensitiveDatenAdministriertdurch, m_iApplikationVerantwortungNr, m_iTicketXPert_ITSPProduktnr, m_iParentID, m_iSecurityLevelNr, m_iMutierer, m_iSensitiveDatenUeberwachungPeriodizitaet, m_iIKVProviderAussfalldauerNr, m_iIKVLoesungNr, m_iFachlicheOe, m_iIKVBizAusfalldauerNr, m_iSensitiveDatenAnzahlComit, m_iSensitiveDatenAnzahlExterne, m_iIKVBizRelevanzNr, m_iApplikationTeamnr, m_iMarktbereichnr, m_iRfcBoardNr, m_iApplikationKategorieNr, m_iTicketXPert_ApplikationSMLTypNr, m_iTicketXPert_ApplikationKritikalitaetTypNr As SqlInt32 Private m_sAnzahl_Installationen, m_sBezeichnung, m_sTest_Aufwand, m_sIKVProviderBemerkung, m_sIKVLoesungBemerkung, m_sIntranetBezeichnung, m_sPrioWiederanlauf, m_sDatenbankname, m_sKurzbeschreibung, m_sTicketXPert_Preis, m_sSensitiveDatenUserBemerkung, m_sSensitiveDatenUeberwachungBemerkung, m_sSensitiveDatenBemerkung, m_sTicketXPert_Preis_Einmalig, m_sTest_Arbeitsplaetze, m_sIKVBIZBemerkung, m_sTest_Abhaengigkeiten, m_sVersion, m_sTest_Bemerkung As SqlString #End Region ''' ''' Purpose: Class constructor. ''' Public Sub New() ' // Nothing for now. End Sub ''' ''' Purpose: Insert method. This method will insert one new row into the database. ''' ''' True if succeeded, otherwise an Exception is thrown. ''' ''' Properties needed for this method: ''' ''' Properties set after a succesful call of this method: ''' ''' Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Applikation_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplikationNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentID)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplikationVerantwortungNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationVerantwortungNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplikationKategorieNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationKategorieNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplikationTeamnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationTeamnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iMarktbereichnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMarktbereichnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sVersion", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersion)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAlsProdukt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAlsProdukt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bNurLizenz", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bNurLizenz)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sPrioWiederanlauf", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPrioWiederanlauf)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sKurzbeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzbeschreibung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daInaktivseit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daInaktivseit)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bRAS", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bRAS)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sDatenbankname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatenbankname)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sAnzahl_Installationen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnzahl_Installationen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTest_Aufwand", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTest_Aufwand)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTest_Arbeitsplaetze", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTest_Arbeitsplaetze)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTest_Abhaengigkeiten", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTest_Abhaengigkeiten)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTest_Bemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTest_Bemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bTicketXPertVerwendung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bTicketXPertVerwendung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bTicketXPert_WPIAnzeigen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bTicketXPert_WPIAnzeigen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTicketXPert_Preis", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTicketXPert_Preis)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTicketXPert_Preis_Einmalig", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTicketXPert_Preis_Einmalig)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bTicketXPert_AMAnzeigen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bTicketXPert_AMAnzeigen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iTicketXPert_ApplikationKritikalitaetTypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTicketXPert_ApplikationKritikalitaetTypNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iTicketXPert_ApplikationSMLTypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTicketXPert_ApplikationSMLTypNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", 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("@iSecurityLevelNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSecurityLevelNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iRfcBoardNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iRfcBoardNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bSensitiveDaten", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSensitiveDaten)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSensitiveDatenBemerkung", SqlDbType.VarChar, 500, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSensitiveDatenBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iSensitiveDatenAdministriertdurch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSensitiveDatenAdministriertdurch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSensitiveDatenUeberwachungBemerkung", SqlDbType.VarChar, 500, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSensitiveDatenUeberwachungBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iSensitiveDatenUeberwachungPeriodizitaet", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSensitiveDatenUeberwachungPeriodizitaet)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSensitiveDatenUserBemerkung", SqlDbType.VarChar, 500, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSensitiveDatenUserBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iSensitiveDatenAnzahlComit", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSensitiveDatenAnzahlComit)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iSensitiveDatenAnzahlExterne", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSensitiveDatenAnzahlExterne)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bStrukturelement", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bStrukturelement)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iIKVBizRelevanzNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIKVBizRelevanzNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iIKVBizAusfalldauerNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIKVBizAusfalldauerNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sIKVBIZBemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIKVBIZBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bIKVProviderVereinbart", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bIKVProviderVereinbart)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iIKVProviderAussfalldauerNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIKVProviderAussfalldauerNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sIKVProviderBemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIKVProviderBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iIKVLoesungNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIKVLoesungNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sIKVLoesungBemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIKVLoesungBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iFachlicheOe", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFachlicheOe)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iTicketXPert_ITSPProduktnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTicketXPert_ITSPProduktnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sIntranetBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIntranetBezeichnung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bVerwendungIntragnet", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bVerwendungIntragnet)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bIntranetObligatorisch", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bIntranetObligatorisch)) 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. m_iRowsAffected = 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_Applikation_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("clsApplikation::Insert::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function ''' ''' Purpose: Update method. This method will Update one existing row in the database. ''' ''' True if succeeded, otherwise an Exception is thrown. ''' ''' Properties needed for this method: ''' ''' Properties set after a succesful call of this method: ''' ''' Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Applikation_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplikationNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentID)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplikationVerantwortungNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationVerantwortungNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplikationKategorieNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationKategorieNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplikationTeamnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iApplikationTeamnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iMarktbereichnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMarktbereichnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sVersion", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersion)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAlsProdukt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAlsProdukt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bNurLizenz", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bNurLizenz)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sPrioWiederanlauf", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPrioWiederanlauf)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sKurzbeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzbeschreibung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daInaktivseit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daInaktivseit)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bRAS", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bRAS)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sDatenbankname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDatenbankname)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sAnzahl_Installationen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnzahl_Installationen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTest_Aufwand", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTest_Aufwand)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTest_Arbeitsplaetze", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTest_Arbeitsplaetze)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTest_Abhaengigkeiten", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTest_Abhaengigkeiten)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTest_Bemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTest_Bemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bTicketXPertVerwendung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bTicketXPertVerwendung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bTicketXPert_WPIAnzeigen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bTicketXPert_WPIAnzeigen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTicketXPert_Preis", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTicketXPert_Preis)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTicketXPert_Preis_Einmalig", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTicketXPert_Preis_Einmalig)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bTicketXPert_AMAnzeigen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bTicketXPert_AMAnzeigen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iTicketXPert_ApplikationKritikalitaetTypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTicketXPert_ApplikationKritikalitaetTypNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iTicketXPert_ApplikationSMLTypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTicketXPert_ApplikationSMLTypNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", 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("@iSecurityLevelNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSecurityLevelNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iRfcBoardNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iRfcBoardNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bSensitiveDaten", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSensitiveDaten)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSensitiveDatenBemerkung", SqlDbType.VarChar, 500, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSensitiveDatenBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iSensitiveDatenAdministriertdurch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSensitiveDatenAdministriertdurch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSensitiveDatenUeberwachungBemerkung", SqlDbType.VarChar, 500, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSensitiveDatenUeberwachungBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iSensitiveDatenUeberwachungPeriodizitaet", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSensitiveDatenUeberwachungPeriodizitaet)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSensitiveDatenUserBemerkung", SqlDbType.VarChar, 500, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSensitiveDatenUserBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iSensitiveDatenAnzahlComit", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSensitiveDatenAnzahlComit)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iSensitiveDatenAnzahlExterne", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSensitiveDatenAnzahlExterne)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bStrukturelement", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bStrukturelement)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iIKVBizRelevanzNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIKVBizRelevanzNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iIKVBizAusfalldauerNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIKVBizAusfalldauerNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sIKVBIZBemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIKVBIZBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bIKVProviderVereinbart", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bIKVProviderVereinbart)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iIKVProviderAussfalldauerNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIKVProviderAussfalldauerNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sIKVProviderBemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIKVProviderBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iIKVLoesungNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIKVLoesungNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sIKVLoesungBemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIKVLoesungBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iFachlicheOe", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFachlicheOe)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iTicketXPert_ITSPProduktnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTicketXPert_ITSPProduktnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sIntranetBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIntranetBezeichnung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bVerwendungIntragnet", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bVerwendungIntragnet)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bIntranetObligatorisch", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bIntranetObligatorisch)) 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. m_iRowsAffected = 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_Applikation_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("clsApplikation::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function ''' ''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. ''' ''' True if succeeded, otherwise an Exception is thrown. ''' ''' Properties needed for this method: ''' ''' Properties set after a succesful call of this method: ''' ''' Overrides Public Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Applikation_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iApplikationNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationNr)) 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. m_iRowsAffected = 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_Applikation_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("clsApplikation::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function ''' ''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. ''' ''' DataTable object if succeeded, otherwise an Exception is thrown. ''' ''' Properties needed for this method: ''' ''' Properties set after a succesful call of this method: ''' ''' Will fill all properties corresponding with a field in the table with the value of the row selected. ''' Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Applikation_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("Applikation") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@iApplikationNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationNr)) 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_Applikation_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_iApplikationNr = New SqlInt32(CType(dtToReturn.Rows(0)("ApplikationNr"), 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)("ParentID") Is System.DBNull.Value Then m_iParentID = SqlInt32.Null Else m_iParentID = New SqlInt32(CType(dtToReturn.Rows(0)("ParentID"), Integer)) End If If dtToReturn.Rows(0)("ApplikationVerantwortungNr") Is System.DBNull.Value Then m_iApplikationVerantwortungNr = SqlInt32.Null Else m_iApplikationVerantwortungNr = New SqlInt32(CType(dtToReturn.Rows(0)("ApplikationVerantwortungNr"), Integer)) End If If dtToReturn.Rows(0)("ApplikationKategorieNr") Is System.DBNull.Value Then m_iApplikationKategorieNr = SqlInt32.Null Else m_iApplikationKategorieNr = New SqlInt32(CType(dtToReturn.Rows(0)("ApplikationKategorieNr"), Integer)) End If If dtToReturn.Rows(0)("ApplikationTeamnr") Is System.DBNull.Value Then m_iApplikationTeamnr = SqlInt32.Null Else m_iApplikationTeamnr = New SqlInt32(CType(dtToReturn.Rows(0)("ApplikationTeamnr"), Integer)) End If If dtToReturn.Rows(0)("Marktbereichnr") Is System.DBNull.Value Then m_iMarktbereichnr = SqlInt32.Null Else m_iMarktbereichnr = New SqlInt32(CType(dtToReturn.Rows(0)("Marktbereichnr"), Integer)) End If If dtToReturn.Rows(0)("Version") Is System.DBNull.Value Then m_sVersion = SqlString.Null Else m_sVersion = New SqlString(CType(dtToReturn.Rows(0)("Version"), String)) End If If dtToReturn.Rows(0)("AlsProdukt") Is System.DBNull.Value Then m_bAlsProdukt = SqlBoolean.Null Else m_bAlsProdukt = New SqlBoolean(CType(dtToReturn.Rows(0)("AlsProdukt"), Boolean)) End If If dtToReturn.Rows(0)("NurLizenz") Is System.DBNull.Value Then m_bNurLizenz = SqlBoolean.Null Else m_bNurLizenz = New SqlBoolean(CType(dtToReturn.Rows(0)("NurLizenz"), Boolean)) End If If dtToReturn.Rows(0)("PrioWiederanlauf") Is System.DBNull.Value Then m_sPrioWiederanlauf = SqlString.Null Else m_sPrioWiederanlauf = New SqlString(CType(dtToReturn.Rows(0)("PrioWiederanlauf"), String)) End If If dtToReturn.Rows(0)("Kurzbeschreibung") Is System.DBNull.Value Then m_sKurzbeschreibung = SqlString.Null Else m_sKurzbeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Kurzbeschreibung"), String)) End If If dtToReturn.Rows(0)("Inaktivseit") Is System.DBNull.Value Then m_daInaktivseit = SqlDateTime.Null Else m_daInaktivseit = New SqlDateTime(CType(dtToReturn.Rows(0)("Inaktivseit"), Date)) End If If dtToReturn.Rows(0)("RAS") Is System.DBNull.Value Then m_bRAS = SqlBoolean.Null Else m_bRAS = New SqlBoolean(CType(dtToReturn.Rows(0)("RAS"), Boolean)) End If If dtToReturn.Rows(0)("Datenbankname") Is System.DBNull.Value Then m_sDatenbankname = SqlString.Null Else m_sDatenbankname = New SqlString(CType(dtToReturn.Rows(0)("Datenbankname"), String)) End If If dtToReturn.Rows(0)("Anzahl_Installationen") Is System.DBNull.Value Then m_sAnzahl_Installationen = SqlString.Null Else m_sAnzahl_Installationen = New SqlString(CType(dtToReturn.Rows(0)("Anzahl_Installationen"), String)) End If If dtToReturn.Rows(0)("Test_Aufwand") Is System.DBNull.Value Then m_sTest_Aufwand = SqlString.Null Else m_sTest_Aufwand = New SqlString(CType(dtToReturn.Rows(0)("Test_Aufwand"), String)) End If If dtToReturn.Rows(0)("Test_Arbeitsplaetze") Is System.DBNull.Value Then m_sTest_Arbeitsplaetze = SqlString.Null Else m_sTest_Arbeitsplaetze = New SqlString(CType(dtToReturn.Rows(0)("Test_Arbeitsplaetze"), String)) End If If dtToReturn.Rows(0)("Test_Abhaengigkeiten") Is System.DBNull.Value Then m_sTest_Abhaengigkeiten = SqlString.Null Else m_sTest_Abhaengigkeiten = New SqlString(CType(dtToReturn.Rows(0)("Test_Abhaengigkeiten"), String)) End If If dtToReturn.Rows(0)("Test_Bemerkung") Is System.DBNull.Value Then m_sTest_Bemerkung = SqlString.Null Else m_sTest_Bemerkung = New SqlString(CType(dtToReturn.Rows(0)("Test_Bemerkung"), String)) End If If dtToReturn.Rows(0)("TicketXPertVerwendung") Is System.DBNull.Value Then m_bTicketXPertVerwendung = SqlBoolean.Null Else m_bTicketXPertVerwendung = New SqlBoolean(CType(dtToReturn.Rows(0)("TicketXPertVerwendung"), Boolean)) End If If dtToReturn.Rows(0)("TicketXPert_WPIAnzeigen") Is System.DBNull.Value Then m_bTicketXPert_WPIAnzeigen = SqlBoolean.Null Else m_bTicketXPert_WPIAnzeigen = New SqlBoolean(CType(dtToReturn.Rows(0)("TicketXPert_WPIAnzeigen"), Boolean)) End If If dtToReturn.Rows(0)("TicketXPert_Preis") Is System.DBNull.Value Then m_sTicketXPert_Preis = SqlString.Null Else m_sTicketXPert_Preis = New SqlString(CType(dtToReturn.Rows(0)("TicketXPert_Preis"), String)) End If If dtToReturn.Rows(0)("TicketXPert_Preis_Einmalig") Is System.DBNull.Value Then m_sTicketXPert_Preis_Einmalig = SqlString.Null Else m_sTicketXPert_Preis_Einmalig = New SqlString(CType(dtToReturn.Rows(0)("TicketXPert_Preis_Einmalig"), String)) End If If dtToReturn.Rows(0)("TicketXPert_AMAnzeigen") Is System.DBNull.Value Then m_bTicketXPert_AMAnzeigen = SqlBoolean.Null Else m_bTicketXPert_AMAnzeigen = New SqlBoolean(CType(dtToReturn.Rows(0)("TicketXPert_AMAnzeigen"), Boolean)) End If If dtToReturn.Rows(0)("TicketXPert_ApplikationKritikalitaetTypNr") Is System.DBNull.Value Then m_iTicketXPert_ApplikationKritikalitaetTypNr = SqlInt32.Null Else m_iTicketXPert_ApplikationKritikalitaetTypNr = New SqlInt32(CType(dtToReturn.Rows(0)("TicketXPert_ApplikationKritikalitaetTypNr"), Integer)) End If If dtToReturn.Rows(0)("TicketXPert_ApplikationSMLTypNr") Is System.DBNull.Value Then m_iTicketXPert_ApplikationSMLTypNr = SqlInt32.Null Else m_iTicketXPert_ApplikationSMLTypNr = New SqlInt32(CType(dtToReturn.Rows(0)("TicketXPert_ApplikationSMLTypNr"), 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)("SecurityLevelNr") Is System.DBNull.Value Then m_iSecurityLevelNr = SqlInt32.Null Else m_iSecurityLevelNr = New SqlInt32(CType(dtToReturn.Rows(0)("SecurityLevelNr"), Integer)) End If If dtToReturn.Rows(0)("RfcBoardNr") Is System.DBNull.Value Then m_iRfcBoardNr = SqlInt32.Null Else m_iRfcBoardNr = New SqlInt32(CType(dtToReturn.Rows(0)("RfcBoardNr"), Integer)) End If If dtToReturn.Rows(0)("SensitiveDaten") Is System.DBNull.Value Then m_bSensitiveDaten = SqlBoolean.Null Else m_bSensitiveDaten = New SqlBoolean(CType(dtToReturn.Rows(0)("SensitiveDaten"), Boolean)) End If If dtToReturn.Rows(0)("SensitiveDatenBemerkung") Is System.DBNull.Value Then m_sSensitiveDatenBemerkung = SqlString.Null Else m_sSensitiveDatenBemerkung = New SqlString(CType(dtToReturn.Rows(0)("SensitiveDatenBemerkung"), String)) End If If dtToReturn.Rows(0)("SensitiveDatenAdministriertdurch") Is System.DBNull.Value Then m_iSensitiveDatenAdministriertdurch = SqlInt32.Null Else m_iSensitiveDatenAdministriertdurch = New SqlInt32(CType(dtToReturn.Rows(0)("SensitiveDatenAdministriertdurch"), Integer)) End If If dtToReturn.Rows(0)("SensitiveDatenUeberwachungBemerkung") Is System.DBNull.Value Then m_sSensitiveDatenUeberwachungBemerkung = SqlString.Null Else m_sSensitiveDatenUeberwachungBemerkung = New SqlString(CType(dtToReturn.Rows(0)("SensitiveDatenUeberwachungBemerkung"), String)) End If If dtToReturn.Rows(0)("SensitiveDatenUeberwachungPeriodizitaet") Is System.DBNull.Value Then m_iSensitiveDatenUeberwachungPeriodizitaet = SqlInt32.Null Else m_iSensitiveDatenUeberwachungPeriodizitaet = New SqlInt32(CType(dtToReturn.Rows(0)("SensitiveDatenUeberwachungPeriodizitaet"), Integer)) End If If dtToReturn.Rows(0)("SensitiveDatenUserBemerkung") Is System.DBNull.Value Then m_sSensitiveDatenUserBemerkung = SqlString.Null Else m_sSensitiveDatenUserBemerkung = New SqlString(CType(dtToReturn.Rows(0)("SensitiveDatenUserBemerkung"), String)) End If If dtToReturn.Rows(0)("SensitiveDatenAnzahlComit") Is System.DBNull.Value Then m_iSensitiveDatenAnzahlComit = SqlInt32.Null Else m_iSensitiveDatenAnzahlComit = New SqlInt32(CType(dtToReturn.Rows(0)("SensitiveDatenAnzahlComit"), Integer)) End If If dtToReturn.Rows(0)("SensitiveDatenAnzahlExterne") Is System.DBNull.Value Then m_iSensitiveDatenAnzahlExterne = SqlInt32.Null Else m_iSensitiveDatenAnzahlExterne = New SqlInt32(CType(dtToReturn.Rows(0)("SensitiveDatenAnzahlExterne"), Integer)) End If If dtToReturn.Rows(0)("Strukturelement") Is System.DBNull.Value Then m_bStrukturelement = SqlBoolean.Null Else m_bStrukturelement = New SqlBoolean(CType(dtToReturn.Rows(0)("Strukturelement"), Boolean)) End If If dtToReturn.Rows(0)("IKVBizRelevanzNr") Is System.DBNull.Value Then m_iIKVBizRelevanzNr = SqlInt32.Null Else m_iIKVBizRelevanzNr = New SqlInt32(CType(dtToReturn.Rows(0)("IKVBizRelevanzNr"), Integer)) End If If dtToReturn.Rows(0)("IKVBizAusfalldauerNr") Is System.DBNull.Value Then m_iIKVBizAusfalldauerNr = SqlInt32.Null Else m_iIKVBizAusfalldauerNr = New SqlInt32(CType(dtToReturn.Rows(0)("IKVBizAusfalldauerNr"), Integer)) End If If dtToReturn.Rows(0)("IKVBIZBemerkung") Is System.DBNull.Value Then m_sIKVBIZBemerkung = SqlString.Null Else m_sIKVBIZBemerkung = New SqlString(CType(dtToReturn.Rows(0)("IKVBIZBemerkung"), String)) End If If dtToReturn.Rows(0)("IKVProviderVereinbart") Is System.DBNull.Value Then m_bIKVProviderVereinbart = SqlBoolean.Null Else m_bIKVProviderVereinbart = New SqlBoolean(CType(dtToReturn.Rows(0)("IKVProviderVereinbart"), Boolean)) End If If dtToReturn.Rows(0)("IKVProviderAussfalldauerNr") Is System.DBNull.Value Then m_iIKVProviderAussfalldauerNr = SqlInt32.Null Else m_iIKVProviderAussfalldauerNr = New SqlInt32(CType(dtToReturn.Rows(0)("IKVProviderAussfalldauerNr"), Integer)) End If If dtToReturn.Rows(0)("IKVProviderBemerkung") Is System.DBNull.Value Then m_sIKVProviderBemerkung = SqlString.Null Else m_sIKVProviderBemerkung = New SqlString(CType(dtToReturn.Rows(0)("IKVProviderBemerkung"), String)) End If If dtToReturn.Rows(0)("IKVLoesungNr") Is System.DBNull.Value Then m_iIKVLoesungNr = SqlInt32.Null Else m_iIKVLoesungNr = New SqlInt32(CType(dtToReturn.Rows(0)("IKVLoesungNr"), Integer)) End If If dtToReturn.Rows(0)("IKVLoesungBemerkung") Is System.DBNull.Value Then m_sIKVLoesungBemerkung = SqlString.Null Else m_sIKVLoesungBemerkung = New SqlString(CType(dtToReturn.Rows(0)("IKVLoesungBemerkung"), String)) End If If dtToReturn.Rows(0)("FachlicheOe") Is System.DBNull.Value Then m_iFachlicheOe = SqlInt32.Null Else m_iFachlicheOe = New SqlInt32(CType(dtToReturn.Rows(0)("FachlicheOe"), Integer)) End If If dtToReturn.Rows(0)("TicketXPert_ITSPProduktnr") Is System.DBNull.Value Then m_iTicketXPert_ITSPProduktnr = SqlInt32.Null Else m_iTicketXPert_ITSPProduktnr = New SqlInt32(CType(dtToReturn.Rows(0)("TicketXPert_ITSPProduktnr"), Integer)) End If If dtToReturn.Rows(0)("IntranetBezeichnung") Is System.DBNull.Value Then m_sIntranetBezeichnung = SqlString.Null Else m_sIntranetBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("IntranetBezeichnung"), String)) End If If dtToReturn.Rows(0)("VerwendungIntragnet") Is System.DBNull.Value Then m_bVerwendungIntragnet = SqlBoolean.Null Else m_bVerwendungIntragnet = New SqlBoolean(CType(dtToReturn.Rows(0)("VerwendungIntragnet"), Boolean)) End If If dtToReturn.Rows(0)("IntranetObligatorisch") Is System.DBNull.Value Then m_bIntranetObligatorisch = SqlBoolean.Null Else m_bIntranetObligatorisch = New SqlBoolean(CType(dtToReturn.Rows(0)("IntranetObligatorisch"), 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("clsApplikation::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function ''' ''' Purpose: SelectAll method. This method will Select all rows from the table. ''' ''' DataTable object if succeeded, otherwise an Exception is thrown. ''' ''' Properties set after a succesful call of this method: ''' ''' Overrides Public Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Applikation_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("Applikation") 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_Applikation_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("clsApplikation::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 [iApplikationNr]() As SqlInt32 Get Return m_iApplikationNr End Get Set(ByVal Value As SqlInt32) Dim iApplikationNrTmp As SqlInt32 = Value If iApplikationNrTmp.IsNull Then Throw New ArgumentOutOfRangeException("iApplikationNr", "iApplikationNr can't be NULL") End If m_iApplikationNr = 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 [iParentID]() As SqlInt32 Get Return m_iParentID End Get Set(ByVal Value As SqlInt32) m_iParentID = Value End Set End Property Public Property [iApplikationVerantwortungNr]() As SqlInt32 Get Return m_iApplikationVerantwortungNr End Get Set(ByVal Value As SqlInt32) m_iApplikationVerantwortungNr = Value End Set End Property Public Property [iApplikationKategorieNr]() As SqlInt32 Get Return m_iApplikationKategorieNr End Get Set(ByVal Value As SqlInt32) m_iApplikationKategorieNr = Value End Set End Property Public Property [iApplikationTeamnr]() As SqlInt32 Get Return m_iApplikationTeamnr End Get Set(ByVal Value As SqlInt32) m_iApplikationTeamnr = Value End Set End Property Public Property [iMarktbereichnr]() As SqlInt32 Get Return m_iMarktbereichnr End Get Set(ByVal Value As SqlInt32) m_iMarktbereichnr = Value End Set End Property Public Property [sVersion]() As SqlString Get Return m_sVersion End Get Set(ByVal Value As SqlString) m_sVersion = Value End Set End Property Public Property [bAlsProdukt]() As SqlBoolean Get Return m_bAlsProdukt End Get Set(ByVal Value As SqlBoolean) m_bAlsProdukt = Value End Set End Property Public Property [bNurLizenz]() As SqlBoolean Get Return m_bNurLizenz End Get Set(ByVal Value As SqlBoolean) m_bNurLizenz = Value End Set End Property Public Property [sPrioWiederanlauf]() As SqlString Get Return m_sPrioWiederanlauf End Get Set(ByVal Value As SqlString) m_sPrioWiederanlauf = Value End Set End Property Public Property [sKurzbeschreibung]() As SqlString Get Return m_sKurzbeschreibung End Get Set(ByVal Value As SqlString) m_sKurzbeschreibung = Value End Set End Property Public Property [daInaktivseit]() As SqlDateTime Get Return m_daInaktivseit End Get Set(ByVal Value As SqlDateTime) m_daInaktivseit = Value End Set End Property Public Property [bRAS]() As SqlBoolean Get Return m_bRAS End Get Set(ByVal Value As SqlBoolean) m_bRAS = Value End Set End Property Public Property [sDatenbankname]() As SqlString Get Return m_sDatenbankname End Get Set(ByVal Value As SqlString) m_sDatenbankname = Value End Set End Property Public Property [sAnzahl_Installationen]() As SqlString Get Return m_sAnzahl_Installationen End Get Set(ByVal Value As SqlString) m_sAnzahl_Installationen = Value End Set End Property Public Property [sTest_Aufwand]() As SqlString Get Return m_sTest_Aufwand End Get Set(ByVal Value As SqlString) m_sTest_Aufwand = Value End Set End Property Public Property [sTest_Arbeitsplaetze]() As SqlString Get Return m_sTest_Arbeitsplaetze End Get Set(ByVal Value As SqlString) m_sTest_Arbeitsplaetze = Value End Set End Property Public Property [sTest_Abhaengigkeiten]() As SqlString Get Return m_sTest_Abhaengigkeiten End Get Set(ByVal Value As SqlString) m_sTest_Abhaengigkeiten = Value End Set End Property Public Property [sTest_Bemerkung]() As SqlString Get Return m_sTest_Bemerkung End Get Set(ByVal Value As SqlString) m_sTest_Bemerkung = Value End Set End Property Public Property [bTicketXPertVerwendung]() As SqlBoolean Get Return m_bTicketXPertVerwendung End Get Set(ByVal Value As SqlBoolean) m_bTicketXPertVerwendung = Value End Set End Property Public Property [bTicketXPert_WPIAnzeigen]() As SqlBoolean Get Return m_bTicketXPert_WPIAnzeigen End Get Set(ByVal Value As SqlBoolean) m_bTicketXPert_WPIAnzeigen = Value End Set End Property Public Property [sTicketXPert_Preis]() As SqlString Get Return m_sTicketXPert_Preis End Get Set(ByVal Value As SqlString) m_sTicketXPert_Preis = Value End Set End Property Public Property [sTicketXPert_Preis_Einmalig]() As SqlString Get Return m_sTicketXPert_Preis_Einmalig End Get Set(ByVal Value As SqlString) m_sTicketXPert_Preis_Einmalig = Value End Set End Property Public Property [bTicketXPert_AMAnzeigen]() As SqlBoolean Get Return m_bTicketXPert_AMAnzeigen End Get Set(ByVal Value As SqlBoolean) m_bTicketXPert_AMAnzeigen = Value End Set End Property Public Property [iTicketXPert_ApplikationKritikalitaetTypNr]() As SqlInt32 Get Return m_iTicketXPert_ApplikationKritikalitaetTypNr End Get Set(ByVal Value As SqlInt32) m_iTicketXPert_ApplikationKritikalitaetTypNr = Value End Set End Property Public Property [iTicketXPert_ApplikationSMLTypNr]() As SqlInt32 Get Return m_iTicketXPert_ApplikationSMLTypNr End Get Set(ByVal Value As SqlInt32) m_iTicketXPert_ApplikationSMLTypNr = 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 [iSecurityLevelNr]() As SqlInt32 Get Return m_iSecurityLevelNr End Get Set(ByVal Value As SqlInt32) m_iSecurityLevelNr = Value End Set End Property Public Property [iRfcBoardNr]() As SqlInt32 Get Return m_iRfcBoardNr End Get Set(ByVal Value As SqlInt32) m_iRfcBoardNr = Value End Set End Property Public Property [bSensitiveDaten]() As SqlBoolean Get Return m_bSensitiveDaten End Get Set(ByVal Value As SqlBoolean) m_bSensitiveDaten = Value End Set End Property Public Property [sSensitiveDatenBemerkung]() As SqlString Get Return m_sSensitiveDatenBemerkung End Get Set(ByVal Value As SqlString) m_sSensitiveDatenBemerkung = Value End Set End Property Public Property [iSensitiveDatenAdministriertdurch]() As SqlInt32 Get Return m_iSensitiveDatenAdministriertdurch End Get Set(ByVal Value As SqlInt32) m_iSensitiveDatenAdministriertdurch = Value End Set End Property Public Property [sSensitiveDatenUeberwachungBemerkung]() As SqlString Get Return m_sSensitiveDatenUeberwachungBemerkung End Get Set(ByVal Value As SqlString) m_sSensitiveDatenUeberwachungBemerkung = Value End Set End Property Public Property [iSensitiveDatenUeberwachungPeriodizitaet]() As SqlInt32 Get Return m_iSensitiveDatenUeberwachungPeriodizitaet End Get Set(ByVal Value As SqlInt32) m_iSensitiveDatenUeberwachungPeriodizitaet = Value End Set End Property Public Property [sSensitiveDatenUserBemerkung]() As SqlString Get Return m_sSensitiveDatenUserBemerkung End Get Set(ByVal Value As SqlString) m_sSensitiveDatenUserBemerkung = Value End Set End Property Public Property [iSensitiveDatenAnzahlComit]() As SqlInt32 Get Return m_iSensitiveDatenAnzahlComit End Get Set(ByVal Value As SqlInt32) m_iSensitiveDatenAnzahlComit = Value End Set End Property Public Property [iSensitiveDatenAnzahlExterne]() As SqlInt32 Get Return m_iSensitiveDatenAnzahlExterne End Get Set(ByVal Value As SqlInt32) m_iSensitiveDatenAnzahlExterne = Value End Set End Property Public Property [bStrukturelement]() As SqlBoolean Get Return m_bStrukturelement End Get Set(ByVal Value As SqlBoolean) m_bStrukturelement = Value End Set End Property Public Property [iIKVBizRelevanzNr]() As SqlInt32 Get Return m_iIKVBizRelevanzNr End Get Set(ByVal Value As SqlInt32) m_iIKVBizRelevanzNr = Value End Set End Property Public Property [iIKVBizAusfalldauerNr]() As SqlInt32 Get Return m_iIKVBizAusfalldauerNr End Get Set(ByVal Value As SqlInt32) m_iIKVBizAusfalldauerNr = Value End Set End Property Public Property [sIKVBIZBemerkung]() As SqlString Get Return m_sIKVBIZBemerkung End Get Set(ByVal Value As SqlString) m_sIKVBIZBemerkung = Value End Set End Property Public Property [bIKVProviderVereinbart]() As SqlBoolean Get Return m_bIKVProviderVereinbart End Get Set(ByVal Value As SqlBoolean) m_bIKVProviderVereinbart = Value End Set End Property Public Property [iIKVProviderAussfalldauerNr]() As SqlInt32 Get Return m_iIKVProviderAussfalldauerNr End Get Set(ByVal Value As SqlInt32) m_iIKVProviderAussfalldauerNr = Value End Set End Property Public Property [sIKVProviderBemerkung]() As SqlString Get Return m_sIKVProviderBemerkung End Get Set(ByVal Value As SqlString) m_sIKVProviderBemerkung = Value End Set End Property Public Property [iIKVLoesungNr]() As SqlInt32 Get Return m_iIKVLoesungNr End Get Set(ByVal Value As SqlInt32) m_iIKVLoesungNr = Value End Set End Property Public Property [sIKVLoesungBemerkung]() As SqlString Get Return m_sIKVLoesungBemerkung End Get Set(ByVal Value As SqlString) m_sIKVLoesungBemerkung = Value End Set End Property Public Property [iFachlicheOe]() As SqlInt32 Get Return m_iFachlicheOe End Get Set(ByVal Value As SqlInt32) m_iFachlicheOe = Value End Set End Property Public Property [iTicketXPert_ITSPProduktnr]() As SqlInt32 Get Return m_iTicketXPert_ITSPProduktnr End Get Set(ByVal Value As SqlInt32) m_iTicketXPert_ITSPProduktnr = Value End Set End Property Public Property [sIntranetBezeichnung]() As SqlString Get Return m_sIntranetBezeichnung End Get Set(ByVal Value As SqlString) m_sIntranetBezeichnung = Value End Set End Property Public Property [bVerwendungIntragnet]() As SqlBoolean Get Return m_bVerwendungIntragnet End Get Set(ByVal Value As SqlBoolean) m_bVerwendungIntragnet = Value End Set End Property Public Property [bIntranetObligatorisch]() As SqlBoolean Get Return m_bIntranetObligatorisch End Get Set(ByVal Value As SqlBoolean) m_bIntranetObligatorisch = Value End Set End Property #End Region End Class End Namespace