Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient

Namespace TKB.VV.DB
	Public Class clsApplikation
		Inherits clsDBInteractionBase

#Region " Class Member Declarations "

		Private 		m_bTicketXPert_WPIAnzeigen, m_bTicketXPert_AMAnzeigen, m_bRAS, m_bTicketXPertVerwendung, m_bErstloesungsquote, m_bVerwendungIntragnet, m_bIntranetObligatorisch, m_bStrukturelement, m_bIKVProviderVereinbart, m_bNurLizenz, m_bAlsProdukt, m_bAktiv As SqlBoolean
		Private 		m_daErstellt_am, m_daMutiert_am, m_daInaktivseit As SqlDateTime
		Private 		m_iSensitiveDaten, m_iSensitiveDatenUeberwachungPeriodizitaet, m_iSensitiveDatenAdministriertdurch, m_iTicketXPert_ITSPProduktnr, m_iIKVBizRelevanzNr, m_iApplikationNr, m_iSecurityLevelNr, m_iSensitiveDatenAnzahlComit, m_iIKVProviderAussfalldauerNr, m_iIKVLoesungNr, m_iFachlicheOe, m_iParentID, m_iSensitiveDatenAnzahlExterne, m_iApplikationVerantwortungNr, m_iIKVBizAusfalldauerNr, m_iMutierer, m_iApplikationTeamnr, m_iRfcBoardNr, m_iMarktbereichnr, m_iTicketXPert_ApplikationSMLTypNr, m_iTicketXPert_ApplikationKritikalitaetTypNr, m_iApplikationKategorieNr As SqlInt32
		Private 		m_sIKVLoesungBemerkung, m_sTest_Aufwand, m_sIKVProviderBemerkung, m_sAnzahl_Installationen, m_sDatenbankname, m_sBezeichnung, m_sPrioWiederanlauf, m_sKurzbeschreibung, m_sIntranetBezeichnung, m_sSensitiveDatenUserBemerkung, m_sTicketXPert_Preis, m_sTicketXPert_Preis_Einmalig, m_sSensitiveDatenBemerkung, m_sSensitiveDatenUeberwachungBemerkung, m_sIKVBIZBemerkung, m_sTest_Arbeitsplaetze, m_sTest_Abhaengigkeiten, m_sVersion, m_sTest_Bemerkung As SqlString

#End Region


		Public Sub New()
			' // Nothing for now.
		End Sub


		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("@iSensitiveDaten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSensitiveDaten))
				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("@bErstloesungsquote", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bErstloesungsquote))
				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


		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("@iSensitiveDaten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSensitiveDaten))
				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("@bErstloesungsquote", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bErstloesungsquote))
				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


		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


		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_iSensitiveDaten = SqlInt32.Null
					Else
						m_iSensitiveDaten = New SqlInt32(CType(dtToReturn.Rows(0)("SensitiveDaten"), Integer))
					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
					If dtToReturn.Rows(0)("Erstloesungsquote") Is System.DBNull.Value Then
						m_bErstloesungsquote = SqlBoolean.Null
					Else
						m_bErstloesungsquote = New SqlBoolean(CType(dtToReturn.Rows(0)("Erstloesungsquote"), 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


		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 [iSensitiveDaten]() As SqlInt32
			Get
				Return m_iSensitiveDaten
			End Get
			Set(ByVal Value As SqlInt32)
				m_iSensitiveDaten = 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


		Public Property [bErstloesungsquote]() As SqlBoolean
			Get
				Return m_bErstloesungsquote
			End Get
			Set(ByVal Value As SqlBoolean)
				m_bErstloesungsquote = Value
			End Set
		End Property

#End Region

	End Class
End Namespace