Neue Applikation einfügen
[Visual Basic] Public Function Add_New() As Integer
[Visual Basic] Public Function Add_New() As Integer
Dim db As New TKB.VV.DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("Applikation")
db.Dispose()
Me.iApplikationNr = New SqlInt32(CType(newkey, Int32))
Me.iApplikationKategorieNr = New SqlInt32(CType(1, Int32))
Me.sBezeichnung = New SqlString(CType("", String))
Me.sKurzbeschreibung = New SqlString(CType("", String))
Me.sDatenbankname = New SqlString(CType("", String))
Me.sAnzahl_Installationen = New SqlString(CType("", String))
Me.iApplikationVerantwortungNr = New SqlInt32(CType(0, Int32))
Me.iApplikationTeamNr = New SqlInt32(CType(0, Int32))
Me.iMarktbereichnr = New SqlInt32(CType(0, Int32))
Me.iParentID = New SqlInt32(CType(0, Int32))
Me.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
Me.iTicketXPert_ApplikationKritikalitaetTypNr = New SqlInt32(CType(0, Int32))
Me.iTicketXPert_ApplikationSMLTypNr = New SqlInt32(CType(0, Int32))
Me.sVersion = New SqlString(CType("", String))
Me.bAlsProdukt = New SqlBoolean(CType(False, Boolean))
Me.bNurLizenz = New SqlBoolean(CType(False, Boolean))
Me.bRAS = New SqlBoolean(CType(False, Boolean))
Me.bTicketXPert_AMAnzeigen = New SqlBoolean(CType(False, Boolean))
Me.bTicketXPert_WPIAnzeigen = New SqlBoolean(CType(False, Boolean))
Me.sKurzbeschreibung = New SqlString(CType("", String))
Me.sPrioWiederanlauf = New SqlString(CType("", String))
Me.sTest_Abhaengigkeiten = New SqlString(CType("", String))
Me.sTest_Arbeitsplaetze = New SqlString(CType("", String))
Me.sTest_Aufwand = New SqlString(CType("0", String))
Me.sTest_Bemerkung = New SqlString(CType("", String))
Me.sTest_Bemerkung = New SqlString(CType("", String))
Me.bTicketXPertVerwendung = New SqlBoolean(CType(False, Boolean))
Me.sTicketXPert_Preis = New SqlString(CType("", String))
Me.sTicketXPert_Preis_Einmalig = New SqlString(CType("", String))
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
Me.iRfcBoardNr = New SqlInt32(CType(0, Int32))
Me.bSensitiveDaten = New SqlBoolean(CType(False, Boolean))
Me.sSensitiveDatenBemerkung = New SqlString(CType("", String))
Me.iSensitiveDatenAdministriertdurch = New SqlInt32(CType(0, Int32))
Me.sSensitiveDatenUeberwachungBemerkung = New SqlString(CType("", String))
Me.iSensitiveDatenUeberwachungPeriodizitaet = New SqlInt32(CType(0, Int32))
Me.sSensitiveDatenUserBemerkung = New SqlString(CType("", String))
Me.iSensitiveDatenAnzahlComit = New SqlInt32(CType(0, Int32))
Me.iSensitiveDatenAnzahlExterne = New SqlInt32(CType(0, Int32))
Me.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
Me.cpMainConnectionProvider = Globals.conn
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Return newkey
End Function
Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition