|
|
Imports C1.Win.C1TrueDBGrid
|
|
|
Imports System
|
|
|
Imports System.Data
|
|
|
Imports System.Data.SqlTypes
|
|
|
Imports System.Data.SqlClient
|
|
|
Namespace TKB.VV.Applikation
|
|
|
|
|
|
Public Class clsApplikation
|
|
|
Inherits TKB.VV.DB.clsApplikation
|
|
|
|
|
|
#Region "Deklarationen"
|
|
|
Private Stammdaten As New TKB.VV.Stammdaten.clsStammdaten
|
|
|
'2012-04-11 - Erweiterung ITSP-Produktmapping
|
|
|
Public ITSPPordukte As New DataTable
|
|
|
'-----------------------------------
|
|
|
Public kategorien As New DataTable
|
|
|
|
|
|
Public Applikation As TKB.VV.DB.clsApplikation
|
|
|
Public daten As New DataTable
|
|
|
|
|
|
Public Parentelemente As New TKB.VV.Vertrag.clsParentelemente
|
|
|
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
|
|
|
|
|
|
'Private Verantwortung As New TKB.VV.DB.clsApplikationVerantwortung
|
|
|
Public Verantwortungen As New DataTable
|
|
|
Public FachlicheOE As New DataTable
|
|
|
|
|
|
'Private Kategorie As New TKB.VV.DB.clsApplikationKategorie
|
|
|
'Public Kategorien As New DataTable
|
|
|
|
|
|
'Private Marktbereich As New TKB.VV.DB.clsMarktbereich
|
|
|
Public Marktbereiche As New DataTable
|
|
|
|
|
|
'Private Kritikalitaet As New TKB.VV.DB.clsApplikationKritikalitaetTyp
|
|
|
Public Kritikalitaeten As New DataTable
|
|
|
|
|
|
'Private SLM As New TKB.VV.DB.clsApplikationSLMTyp
|
|
|
Public SLMs As New DataTable
|
|
|
|
|
|
Public RFCBoards As New DataTable
|
|
|
|
|
|
Private Installiert_auf As New TKB.VV.DB.clsInstallationTyp
|
|
|
Public Installiertauf As New DataTable
|
|
|
|
|
|
Private Installiert_als As New TKB.VV.DB.clsInstallationAlsTyp
|
|
|
Public Installiertals As New DataTable
|
|
|
|
|
|
Private Installation_Standard As New TKB.VV.DB.clsApplikationStandardTyp
|
|
|
Public InstallationStandard As New DataTable
|
|
|
|
|
|
Public AbhaengigkeitsTyp As New DataTable
|
|
|
|
|
|
Public Applikation_Installationtyp As New TKB.VV.DB.clsApplikationInstallationTyp
|
|
|
Public ApplikationInstallationTyp As New DataTable
|
|
|
|
|
|
Public Applikation_Installationals As New TKB.VV.DB.clsApplikationInstallationAls
|
|
|
Public ApplikationInstallationals As New DataTable
|
|
|
|
|
|
Public Applikation_InstallationFuer As New TKB.VV.DB.clsApplikationInstallationFuer
|
|
|
Public ApplikationInstallationFuer As New DataTable
|
|
|
|
|
|
Public Applikation_ApplikationAbhaengigkeit As New TKB.VV.DB.clsApplikationApplikationAbhaengigkeit
|
|
|
Public ApplikationApplikationAbhaengigkeit As New DataTable
|
|
|
|
|
|
|
|
|
Public Vertragselement As New TKB.VV.Vertrag.clsVertragselement
|
|
|
|
|
|
Private Testaufwand As New TKB.VV.DB.clsApplikationTestAZ
|
|
|
Public TestAufwendungen As New DataTable
|
|
|
|
|
|
Public Teams As New DataTable
|
|
|
Public Periodizit<69>ten As New DataTable
|
|
|
Public SDAdministratoren As New DataTable
|
|
|
|
|
|
Public Applikationabhaengigkeit As New TKB.VV.Applikation.clsApplikationsabhaengigkeit
|
|
|
Public Applikationabhaengigkeiten As TKB.VV.Sysadmin.DomainTable
|
|
|
|
|
|
Public Lizenzkauf As New DataTable
|
|
|
Public Lizenzschluessel As New DataTable
|
|
|
|
|
|
Public IKVGeschaeftsrelevanz As New DataTable
|
|
|
Public IKVMaximaleAusfalldauer As New DataTable
|
|
|
Public IKVVereinbarteAusfalldauer As New DataTable
|
|
|
Public IKVArt As New DataTable
|
|
|
|
|
|
|
|
|
|
|
|
Dim mMutierer As String
|
|
|
Property MutiererText() As String
|
|
|
Get
|
|
|
Return mMutierer
|
|
|
End Get
|
|
|
Set(ByVal value As String)
|
|
|
mMutierer = value
|
|
|
End Set
|
|
|
End Property
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
Sub New()
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
'Verantwortung.cpMainConnectionProvider = Globals.conn
|
|
|
'Verantwortungen = Verantwortung.SelectAll
|
|
|
|
|
|
'Verantwortungen = Stammdaten.Get_Stammdaten("ApplikationVerantwortung", "Bezeichnung")
|
|
|
Verantwortungen = Stammdaten.Get_Gremium(1, 0)
|
|
|
FachlicheOE = Stammdaten.Get_Gremium(1, 0)
|
|
|
RFCBoards = Stammdaten.Get_Gremium(4, 0)
|
|
|
|
|
|
'Kategorie.cpMainConnectionProvider = Globals.conn
|
|
|
'Kategorien = Kategorie.SelectAll
|
|
|
kategorien = stammdaten.Get_Stammdaten("Applikationkategorie", "Bezeichnung")
|
|
|
|
|
|
'Marktbereich.cpMainConnectionProvider = Globals.conn
|
|
|
'Marktbereiche = Marktbereich.SelectAll
|
|
|
Marktbereiche = Stammdaten.Get_Stammdaten("Marktbereich", "Bezeichnung")
|
|
|
Marktbereiche = Stammdaten.Get_Gremium(3, 0)
|
|
|
|
|
|
'Kritikalitaet.cpMainConnectionProvider = Globals.conn
|
|
|
'Kritikalitaeten = Kritikalitaet.SelectAll
|
|
|
Kritikalitaeten = stammdaten.Get_Stammdaten("ApplikationKritikalitaetTyp", "Bezeichnung")
|
|
|
|
|
|
'SLM.cpMainConnectionProvider = Globals.conn
|
|
|
'SLMs = SLM.SelectAll
|
|
|
SLMs = stammdaten.Get_Stammdaten("ApplikationSLMTyp", "Bezeichnung")
|
|
|
|
|
|
Installiert_auf.cpMainConnectionProvider = Globals.conn
|
|
|
Installiertauf = Stammdaten.Get_Stammdaten("InstallationTyp", "Bezeichnung")
|
|
|
|
|
|
Installiert_als.cpMainConnectionProvider = Globals.conn
|
|
|
Installiertals = Stammdaten.Get_Stammdaten("InstallationAlsTyp", "Bezeichnung")
|
|
|
|
|
|
Installation_Standard.cpMainConnectionProvider = Globals.conn
|
|
|
InstallationStandard = Stammdaten.Get_Stammdaten("ApplikationStandardTyp", "Bezeichnung")
|
|
|
|
|
|
AbhaengigkeitsTyp = Stammdaten.Get_Stammdaten("ApplikationAbhaengigkeitTyp", "Bezeichnung")
|
|
|
|
|
|
Testaufwand.cpMainConnectionProvider = Globals.conn
|
|
|
TestAufwendungen = Testaufwand.SelectAll
|
|
|
|
|
|
Teams = Stammdaten.Get_Stammdaten("ApplikationTeam", "Bezeichnung")
|
|
|
Periodizit<69>ten = Stammdaten.Get_Stammdaten("Periodizitaet", "Sort")
|
|
|
SDAdministratoren = Stammdaten.Get_Stammdaten("SDAdministrator", "Bezeichnung")
|
|
|
|
|
|
IKVGeschaeftsrelevanz = Stammdaten.Get_Stammdaten("Applikation_IKV_Relevanztyp", "Bezeichnung")
|
|
|
IKVMaximaleAusfalldauer = Stammdaten.Get_Stammdaten("Applikation_IKV_Ausfalldauer", "Reihenfolge")
|
|
|
IKVVereinbarteAusfalldauer = Stammdaten.Get_Stammdaten("Applikation_IKV_VereinbarteAusfalldauer", "Reihenfolge")
|
|
|
IKVArt = Stammdaten.Get_Stammdaten("Applikation_IKV_LoesungTyp", "Bezeichnung")
|
|
|
|
|
|
'2012-04-11 Erweiterung ITSP-Proudktmapping
|
|
|
ITSPPordukte = Stammdaten.Get_Stammdaten("ITSPProdukt", "Bezeichnung")
|
|
|
End Sub
|
|
|
|
|
|
Public Overloads Sub dispose()
|
|
|
MyBase.Dispose()
|
|
|
Try
|
|
|
Applikation.Dispose()
|
|
|
Verantwortungen.Dispose()
|
|
|
'Verantwortung.Dispose()
|
|
|
Kategorien.Dispose()
|
|
|
'Kategorie.Dispose()
|
|
|
Marktbereiche.Dispose()
|
|
|
'Marktbereich.Dispose()
|
|
|
Kritikalitaeten.Dispose()
|
|
|
'Kritikalitaet.Dispose()
|
|
|
SLMs.Dispose()
|
|
|
'SLM.Dispose()
|
|
|
Installiert_auf.Dispose()
|
|
|
AbhaengigkeitsTyp.Dispose()
|
|
|
Installiertauf.Dispose()
|
|
|
Installiert_als.Dispose()
|
|
|
Installiertals.Dispose()
|
|
|
Installation_Standard.Dispose()
|
|
|
InstallationStandard.Dispose()
|
|
|
Applikation_Installationtyp.Dispose()
|
|
|
ApplikationInstallationTyp.Dispose()
|
|
|
Applikation_Installationals.Dispose()
|
|
|
ApplikationInstallationals.Dispose()
|
|
|
Applikation_InstallationFuer.Dispose()
|
|
|
Applikation_ApplikationAbhaengigkeit.Dispose()
|
|
|
ApplikationInstallationFuer.Dispose()
|
|
|
Vertragselement.dispose()
|
|
|
TestAufwendungen.Dispose()
|
|
|
Testaufwand.Dispose()
|
|
|
Dokument.Dispose()
|
|
|
dokumente.Dispose()
|
|
|
RFCBoards.Dispose()
|
|
|
Teams.Dispose()
|
|
|
Periodizit<69>ten.Dispose()
|
|
|
SDAdministratoren.Dispose()
|
|
|
Me.Applikationabhaengigkeit.dispose()
|
|
|
Me.Applikationabhaengigkeiten.dispose()
|
|
|
Me.Lizenzkauf.Dispose()
|
|
|
Me.Lizenzschluessel.Dispose()
|
|
|
Applikation = Nothing
|
|
|
|
|
|
IKVGeschaeftsrelevanz.Dispose()
|
|
|
IKVMaximaleAusfalldauer.Dispose()
|
|
|
IKVVereinbarteAusfalldauer.Dispose()
|
|
|
IKVArt.Dispose()
|
|
|
'2012-04-11 Erweiterung ITSP-Proudktmapping
|
|
|
ITSPPordukte.Dispose()
|
|
|
Catch
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
''' <summary>
|
|
|
''' Mutierer auslesen
|
|
|
''' </summary>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Get_Mutierer(ByVal nr As Integer) As String
|
|
|
Dim ma As New TKB.VV.DB.clsMitarbeiter
|
|
|
Dim dt As New DataTable
|
|
|
Dim Retvalue As String
|
|
|
ma.cpMainConnectionProvider = Globals.conn
|
|
|
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
|
|
|
dt = ma.SelectOne()
|
|
|
If dt.Rows.Count = 0 Then
|
|
|
Retvalue = ("{" + nr.ToString + "}")
|
|
|
Else
|
|
|
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
|
|
|
End If
|
|
|
ma.Dispose()
|
|
|
dt.Dispose()
|
|
|
Return Retvalue
|
|
|
End Function
|
|
|
|
|
|
|
|
|
|
|
|
''' <summary>
|
|
|
''' Applikation lesen
|
|
|
''' </summary>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Sub Get_Applikation(ByVal nr As Integer)
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
Me.iApplikationNr = New SqlInt32(CType(nr, Int32))
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.daten = Me.SelectOne()
|
|
|
Applikation_Installationtyp.cpMainConnectionProvider = Globals.conn
|
|
|
Applikation_Installationtyp.iApplikationNr = New SqlInt32(CType(nr, Int32))
|
|
|
ApplikationInstallationTyp = Applikation_Installationtyp.SelectAllWApplikationNrLogic
|
|
|
|
|
|
Applikation_Installationals.cpMainConnectionProvider = Globals.conn
|
|
|
Applikation_Installationals.iApplikationNr = New SqlInt32(CType(nr, Int32))
|
|
|
ApplikationInstallationals = Applikation_Installationals.SelectAllWApplikationNrLogic
|
|
|
|
|
|
'Applikation_InstallationFuer.cpMainConnectionProvider = Globals.conn
|
|
|
'Applikation_InstallationFuer.iApplikationNr = New SqlInt32(CType(nr, Int32))
|
|
|
'applikationinstallationfuer = Applikation_InstallationFuer.SelectAllWApplikationNrLogic
|
|
|
|
|
|
Applikation_ApplikationAbhaengigkeit.cpMainConnectionProvider = Globals.conn
|
|
|
Applikation_ApplikationAbhaengigkeit.iApplikationNr = New SqlInt32(CType(nr, Int32))
|
|
|
ApplikationApplikationAbhaengigkeit = Applikation_ApplikationAbhaengigkeit.SelectAllWApplikationNrLogic
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
Me.Mutierertext = Get_Mutierer(Me.iMutierer.Value)
|
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
|
''' Neue Applikation einf<6E>gen
|
|
|
''' </summary>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
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.bVerwendungIntragnet = New SqlBoolean(CType(False, Boolean))
|
|
|
Me.bIntranetObligatorisch = New SqlBoolean(CType(False, Boolean))
|
|
|
Me.sIntranetBezeichnung = New SqlString(CType("", String))
|
|
|
Me.bErstloesungsquote = New SqlBoolean(CType(False, Boolean))
|
|
|
Me.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
|
|
|
|
|
|
Me.iIKVBizAusfalldauerNr = New SqlInt32(CType(0, Int32))
|
|
|
Me.iIKVBizRelevanzNr = New SqlInt32(CType(0, Int32))
|
|
|
Me.iIKVLoesungNr = New SqlInt32(CType(0, Int32))
|
|
|
Me.iIKVProviderAussfalldauerNr = New SqlInt32(CType(0, Int32))
|
|
|
Me.sIKVBIZBemerkung = New SqlString(CType("", String))
|
|
|
Me.sIKVLoesungBemerkung = New SqlString(CType("", String))
|
|
|
Me.sIKVProviderBemerkung = New SqlString(CType("", String))
|
|
|
Me.bIKVProviderVereinbart = New SqlBoolean(CType(False, Boolean))
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.Insert()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
Return newkey
|
|
|
End Function
|
|
|
|
|
|
|
|
|
''' <summary>
|
|
|
''' Applikation sichern
|
|
|
''' </summary>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Save_Data() As Integer
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
|
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.Update()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
|
''' Kopie eines Datensatzes erstellen.
|
|
|
''' </summary>
|
|
|
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Create_Copy(Optional ByVal Basenr As Integer = 0) As Integer
|
|
|
If Basenr <> 0 Then
|
|
|
Get_Applikation(Basenr)
|
|
|
End If
|
|
|
Dim db As New TKB.VV.DB.clsMyKey_Tabelle
|
|
|
db.cpMainConnectionProvider = Globals.conn
|
|
|
Dim newkey = db.get_dbkey("Applikation")
|
|
|
db.Dispose()
|
|
|
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
Me.iApplikationNr = New SqlInt32(CType(newkey, Int32))
|
|
|
Me.sBezeichnung = New SqlString(CType("Kopie - " + Me.sBezeichnung.Value.ToString, String))
|
|
|
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))
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.Insert()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
Return newkey
|
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
|
''' L<>schen eines Datensatzes
|
|
|
''' </summary>
|
|
|
''' <param name="Basenr">Ursprungs-Applikatoin: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Delete_Applikation(Optional ByVal Basenr As Integer = 0) As Integer
|
|
|
If Basenr <> 0 Then
|
|
|
Get_Applikation(Basenr)
|
|
|
End If
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
|
|
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
|
Me.daInaktivseit = New SqlDateTime(CType(Now, DateTime))
|
|
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.Update()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
End Function
|
|
|
|
|
|
Public Sub Save_CheckedData(ByRef clb As CheckedListBox, ByVal typ As Integer)
|
|
|
Dim i As Integer
|
|
|
Dim oc As CheckedListBox.ObjectCollection = clb.Items
|
|
|
For i = 0 To oc.Count - 1
|
|
|
Update_Data(oc.Item(i).item(0), clb.GetItemChecked(i), typ)
|
|
|
Next
|
|
|
End Sub
|
|
|
|
|
|
Public Sub Update_Data(ByVal Key As Integer, ByVal checked As Boolean, ByVal typ As Integer)
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
Dim CheckState As Integer
|
|
|
If checked Then CheckState = 1 Else CheckState = 0
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_update_CheckedListBoxData"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Applikationsnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.iApplikationNr.Value))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, typ))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Checked", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, CheckState))
|
|
|
conn.OpenConnection()
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
|
conn.CloseConnection(True)
|
|
|
Catch ex As Exception
|
|
|
Throw New Exception("clsApplikation::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
#Region "Dokumente"
|
|
|
Public dokumente As New DataTable
|
|
|
Public Dokument As New TKB.VV.DMS.clsDok
|
|
|
|
|
|
''' <summary>
|
|
|
''' Dokumente lesen und dem Grid <20>bergeben
|
|
|
''' </summary>
|
|
|
''' <param name="c1data">C1TrueDBGrid mit Dokumente</param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Get_Dokumente(ByRef c1data As C1TrueDBGrid, Optional ByVal ImgList As ImageList = Nothing)
|
|
|
Try
|
|
|
dokumente.dispose()
|
|
|
dokumente = Nothing
|
|
|
Catch ex As Exception
|
|
|
|
|
|
End Try
|
|
|
dokumente = Dokument.Get_Dokumente(Me.iApplikationNr.Value, 3)
|
|
|
c1data.DataSource = dokumente
|
|
|
c1data.DataMember = dokumente.TableName
|
|
|
If Not ImgList Is Nothing Then
|
|
|
Set_Imagevalues(c1data, ImgList)
|
|
|
End If
|
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
|
''' Dokumente lesen und dem Grid <20>bergeben
|
|
|
''' </summary>
|
|
|
''' <param name="c1data">C1TrueDBGrid mit Dokumente</param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Get_Drehbuecker(ByRef c1data As C1TrueDBGrid, Optional ByVal ImgList As ImageList = Nothing)
|
|
|
Try
|
|
|
dokumente.Dispose()
|
|
|
dokumente = Nothing
|
|
|
Catch ex As Exception
|
|
|
|
|
|
End Try
|
|
|
dokumente = Dokument.Get_Dokumente(Me.iApplikationNr.Value, 2)
|
|
|
c1data.DataSource = dokumente
|
|
|
c1data.DataMember = dokumente.TableName
|
|
|
If Not ImgList Is Nothing Then
|
|
|
Set_Imagevalues(c1data, ImgList)
|
|
|
End If
|
|
|
End Function
|
|
|
|
|
|
Private Sub Set_Imagevalues(ByRef c1data As C1TrueDBGrid, ByRef imglist As ImageList)
|
|
|
|
|
|
Dim i As Integer
|
|
|
Dim s As String
|
|
|
For i = 0 To dokumente.Rows.Count - 1
|
|
|
s = dokumente.Rows(i).Item("Filename")
|
|
|
If Len(s) < 4 Then s = ".div"
|
|
|
Select Case UCase(s.Substring(Len(s) - 4, 4))
|
|
|
Case ".PDF"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 0
|
|
|
Case ".DOC"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 1
|
|
|
Case ".XLS"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 2
|
|
|
Case ".PPT"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 3
|
|
|
Case ".HTM", "TML", "XML"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 4
|
|
|
Case ".MSG"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 5
|
|
|
Case Else
|
|
|
dokumente.Rows(i).Item("DokIcon") = 6
|
|
|
End Select
|
|
|
Next
|
|
|
|
|
|
Dim bmp0 As New Bitmap(imglist.Images(0))
|
|
|
Dim bmp1 As New Bitmap(imglist.Images(1))
|
|
|
Dim bmp2 As New Bitmap(imglist.Images(2))
|
|
|
Dim bmp3 As New Bitmap(imglist.Images(3))
|
|
|
Dim bmp4 As New Bitmap(imglist.Images(4))
|
|
|
Dim bmp5 As New Bitmap(imglist.Images(5))
|
|
|
Dim bmp6 As New Bitmap(imglist.Images(6))
|
|
|
Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v4 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v5 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v6 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
|
|
|
v0.DisplayValue = bmp0
|
|
|
v0.Value = 0
|
|
|
|
|
|
v1.DisplayValue = bmp1
|
|
|
v1.Value = 1
|
|
|
|
|
|
v2.DisplayValue = bmp2
|
|
|
v2.Value = 2
|
|
|
|
|
|
v3.DisplayValue = bmp3
|
|
|
v3.Value = 3
|
|
|
|
|
|
v4.DisplayValue = bmp4
|
|
|
v4.Value = 4
|
|
|
|
|
|
v5.DisplayValue = bmp5
|
|
|
v5.Value = 5
|
|
|
|
|
|
v6.DisplayValue = bmp6
|
|
|
v6.Value = 6
|
|
|
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v0)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v1)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v2)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v3)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v4)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v5)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v6)
|
|
|
c1data.Columns("dokicon").ValueItems.Translate = True
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
''' <summary>
|
|
|
''' Kontakte auslesen und dem Truedbgrid <20>bergeben
|
|
|
''' </summary>
|
|
|
''' <param name="c1data">TruedbGrid</param>
|
|
|
''' <param name="Vertragselementnr">Vertragselement, f<>r welches die Dokumente ausgelesen werden</param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Get_Dokumente(ByRef c1data As C1TrueDBGrid, ByVal Applikationnr As Integer, Optional ByVal ImgList As ImageList = Nothing)
|
|
|
Me.Get_Applikation(Applikationnr)
|
|
|
dokumente = Dokument.Get_Dokumente(Me.iApplikationNr.Value, 3)
|
|
|
c1data.DataSource = dokumente
|
|
|
c1data.DataMember = dokumente.TableName
|
|
|
If Not ImgList Is Nothing Then
|
|
|
Me.Set_Imagevalues(c1data, ImgList)
|
|
|
End If
|
|
|
End Function
|
|
|
|
|
|
|
|
|
|
|
|
#Region "Applikationskontakt"
|
|
|
#Region "Deklarationen"
|
|
|
Public Applikationskontakte As TKB.VV.Sysadmin.DomainTable
|
|
|
Public Applikationskontakt As New TKB.VV.Applikation.clsKontakt
|
|
|
#End Region
|
|
|
''' <summary>
|
|
|
''' Kontakte auslesen und dem TrueDBGrid <20>bergeben
|
|
|
''' </summary>
|
|
|
''' <param name="c1data">C1TrueDBGrid</param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Get_Applikationskontakte(ByRef c1data As C1TrueDBGrid)
|
|
|
Try
|
|
|
Applikationskontakte.dispose()
|
|
|
Applikationskontakte = Nothing
|
|
|
Catch ex As Exception
|
|
|
|
|
|
End Try
|
|
|
Applikationskontakte = New TKB.VV.Sysadmin.DomainTable("Applikationkontakt", Me.iApplikationNr.ToString, Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
|
|
c1data.DataSource = Applikationskontakte.Tabledata
|
|
|
c1data.DataMember = Applikationskontakte.Tabledata.Tables(0).TableName
|
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
|
''' Kontakte auslesen und dem TrueDBGrid <20>bergeben
|
|
|
''' </summary>
|
|
|
''' <param name="c1data">C1TrueDBGrid</param>
|
|
|
''' <param name="Vertragselementnr">Vertragselement, f<>r welches die Kontakte ausgelesen werden</param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Get_Applikationskontakte(ByRef c1data As C1TrueDBGrid, ByVal Applikationnr As Integer)
|
|
|
Me.Get_Applikation(Applikationnr)
|
|
|
Applikationskontakte = New TKB.VV.Sysadmin.DomainTable("Vertragskontakt", Me.iApplikationNr.ToString, Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
|
|
c1data.DataSource = Applikationskontakte.Tabledata
|
|
|
c1data.DataMember = Applikationskontakte.Tabledata.Tables(0).TableName
|
|
|
End Function
|
|
|
#End Region
|
|
|
|
|
|
#Region "ReleaseLogbuch"
|
|
|
#Region "Deklarationen"
|
|
|
Public ReleaseLogbooks As TKB.VV.Sysadmin.DomainTable
|
|
|
#End Region
|
|
|
Public Function Get_ReleaseLogbuch(ByRef c1data As C1TrueDBGrid, ByVal applikationnr As Integer)
|
|
|
Application.DoEvents()
|
|
|
Try
|
|
|
ReleaseLogbooks.dispose()
|
|
|
ReleaseLogbooks = Nothing
|
|
|
Catch ex As Exception
|
|
|
End Try
|
|
|
ReleaseLogbooks = New TKB.VV.Sysadmin.DomainTable("ApplikationLogbuch", applikationnr.ToString, Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
|
|
c1data.DataSource = ReleaseLogbooks.Tabledata
|
|
|
c1data.DataMember = ReleaseLogbooks.Tabledata.Tables(0).TableName
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Lizenzen"
|
|
|
Public Lizenzen As New DataTable
|
|
|
|
|
|
Public Sub Get_Vertragslizenzen(ByRef c1data As C1TrueDBGrid, ByVal applikationnr As Integer)
|
|
|
Try
|
|
|
Lizenzen.Rows.Clear()
|
|
|
Catch ex As Exception
|
|
|
|
|
|
End Try
|
|
|
Lizenzen = Read_Lizenzen(applikationnr)
|
|
|
c1data.DataSource = Lizenzen
|
|
|
c1data.DataMember = Lizenzen.TableName
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Public Function Read_Lizenzen(ByVal applikationnr As Integer) As DataTable
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
Dim CheckState As Integer
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_applikation_get_vertragselemente"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@applikationnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, applikationnr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
|
|
|
conn.OpenConnection()
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
|
|
|
conn.CloseConnection(True)
|
|
|
Return dtToReturn
|
|
|
Catch ex As Exception
|
|
|
Throw New Exception("clsApplikation::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function Get_Lizenzkauf(ByVal vertragselementnr As Integer, ByVal Applikationnr As Integer)
|
|
|
Me.Lizenzkauf.Rows.Clear()
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_get_lizenzkauf"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Vertragselementnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vertragselementnr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Applikationnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Applikationnr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
|
|
|
conn.OpenConnection()
|
|
|
sdaAdapter.Fill(Me.Lizenzkauf)
|
|
|
conn.CloseConnection(True)
|
|
|
Catch ex As Exception
|
|
|
Throw New Exception("clsApplikation::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
Public Function Get_Lizenzen(ByVal vertragselementnr As Integer, ByVal Applikationnr As Integer)
|
|
|
Me.Lizenzkauf.Rows.Clear()
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_vertragsuebersicht_get_lizenzen"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Vertragselementnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vertragselementnr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Applikationnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Applikationnr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
|
|
|
conn.OpenConnection()
|
|
|
sdaAdapter.Fill(Me.Lizenzkauf)
|
|
|
conn.CloseConnection(True)
|
|
|
Catch ex As Exception
|
|
|
Throw New Exception("clsApplikation::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
|
|
|
Public Function Get_Lizenzschluessel(ByVal LizenzkaufNr As Integer)
|
|
|
Me.Lizenzschluessel.Rows.Clear()
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_get_lizenzschluessel"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Lizenzkaufnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, LizenzkaufNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
|
|
|
conn.OpenConnection()
|
|
|
sdaAdapter.Fill(Me.Lizenzschluessel)
|
|
|
conn.CloseConnection(True)
|
|
|
Catch ex As Exception
|
|
|
Throw New Exception("clsApplikation::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Vertragselemente"
|
|
|
Public VertragselementApplikationen As TKB.VV.Sysadmin.DomainTable
|
|
|
Public VertragselementApplikation As New TKB.VV.Vertrag.clsVertragselementApplikation
|
|
|
''' <summary>
|
|
|
''' Applikationen lesen und dem Grid <20>bergeben
|
|
|
''' </summary>
|
|
|
''' <param name="c1data">C1TrueDBGrid mit Dokumente</param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Get_Vertragselemente(ByRef c1data As C1TrueDBGrid)
|
|
|
Try
|
|
|
VertragselementApplikationen.dispose()
|
|
|
VertragselementApplikationen = Nothing
|
|
|
Catch ex As Exception
|
|
|
|
|
|
End Try
|
|
|
VertragselementApplikationen = New TKB.VV.Sysadmin.DomainTable("VertragselementApplikation", 1, Me.iApplikationNr.ToString, Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
|
|
c1data.DataSource = VertragselementApplikationen.Tabledata
|
|
|
c1data.DataMember = VertragselementApplikationen.Tabledata.Tables(0).TableName
|
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
|
''' Applikationen auslesen und dem Truedbgrid <20>bergeben.
|
|
|
''' </summary>
|
|
|
''' <param name="c1data">TruedbGrid</param>
|
|
|
''' <param name="Vertragselementnr">Vertragselement, f<>r welches die Dokumente ausgelesen werden</param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
''' gaga
|
|
|
Public Function Get_Vertragselemente(ByVal Applikationnr As Integer)
|
|
|
Me.Get_Applikation(Applikationnr)
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_get_vertragselement_applikation"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@keyvalue", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.iApplikationNr.Value))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
|
|
|
conn.OpenConnection()
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
conn.CloseConnection(True)
|
|
|
Return dtToReturn
|
|
|
Catch ex As Exception
|
|
|
Throw New Exception("clsApplikation::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
' VertragselementApplikationen = New TKB.VV.Sysadmin.DomainTable("VertragselementApplikation", 1, Me.iApplikationNr.ToString, Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
|
|
' Dim i As Integer = 0
|
|
|
' c1data.DataSource = VertragselementApplikationen.Tabledata
|
|
|
' c1data.DataMember = VertragselementApplikationen.Tabledata.Tables(0).TableName
|
|
|
End Function
|
|
|
|
|
|
Public Function Refresh_Teams(ByVal Verantwortungnr As Integer)
|
|
|
Me.Teams = Me.Stammdaten.Get_Gremium(2, Verantwortungnr)
|
|
|
|
|
|
End Function
|
|
|
|
|
|
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Applikationsreferenzen"
|
|
|
''' <summary>
|
|
|
''' Pendenzen auslesen und dem Truedbgrid <20>bergeben.
|
|
|
''' Ist im Feld Termin der Wert "01.01.1900" wird dieser durch NULL ersetzt
|
|
|
''' </summary>
|
|
|
''' <param name="c1data">TruedbGrid</param>
|
|
|
''' <param name="Vertragselementnr">Vertragselement, f<>r welches die Dokumente ausgelesen werden</param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Get_Applikationsabhaengigkeiten(ByRef c1data As C1TrueDBGrid, ByVal Applikationnr As Integer)
|
|
|
Me.Get_Applikation(Applikationnr)
|
|
|
Me.Applikationabhaengigkeiten = New TKB.VV.Sysadmin.DomainTable("ApplikationAbhaengigkeit", Me.iApplikationNr.ToString, Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
|
|
Dim i As Integer = 0
|
|
|
c1data.DataSource = Applikationabhaengigkeiten.Tabledata
|
|
|
c1data.DataMember = Applikationabhaengigkeiten.Tabledata.Tables(0).TableName
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "ReleaseLogbuch"
|
|
|
#Region "Deklarationen"
|
|
|
Public Versionen As TKB.VV.Sysadmin.DomainTable
|
|
|
#End Region
|
|
|
Public Function Get_ApplikationVersionen(ByRef c1data As C1TrueDBGrid, ByVal applikationnr As Integer)
|
|
|
Application.DoEvents()
|
|
|
Try
|
|
|
Versionen.dispose()
|
|
|
Versionen = Nothing
|
|
|
Catch ex As Exception
|
|
|
End Try
|
|
|
Versionen = New TKB.VV.Sysadmin.DomainTable("ApplikationVersion", applikationnr.ToString, Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
|
|
c1data.DataSource = Versionen.Tabledata
|
|
|
c1data.DataMember = Versionen.Tabledata.Tables(0).TableName
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "IKV"
|
|
|
#Region "Deklarationen"
|
|
|
Public IKVTests As TKB.VV.Sysadmin.DomainTable
|
|
|
#End Region
|
|
|
Public Function Get_IKVTests(ByRef c1data As C1TrueDBGrid, ByVal applikationnr As Integer)
|
|
|
Application.DoEvents()
|
|
|
Try
|
|
|
IKVTests.dispose()
|
|
|
IKVTests = Nothing
|
|
|
Catch ex As Exception
|
|
|
End Try
|
|
|
IKVTests = New TKB.VV.Sysadmin.DomainTable("Applikation_IKV_Test", applikationnr.ToString, Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
|
|
c1data.DataSource = IKVTests.Tabledata
|
|
|
c1data.DataMember = IKVTests.Tabledata.Tables(0).TableName
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
End Class
|
|
|
|
|
|
Public Class clsApplikationTree
|
|
|
Public MaxSuchTreffer As Integer
|
|
|
Dim Treedata As New DataSet
|
|
|
''' <summary>
|
|
|
''' Laden der Treedaten und Tree aufbauen
|
|
|
''' </summary>
|
|
|
''' <param name="tree"></param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Load_Tree(ByRef tree As TreeView, Optional ByVal Insert_Initial_Entry As Boolean = False, Optional ByVal suchstring As String = "", Optional ByVal status As Integer = 2, Optional ByVal Archivobjekte As Boolean = False, Optional ByVal alphasort As Boolean = False, Optional ByVal suche As Boolean = False)
|
|
|
tree.Enabled = False
|
|
|
tree.BeginUpdate()
|
|
|
|
|
|
If suchstring <> "" Then
|
|
|
Load_Treedata(suchstring, status, Archivobjekte, alphasort, suche)
|
|
|
Else
|
|
|
Load_Treedata(status, alphasort)
|
|
|
End If
|
|
|
tree.Nodes.Clear()
|
|
|
If Insert_Initial_Entry Then
|
|
|
Dim tn As TreeNode = tree.Nodes.Add("--- Keine ---")
|
|
|
tn.Tag = 0
|
|
|
End If
|
|
|
Load_Treeview(Treedata, tree, suche)
|
|
|
Me.MaxSuchTreffer = Me.TreeaufbauNr
|
|
|
tree.ExpandAll()
|
|
|
tree.EndUpdate()
|
|
|
tree.Enabled = True
|
|
|
End Function
|
|
|
''' <summary>
|
|
|
''' Treedaten ab Datenbank laden
|
|
|
''' </summary>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Private Function Load_Treedata(ByVal status As Integer, ByVal alphasort As Boolean) As DataTable
|
|
|
Treedata.Tables.Clear()
|
|
|
Dim selectcommand As New SqlCommand
|
|
|
Dim connection As New SqlConnection()
|
|
|
Dim da As New SqlDataAdapter("", connection)
|
|
|
|
|
|
selectcommand.CommandText = "sp_get_applstruktur"
|
|
|
selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
|
|
|
selectcommand.Parameters.Add("@NurAktive", SqlDbType.Int, 4)
|
|
|
selectcommand.Parameters.Add("@Alphasort", SqlDbType.Int, 4)
|
|
|
selectcommand.Parameters(0).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
|
selectcommand.Parameters(1).Value = status
|
|
|
If alphasort = True Then selectcommand.Parameters(2).Value = 1 Else selectcommand.Parameters(2).Value = 0
|
|
|
|
|
|
'If nuraktive = True Then
|
|
|
' selectcommand.Parameters(1).Value = 1
|
|
|
'Else
|
|
|
' selectcommand.Parameters(1).Value = 0
|
|
|
'End If
|
|
|
|
|
|
selectcommand.CommandType = CommandType.StoredProcedure
|
|
|
selectcommand.Connection = connection
|
|
|
Try
|
|
|
connection.ConnectionString = Globals.sConnectionString
|
|
|
connection.Open()
|
|
|
da.SelectCommand = selectcommand
|
|
|
da.Fill(Treedata, "Tree")
|
|
|
Catch ex As Exception
|
|
|
Finally
|
|
|
connection.Close()
|
|
|
da.Dispose()
|
|
|
selectcommand.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Private Function Load_Treedata(ByVal Suchstring As String, ByVal status As Integer, ByVal Archivobjekte As Boolean, ByVal alphasort As Boolean, Optional ByVal suche As Boolean = False) As DataTable
|
|
|
Treedata.Tables.Clear()
|
|
|
Dim selectcommand As New SqlCommand
|
|
|
Dim connection As New SqlConnection()
|
|
|
Dim da As New SqlDataAdapter("", connection)
|
|
|
|
|
|
selectcommand.CommandText = "sp_get_applstruktur_suche"
|
|
|
selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
|
|
|
selectcommand.Parameters.Add("@suchstring", SqlDbType.VarChar, 255)
|
|
|
selectcommand.Parameters.Add("@nuraktive", SqlDbType.Int, 4)
|
|
|
selectcommand.Parameters.Add("@arcobject", SqlDbType.Int, 4)
|
|
|
selectcommand.Parameters.Add("@alphasort", SqlDbType.Int, 4)
|
|
|
selectcommand.Parameters.Add("@suche", SqlDbType.Int, 4)
|
|
|
selectcommand.Parameters(0).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
|
selectcommand.Parameters(1).Value = Suchstring
|
|
|
selectcommand.Parameters(2).Value = status
|
|
|
If Archivobjekte = True Then
|
|
|
selectcommand.Parameters(3).Value = 1
|
|
|
End If
|
|
|
If alphasort = True Then selectcommand.Parameters(4).Value = 1 Else selectcommand.Parameters(4).Value = 0
|
|
|
If suche = True Then selectcommand.Parameters(5).Value = 1 Else selectcommand.Parameters(5).Value = 0
|
|
|
|
|
|
selectcommand.CommandType = CommandType.StoredProcedure
|
|
|
selectcommand.Connection = connection
|
|
|
Try
|
|
|
connection.ConnectionString = Globals.sConnectionString
|
|
|
connection.Open()
|
|
|
da.SelectCommand = selectcommand
|
|
|
da.Fill(Treedata, "Tree")
|
|
|
Catch ex As Exception
|
|
|
Finally
|
|
|
connection.Close()
|
|
|
da.Dispose()
|
|
|
selectcommand.Dispose()
|
|
|
End Try
|
|
|
|
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
|
''' Interne Relation aufbauen und Tree aufbauen
|
|
|
''' </summary>
|
|
|
''' <param name="oSourceData"></param>
|
|
|
''' <param name="tree"></param>
|
|
|
''' <remarks></remarks>
|
|
|
Dim TreeaufbauSuche As Boolean = False
|
|
|
Dim TreeaufbauNr As Integer = 0
|
|
|
Private Sub Load_Treeview(ByVal oSourceData As DataSet, ByRef tree As TreeView, ByVal suche As Boolean)
|
|
|
TreeaufbauSuche = suche
|
|
|
TreeaufbauNr = -1
|
|
|
If Not (oSourceData Is Nothing) Then
|
|
|
Dim oView As DataView = oSourceData.Tables(0).DefaultView
|
|
|
Dim oTable As DataTable = oView.Table
|
|
|
Dim oDS As DataSet = New DataSet()
|
|
|
oDS.Tables.Add(oTable.Copy())
|
|
|
|
|
|
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
|
|
|
oDS.Relations.Add("SelfRefenceRelation", _
|
|
|
oDS.Tables(0).Columns("applikationsnr"), _
|
|
|
oDS.Tables(0).Columns("Parentid"))
|
|
|
End If
|
|
|
oTable.Dispose()
|
|
|
oTable = Nothing
|
|
|
LoadTreeView(oDS, tree)
|
|
|
oDS.Dispose()
|
|
|
oDS = Nothing
|
|
|
End If
|
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
|
''' Tree aufbauen
|
|
|
''' </summary>
|
|
|
''' <param name="oDS"></param>
|
|
|
''' <param name="oTreeview"></param>
|
|
|
''' <remarks></remarks>
|
|
|
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As TreeView)
|
|
|
'Dim oTreeView As TreeView = New TreeView()
|
|
|
Dim oDataRow As DataRow
|
|
|
For Each oDataRow In oDS.Tables(0).Rows
|
|
|
If Not oDataRow.IsNull("Parentid") Then
|
|
|
If oDataRow.Item("Parentid") = 0 Then
|
|
|
'If oDataRow.IsNull("Parentid") Then
|
|
|
Dim oNode As New TreeNode()
|
|
|
oNode.Text = oDataRow("Bezeichnung").ToString()
|
|
|
oNode.Tag = oDataRow("applikationsnr").ToString
|
|
|
If Me.TreeaufbauSuche = True Then
|
|
|
If oDataRow("Treffer").ToString = "*" Then
|
|
|
Me.TreeaufbauNr = Me.TreeaufbauNr + 1
|
|
|
oNode.Tag = "*** " + Trim(Str(Me.TreeaufbauNr))
|
|
|
End If
|
|
|
End If
|
|
|
If Me.TreeaufbauSuche = False Then
|
|
|
If oNode.Tag < 0 Then
|
|
|
oNode.ImageIndex = 0
|
|
|
oNode.SelectedImageIndex = 0
|
|
|
oNode.StateImageIndex = 0
|
|
|
Else
|
|
|
If oDataRow.Item("Aktiv") = 0 Then
|
|
|
oNode.ImageIndex = 2
|
|
|
oNode.SelectedImageIndex = 2
|
|
|
oNode.StateImageIndex = 2
|
|
|
If oDataRow.Item("Lic") = True Then
|
|
|
oNode.ImageIndex = 4
|
|
|
oNode.SelectedImageIndex = 4
|
|
|
oNode.StateImageIndex = 4
|
|
|
End If
|
|
|
If oDataRow.Item("Strukturelement") = True Then
|
|
|
oNode.ImageIndex = 6
|
|
|
oNode.SelectedImageIndex = 6
|
|
|
oNode.StateImageIndex = 6
|
|
|
End If
|
|
|
Else
|
|
|
oNode.ImageIndex = 1
|
|
|
oNode.SelectedImageIndex = 1
|
|
|
oNode.StateImageIndex = 1
|
|
|
If oDataRow.Item("Lic") = True Then
|
|
|
oNode.ImageIndex = 3
|
|
|
oNode.SelectedImageIndex = 3
|
|
|
oNode.StateImageIndex = 3
|
|
|
End If
|
|
|
If oDataRow.Item("Strukturelement") = True Then
|
|
|
oNode.ImageIndex = 5
|
|
|
oNode.SelectedImageIndex = 5
|
|
|
oNode.StateImageIndex = 5
|
|
|
End If
|
|
|
'If oDataRow.Item("Lic") = True Then
|
|
|
' oNode.ImageIndex = 3
|
|
|
' oNode.SelectedImageIndex = 3
|
|
|
' oNode.StateImageIndex = 3
|
|
|
'End If
|
|
|
End If
|
|
|
End If
|
|
|
End If
|
|
|
oTreeview.Nodes.Add(oNode)
|
|
|
RecursivelyLoadTree(oDataRow, oNode)
|
|
|
End If
|
|
|
End If
|
|
|
Next oDataRow
|
|
|
oDS.Dispose()
|
|
|
oDS = Nothing
|
|
|
End Sub
|
|
|
''' <summary>
|
|
|
''' Child-Nodes hinzuf<75>gen
|
|
|
''' </summary>
|
|
|
''' <param name="oDataRow"></param>
|
|
|
''' <param name="oNode"></param>
|
|
|
''' <remarks></remarks>
|
|
|
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As TreeNode)
|
|
|
Dim oChildRow As DataRow
|
|
|
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
|
|
|
Dim oChildNode As New TreeNode()
|
|
|
oChildNode.Text = oChildRow("Bezeichnung").ToString()
|
|
|
oChildNode.Tag = oChildRow("applikationsnr").ToString()
|
|
|
If Me.TreeaufbauSuche = True Then
|
|
|
If oChildRow("Treffer").ToString = "*" Then
|
|
|
Me.TreeaufbauNr = Me.TreeaufbauNr + 1
|
|
|
oChildNode.Tag = "*** " + Trim(Str(Me.TreeaufbauNr))
|
|
|
End If
|
|
|
End If
|
|
|
If oChildRow.Item("Aktiv") = False Then
|
|
|
oChildNode.ImageIndex = 2
|
|
|
oChildNode.SelectedImageIndex = 2
|
|
|
oChildNode.StateImageIndex = 2
|
|
|
If oChildRow.Item("Lic") = True Then
|
|
|
oChildNode.ImageIndex = 4
|
|
|
oChildNode.SelectedImageIndex = 4
|
|
|
oChildNode.StateImageIndex = 4
|
|
|
End If
|
|
|
If oChildRow.Item("Strukturelement") = True Then
|
|
|
oChildNode.ImageIndex = 6
|
|
|
oChildNode.SelectedImageIndex = 6
|
|
|
oChildNode.StateImageIndex = 6
|
|
|
End If
|
|
|
Else
|
|
|
oChildNode.ImageIndex = 1
|
|
|
oChildNode.SelectedImageIndex = 1
|
|
|
oChildNode.StateImageIndex = 1
|
|
|
If oChildRow.Item("Lic") = True Then
|
|
|
oChildNode.ImageIndex = 3
|
|
|
oChildNode.SelectedImageIndex = 3
|
|
|
oChildNode.StateImageIndex = 3
|
|
|
End If
|
|
|
If oChildRow.Item("Strukturelement") = True Then
|
|
|
oChildNode.ImageIndex = 5
|
|
|
oChildNode.SelectedImageIndex = 5
|
|
|
oChildNode.StateImageIndex = 5
|
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
|
|
oNode.Nodes.Add(oChildNode)
|
|
|
RecursivelyLoadTree(oChildRow, oChildNode)
|
|
|
Next oChildRow
|
|
|
End Sub
|
|
|
Public Function FindNode(ByVal _nodeCollection As TreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As TreeNode
|
|
|
Dim tmpNode As TreeNode
|
|
|
For Each _child As TreeNode In _nodeCollection
|
|
|
If _child.Tag = SearchVal Then
|
|
|
|
|
|
Return _child
|
|
|
End If
|
|
|
tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
|
|
|
If Not tmpNode Is Nothing Then
|
|
|
Return tmpNode
|
|
|
End If
|
|
|
Next
|
|
|
Return Nothing
|
|
|
End Function
|
|
|
|
|
|
End Class
|
|
|
|
|
|
Public Class clsApplikationsuebersicht
|
|
|
Public Function Get_Applikationsdetails(ByVal EntryRoot As Integer, ByVal Suchstring As String) As DataTable
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_applikationsuebersicht_get_details"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@EntryRoot", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, EntryRoot))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@suchstring", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Suchstring))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
Return dtToReturn
|
|
|
Catch ex As Exception
|
|
|
Throw New Exception("clsApplikationsuebersicht::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
|
|
|
|
|
|
End Class
|
|
|
|
|
|
Public Class clsApplikationLogbuch
|
|
|
Inherits TKB.VV.DB.clsApplikationLogbuch
|
|
|
|
|
|
#Region "Deklarationen"
|
|
|
Public Neuer_Datensatz As Boolean = False
|
|
|
'Private vertragstyp As New TKB.VV.DB.clsVertragstyp
|
|
|
Public Releasearten As New DataTable
|
|
|
|
|
|
'Private Applikation As New TKB.VV.DB.clsApplikation
|
|
|
Public Personen As New DataTable
|
|
|
Public Personen1 As New DataTable
|
|
|
Public Personen2 As New DataTable
|
|
|
Private Stammdaten As New TKB.VV.Stammdaten.clsStammdaten
|
|
|
|
|
|
#End Region
|
|
|
Sub New()
|
|
|
Releasearten = Stammdaten.Get_Stammdaten("Releaseart", "Bezeichnung")
|
|
|
Personen = Stammdaten.Get_Stammdaten("Person", "Name")
|
|
|
Personen1 = Stammdaten.Get_Stammdaten("Person1", "Name")
|
|
|
Personen2 = Stammdaten.Get_Stammdaten("Person2", "Name")
|
|
|
End Sub
|
|
|
Public Overloads Sub dispose()
|
|
|
MyBase.Dispose()
|
|
|
Try
|
|
|
'vertragstyp.Dispose()
|
|
|
Releasearten.Dispose()
|
|
|
'Applikation.Dispose()
|
|
|
Personen.Dispose()
|
|
|
Personen1.Dispose()
|
|
|
Personen2.Dispose()
|
|
|
'Lizenztyp.Dispose()
|
|
|
Catch
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
|
''' Kuendigungsfrist lesen
|
|
|
''' </summary>
|
|
|
''' <param name="Nr"></param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Get_ApplikationLogbuch(ByVal Nr As Integer)
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
Me.iApplikationLogbuchNr = New SqlInt32(CType(Nr, Int32))
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.SelectOne()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
End Function
|
|
|
''' <summary>
|
|
|
''' Daten sichern
|
|
|
''' </summary>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Save_Data() As Integer
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.Update()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
Me.Neuer_Datensatz = False
|
|
|
Return Me.iApplikationLogbuchNr.Value
|
|
|
End Function
|
|
|
|
|
|
|
|
|
''' <summary>
|
|
|
''' Neue Kuendigungsfrist einf<6E>gen
|
|
|
''' </summary>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Add_New(ByVal Applikationnr As Integer) As Integer
|
|
|
Dim db As New TKB.VV.DB.clsMyKey_Tabelle
|
|
|
db.cpMainConnectionProvider = Globals.conn
|
|
|
Dim newkey = db.get_dbkey("ApplikationLogbuch")
|
|
|
db.Dispose()
|
|
|
Me.iApplikationLogbuchNr = New SqlInt32(CType(newkey, Int32))
|
|
|
Me.iApplikationNr = New SqlInt32(CType(Applikationnr, Int32))
|
|
|
Me.daFreigabeDatum = New SqlDateTime(CType("01.01.1900", SqlDateTime))
|
|
|
Me.daReleasedatum = New SqlDateTime(CType("01.01.1900", SqlDateTime))
|
|
|
Me.daAbnahmeTecDatum = New SqlDateTime(CType("01.01.1900", SqlDateTime))
|
|
|
Me.iReleaseartnr = New SqlInt32(CType(0, Int32))
|
|
|
Me.daAbnahmeFBDatum = New SqlDateTime(CType("01.01.1900", SqlDateTime))
|
|
|
Me.iFreigabedurch = New SqlInt32(CType(0, Int32))
|
|
|
Me.iAbnahmeFBPerson = New SqlInt32(CType(0, Int32))
|
|
|
Me.iAbnahmeTecPerson = New SqlInt32(CType(0, Int32))
|
|
|
Me.sBemerkung = New SqlString(CType("", String))
|
|
|
Me.sBezeichnung = 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.cpMainConnectionProvider = Globals.conn
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.Insert()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
Me.Neuer_Datensatz = True
|
|
|
Return newkey
|
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
|
''' Kopie eines Datensatzes erstellen.
|
|
|
''' </summary>
|
|
|
''' <param name="Basenr"></param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Delete_ApplikationLogubuch(Optional ByVal Basenr As Integer = 0) As Integer
|
|
|
If Basenr <> 0 Then
|
|
|
Me.Get_ApplikationLogbuch(Basenr)
|
|
|
End If
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
|
|
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.Update()
|
|
|
Me.Neuer_Datensatz = False
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
|
''' Physisches L<>schen eines Datensatzes erstellen.
|
|
|
''' </summary>
|
|
|
''' <param name="Basenr"></param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Overloads Function Delete(ByVal Basenr As Integer) As Integer
|
|
|
If Basenr <> 0 Then
|
|
|
Me.Get_ApplikationLogbuch(Basenr)
|
|
|
End If
|
|
|
Globals.conn.OpenConnection()
|
|
|
MyBase.Delete()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
Me.Neuer_Datensatz = False
|
|
|
End Function
|
|
|
|
|
|
#Region "Dokumente"
|
|
|
Public dokumente As New DataTable
|
|
|
Public Dokument As New TKB.VV.DMS.clsDok
|
|
|
|
|
|
|
|
|
''' <summary>
|
|
|
''' Dokumente lesen und dem Grid <20>bergeben
|
|
|
''' </summary>
|
|
|
''' <param name="c1data">C1TrueDBGrid mit Dokumente</param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Get_Dokumente(ByRef c1data As C1TrueDBGrid, Optional ByVal ImgList As ImageList = Nothing)
|
|
|
Try
|
|
|
dokumente.Dispose()
|
|
|
dokumente = Nothing
|
|
|
Catch ex As Exception
|
|
|
|
|
|
End Try
|
|
|
dokumente = Dokument.Get_Dokumente(Me.iApplikationLogbuchNr.Value, 4)
|
|
|
c1data.DataSource = dokumente
|
|
|
c1data.DataMember = dokumente.TableName
|
|
|
If Not ImgList Is Nothing Then
|
|
|
Set_Imagevalues(c1data, ImgList)
|
|
|
End If
|
|
|
End Function
|
|
|
|
|
|
Private Sub Set_Imagevalues(ByRef c1data As C1TrueDBGrid, ByRef imglist As ImageList)
|
|
|
|
|
|
Dim i As Integer
|
|
|
Dim s As String
|
|
|
For i = 0 To dokumente.Rows.Count - 1
|
|
|
s = dokumente.Rows(i).Item("Filename")
|
|
|
If Len(s) < 4 Then s = ".div"
|
|
|
Select Case UCase(s.Substring(Len(s) - 4, 4))
|
|
|
Case ".PDF"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 0
|
|
|
Case ".DOC"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 1
|
|
|
Case ".XLS"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 2
|
|
|
Case ".PPT"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 3
|
|
|
Case ".HTM", "TML", "XML"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 4
|
|
|
Case ".MSG"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 5
|
|
|
Case Else
|
|
|
dokumente.Rows(i).Item("DokIcon") = 6
|
|
|
End Select
|
|
|
Next
|
|
|
|
|
|
Dim bmp0 As New Bitmap(imglist.Images(0))
|
|
|
Dim bmp1 As New Bitmap(imglist.Images(1))
|
|
|
Dim bmp2 As New Bitmap(imglist.Images(2))
|
|
|
Dim bmp3 As New Bitmap(imglist.Images(3))
|
|
|
Dim bmp4 As New Bitmap(imglist.Images(4))
|
|
|
Dim bmp5 As New Bitmap(imglist.Images(5))
|
|
|
Dim bmp6 As New Bitmap(imglist.Images(6))
|
|
|
Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v4 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v5 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v6 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
|
|
|
v0.DisplayValue = bmp0
|
|
|
v0.Value = 0
|
|
|
|
|
|
v1.DisplayValue = bmp1
|
|
|
v1.Value = 1
|
|
|
|
|
|
v2.DisplayValue = bmp2
|
|
|
v2.Value = 2
|
|
|
|
|
|
v3.DisplayValue = bmp3
|
|
|
v3.Value = 3
|
|
|
|
|
|
v4.DisplayValue = bmp4
|
|
|
v4.Value = 4
|
|
|
|
|
|
v5.DisplayValue = bmp5
|
|
|
v5.Value = 5
|
|
|
|
|
|
v6.DisplayValue = bmp6
|
|
|
v6.Value = 6
|
|
|
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v0)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v1)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v2)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v3)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v4)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v5)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v6)
|
|
|
c1data.Columns("dokicon").ValueItems.Translate = True
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
#End Region
|
|
|
End Class
|
|
|
|
|
|
Public Class clsApplikationVersion
|
|
|
Inherits TKB.VV.DB.clsApplikationVersion
|
|
|
|
|
|
#Region "Deklarationen"
|
|
|
Public Neuer_Datensatz As Boolean = False
|
|
|
|
|
|
#End Region
|
|
|
Sub New()
|
|
|
End Sub
|
|
|
Public Overloads Sub dispose()
|
|
|
MyBase.Dispose()
|
|
|
Try
|
|
|
Catch
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
|
''' Kuendigungsfrist lesen
|
|
|
''' </summary>
|
|
|
''' <param name="Nr"></param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Get_ApplikationVersion(ByVal Nr As Integer)
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
Me.iApplikationVersionNr = New SqlInt32(CType(Nr, Int32))
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.SelectOne()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
End Function
|
|
|
''' <summary>
|
|
|
''' Daten sichern
|
|
|
''' </summary>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Save_Data() As Integer
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.Update()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
Me.Neuer_Datensatz = False
|
|
|
Return Me.iApplikationVersionNr.Value
|
|
|
End Function
|
|
|
|
|
|
|
|
|
''' <summary>
|
|
|
''' Neue Kuendigungsfrist einf<6E>gen
|
|
|
''' </summary>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Add_New(ByVal Applikationnr As Integer) As Integer
|
|
|
Dim db As New TKB.VV.DB.clsMyKey_Tabelle
|
|
|
db.cpMainConnectionProvider = Globals.conn
|
|
|
Dim newkey = db.get_dbkey("ApplikationVersion")
|
|
|
db.Dispose()
|
|
|
Me.iApplikationVersionNr = New SqlInt32(CType(newkey, Int32))
|
|
|
Me.sVersion = New SqlString(CType("", String))
|
|
|
Me.sBemerkung = New SqlString(CType("", String))
|
|
|
Me.iApplikationNr = New SqlInt32(CType(Applikationnr, Int32))
|
|
|
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
|
|
|
Me.bEingesetzt = New SqlBoolean(CType(False, 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.cpMainConnectionProvider = Globals.conn
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.Insert()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
Me.Neuer_Datensatz = True
|
|
|
Return newkey
|
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
|
''' Kopie eines Datensatzes erstellen.
|
|
|
''' </summary>
|
|
|
''' <param name="Basenr"></param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Delete_ApplikationVersion(Optional ByVal Basenr As Integer = 0) As Integer
|
|
|
If Basenr <> 0 Then
|
|
|
Me.Get_ApplikationVersion(Basenr)
|
|
|
End If
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
|
|
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.Update()
|
|
|
Me.Neuer_Datensatz = False
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
End Function
|
|
|
|
|
|
Public Function Check_Version(ByVal Versionnr As Integer) As Boolean
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_check_version"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@versionnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Versionnr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Returnvalue", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
conn.OpenConnection()
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
|
conn.CloseConnection(True)
|
|
|
If scmCmdToExecute.Parameters("@returnvalue").Value = 1 Then
|
|
|
Return False
|
|
|
Else
|
|
|
Return True
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
Throw New Exception("clsApplikation::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
' VertragselementApplikationen = New TKB.VV.Sysadmin.DomainTable("VertragselementApplikation", 1, Me.iApplikationNr.ToString, Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
|
|
' Dim i As Integer = 0
|
|
|
' c1data.DataSource = VertragselementApplikationen.Tabledata
|
|
|
' c1data.DataMember = VertragselementApplikationen.Tabledata.Tables(0).TableName
|
|
|
|
|
|
End Function
|
|
|
|
|
|
''' <summary>
|
|
|
''' Physisches L<>schen eines Datensatzes erstellen.
|
|
|
''' </summary>
|
|
|
''' <param name="Basenr"></param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Overloads Function Delete(ByVal Basenr As Integer) As Integer
|
|
|
If Basenr <> 0 Then
|
|
|
Me.Get_ApplikationVersion(Basenr)
|
|
|
End If
|
|
|
Globals.conn.OpenConnection()
|
|
|
MyBase.Delete()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
Me.Neuer_Datensatz = False
|
|
|
End Function
|
|
|
End Class
|
|
|
|
|
|
Public Class clsApplikationIKVTest
|
|
|
Inherits TKB.VV.DB.clsApplikation_IKV_Test
|
|
|
|
|
|
Public Neuer_Datensatz As Boolean = False
|
|
|
|
|
|
Private Stammdaten As New TKB.VV.Stammdaten.clsStammdaten
|
|
|
Public IKVTestresultate As New DataTable
|
|
|
|
|
|
Sub New()
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
IKVTestresultate = Stammdaten.Get_Stammdaten("Applikation_IKV_TestResultat", "Reihenfolge")
|
|
|
End Sub
|
|
|
|
|
|
Public Overloads Sub dispose()
|
|
|
MyBase.Dispose()
|
|
|
IKVTestresultate.Dispose()
|
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
|
''' Kuendigungsfrist lesen
|
|
|
''' </summary>
|
|
|
''' <param name="Nr"></param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Get_ApplikationIKVTest(ByVal Nr As Integer)
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
Me.iApplikation_IKV_TestNr = New SqlInt32(CType(Nr, Int32))
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.SelectOne()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
End Function
|
|
|
''' <summary>
|
|
|
''' Daten sichern
|
|
|
''' </summary>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Save_Data() As Integer
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.Update()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
Me.Neuer_Datensatz = False
|
|
|
Return Me.iApplikation_IKV_TestNr.Value
|
|
|
End Function
|
|
|
|
|
|
Public Function Add_New(ByVal Applikationnr As Integer) As Integer
|
|
|
Dim db As New TKB.VV.DB.clsMyKey_Tabelle
|
|
|
db.cpMainConnectionProvider = Globals.conn
|
|
|
Dim newkey = db.get_dbkey("Applikation_IKV_Test")
|
|
|
db.Dispose()
|
|
|
Me.iApplikation_IKV_TestNr = New SqlInt32(CType(newkey, Int32))
|
|
|
Me.iApplikationNr = New SqlInt32(CType(Applikationnr, Int32))
|
|
|
Me.daDurchgef<65>hrt = New SqlDateTime(CType("01.01.1900", SqlDateTime))
|
|
|
Me.daGeplant = New SqlDateTime(CType("01.01.1900", SqlDateTime))
|
|
|
Me.iJahr = New SqlInt32(CType(Year(Now), Int32))
|
|
|
Me.iApplikation_IKV_TestResultatNr = New SqlInt32(CType(-1, Int32))
|
|
|
Me.sBemerkung = 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.cpMainConnectionProvider = Globals.conn
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.Insert()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
Me.Neuer_Datensatz = True
|
|
|
Return newkey
|
|
|
End Function
|
|
|
|
|
|
Public Function Delete_ApplikationIKVTest(Optional ByVal Basenr As Integer = 0) As Integer
|
|
|
If Basenr <> 0 Then
|
|
|
Me.Get_ApplikationIKVTest(Basenr)
|
|
|
End If
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
|
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
|
|
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
|
|
Globals.conn.OpenConnection()
|
|
|
Me.Update()
|
|
|
Me.Neuer_Datensatz = False
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
End Function
|
|
|
|
|
|
Public Overloads Function Delete(ByVal Basenr As Integer) As Integer
|
|
|
If Basenr <> 0 Then
|
|
|
Me.Get_ApplikationIKVTest(Basenr)
|
|
|
End If
|
|
|
Globals.conn.OpenConnection()
|
|
|
MyBase.Delete()
|
|
|
Globals.conn.CloseConnection(True)
|
|
|
Me.Neuer_Datensatz = False
|
|
|
End Function
|
|
|
#Region "Dokumente"
|
|
|
Public dokumente As New DataTable
|
|
|
Public Dokument As New TKB.VV.DMS.clsDok
|
|
|
|
|
|
|
|
|
''' <summary>
|
|
|
''' Dokumente lesen und dem Grid <20>bergeben
|
|
|
''' </summary>
|
|
|
''' <param name="c1data">C1TrueDBGrid mit Dokumente</param>
|
|
|
''' <returns></returns>
|
|
|
''' <remarks></remarks>
|
|
|
Public Function Get_Dokumente(ByRef c1data As C1TrueDBGrid, Optional ByVal ImgList As ImageList = Nothing)
|
|
|
Try
|
|
|
dokumente.Dispose()
|
|
|
dokumente = Nothing
|
|
|
Catch ex As Exception
|
|
|
|
|
|
End Try
|
|
|
dokumente = Dokument.Get_Dokumente(Me.iApplikation_IKV_TestNr.Value, 5)
|
|
|
c1data.DataSource = dokumente
|
|
|
c1data.DataMember = dokumente.TableName
|
|
|
If Not ImgList Is Nothing Then
|
|
|
Set_Imagevalues(c1data, ImgList)
|
|
|
End If
|
|
|
End Function
|
|
|
|
|
|
Private Sub Set_Imagevalues(ByRef c1data As C1TrueDBGrid, ByRef imglist As ImageList)
|
|
|
|
|
|
Dim i As Integer
|
|
|
Dim s As String
|
|
|
For i = 0 To dokumente.Rows.Count - 1
|
|
|
s = dokumente.Rows(i).Item("Filename")
|
|
|
If Len(s) < 4 Then s = ".div"
|
|
|
Select Case UCase(s.Substring(Len(s) - 4, 4))
|
|
|
Case ".PDF"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 0
|
|
|
Case ".DOC"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 1
|
|
|
Case ".XLS"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 2
|
|
|
Case ".PPT"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 3
|
|
|
Case ".HTM", "TML", "XML"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 4
|
|
|
Case ".MSG"
|
|
|
dokumente.Rows(i).Item("DokIcon") = 5
|
|
|
Case Else
|
|
|
dokumente.Rows(i).Item("DokIcon") = 6
|
|
|
End Select
|
|
|
Next
|
|
|
|
|
|
Dim bmp0 As New Bitmap(imglist.Images(0))
|
|
|
Dim bmp1 As New Bitmap(imglist.Images(1))
|
|
|
Dim bmp2 As New Bitmap(imglist.Images(2))
|
|
|
Dim bmp3 As New Bitmap(imglist.Images(3))
|
|
|
Dim bmp4 As New Bitmap(imglist.Images(4))
|
|
|
Dim bmp5 As New Bitmap(imglist.Images(5))
|
|
|
Dim bmp6 As New Bitmap(imglist.Images(6))
|
|
|
Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v4 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v5 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
Dim v6 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
|
|
|
v0.DisplayValue = bmp0
|
|
|
v0.Value = 0
|
|
|
|
|
|
v1.DisplayValue = bmp1
|
|
|
v1.Value = 1
|
|
|
|
|
|
v2.DisplayValue = bmp2
|
|
|
v2.Value = 2
|
|
|
|
|
|
v3.DisplayValue = bmp3
|
|
|
v3.Value = 3
|
|
|
|
|
|
v4.DisplayValue = bmp4
|
|
|
v4.Value = 4
|
|
|
|
|
|
v5.DisplayValue = bmp5
|
|
|
v5.Value = 5
|
|
|
|
|
|
v6.DisplayValue = bmp6
|
|
|
v6.Value = 6
|
|
|
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v0)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v1)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v2)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v3)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v4)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v5)
|
|
|
c1data.Columns("dokicon").ValueItems.Values.Add(v6)
|
|
|
c1data.Columns("dokicon").ValueItems.Translate = True
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
#End Region
|
|
|
|
|
|
End Class
|
|
|
|
|
|
|
|
|
|
|
|
End Namespace
|
