You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1207 lines
55 KiB
1207 lines
55 KiB
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
|