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.
1927 lines
78 KiB
1927 lines
78 KiB
Imports C1.Win.C1TrueDBGrid
|
|
Imports System.IO.File
|
|
Imports System.IO
|
|
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
Public Class frmApplikation
|
|
|
|
#Region "Deklarationen"
|
|
Dim Applikation As New TKB.VV.Applikation.clsApplikation
|
|
Dim Treeviewdata As New TKB.VV.Applikation.clsApplikationTree
|
|
Dim TreeParent As New TKB.VV.Applikation.clsApplikationTree
|
|
|
|
Dim sec As New TKB.VV.Utils.MySecurity
|
|
|
|
Dim msg As New TKB.VV.Utils.MyMessage
|
|
Dim FormReadonly As Boolean = False
|
|
Dim FormDataChanged As Boolean = False
|
|
Dim SpaltenTitel As New TKB.VV.Utils.Tabellenspalte
|
|
Private Anzeige As Boolean = False
|
|
|
|
Dim Aktuelle_Applikation As Integer = 0
|
|
|
|
''' <summary>
|
|
''' Generic Event-Handler
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
|
|
#End Region
|
|
|
|
#Region "Closing / Check_Changes"
|
|
''' <summary>
|
|
''' Schliessen des Formulars
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
|
If Me.FormReadonly = True Then Exit Sub
|
|
If Check_Changes() = False Then
|
|
e.Cancel = True
|
|
Else
|
|
Applikation.dispose()
|
|
Me.Dispose()
|
|
End If
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Prüfung, ob Datenänderungen vorgenommen wurden.
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Function Check_Changes() As Boolean
|
|
If Me.FormReadonly Then
|
|
Return True
|
|
Exit Function
|
|
End If
|
|
Me.DiagramControl1.Check_Changes()
|
|
Dim msgres As MsgBoxResult
|
|
If Me.FormDataChanged Then
|
|
msgres = msg.Show_MessageYesNoCancel(3)
|
|
Select Case msgres
|
|
Case MsgBoxResult.Yes
|
|
Save_data()
|
|
Return True
|
|
Case MsgBoxResult.Cancel
|
|
Return False
|
|
Case MsgBoxResult.No
|
|
Me.FormDataChanged = False
|
|
Return True
|
|
End Select
|
|
Else
|
|
Return True
|
|
End If
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
#Region "Formular"
|
|
|
|
Sub New()
|
|
InitializeComponent()
|
|
End Sub
|
|
|
|
Sub New(ByVal Applikationsnr As Integer, Optional ByVal Anzeige As Boolean = False)
|
|
InitializeComponent()
|
|
Me.Aktuelle_Applikation = Applikationsnr
|
|
Me.FormReadonly = Anzeige
|
|
If Me.Aktuelle_Applikation <> 0 Then
|
|
Dim app As New TKB.VV.DB.clsApplikation
|
|
app.cpMainConnectionProvider = Globals.conn
|
|
app.iApplikationNr = New SqlInt32(CType(Me.Aktuelle_Applikation, Int32))
|
|
app.SelectOne()
|
|
If app.bAktiv.Value = False Then
|
|
Me.cboxNurAktive.Checked = False
|
|
End If
|
|
app.Dispose()
|
|
End If
|
|
End Sub
|
|
|
|
Sub New(ByVal CreateNew As Boolean)
|
|
InitializeComponent()
|
|
If CreateNew Then
|
|
Me.Aktuelle_Applikation = Me.Applikation.Add_New
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmApplikation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Treeviewdata.Load_Tree(Me.TreeApplikationen, False, "", Me.cboxNurAktive.Checked)
|
|
|
|
If Anzeige = True Then
|
|
Me.FormReadonly = True
|
|
Me.TSBtnSuche.Enabled = False
|
|
Me.TSBtnSave.Enabled = False
|
|
Else
|
|
Me.TSBtnSuche.Enabled = True
|
|
End If
|
|
sec.Set_Form_Security(Me)
|
|
If Me.TSBtnSave.Enabled = False Or Me.TSBtnSave.Visible = False Then
|
|
Me.FormReadonly = True
|
|
Me.TSBtnCopy.Enabled = False
|
|
Me.TSBtnNew.Enabled = False
|
|
Me.TSBtnDelete.Enabled = False
|
|
Else
|
|
Me.FormReadonly = False
|
|
End If
|
|
|
|
|
|
Load_Securitylevel()
|
|
|
|
Me.cboxRFCBoard.DataSource = Applikation.RFCBoards
|
|
Me.cboxRFCBoard.DisplayMember = "Bezeichnung"
|
|
Me.cboxRFCBoard.ValueMember = "Keyvalue"
|
|
|
|
Me.cbboxVerantwortung.DataSource = Applikation.Verantwortungen
|
|
Me.cbboxVerantwortung.DisplayMember = "Bezeichnung"
|
|
Me.cbboxVerantwortung.ValueMember = "Keyvalue"
|
|
|
|
Me.cbboxKategorie.DataSource = Applikation.kategorien
|
|
Me.cbboxKategorie.DisplayMember = "Bezeichnung"
|
|
Me.cbboxKategorie.ValueMember = "ApplikationKategorieNr"
|
|
|
|
Me.cbboxMarktbereich.DataSource = Applikation.Marktbereiche
|
|
Me.cbboxMarktbereich.DisplayMember = "Bezeichnung"
|
|
Me.cbboxMarktbereich.ValueMember = "Keyvalue"
|
|
|
|
Me.cbboxKritikalität.DataSource = Applikation.Kritikalitaeten
|
|
Me.cbboxKritikalität.DisplayMember = "Bezeichnung"
|
|
Me.cbboxKritikalität.ValueMember = "ApplikationKritikalitaetTypNr"
|
|
|
|
Me.cbboxSLM.DataSource = Applikation.SLMs
|
|
Me.cbboxSLM.DisplayMember = "Bezeichnung"
|
|
Me.cbboxSLM.ValueMember = "ApplikationSLMTypNr"
|
|
|
|
Me.lboxInstalliertals.DataSource = Applikation.Installiertals
|
|
Me.lboxInstalliertals.DisplayMember = "Bezeichnung"
|
|
Me.lboxInstalliertals.ValueMember = "InstallationAlsTypNr"
|
|
|
|
Me.lboxInstalliertauf.DataSource = Applikation.Installiertauf
|
|
Me.lboxInstalliertauf.DisplayMember = "Bezeichnung"
|
|
Me.lboxInstalliertauf.ValueMember = "InstallationTypNr"
|
|
|
|
Me.lboxStandardFuer.DataSource = Applikation.InstallationStandard
|
|
Me.lboxStandardFuer.DisplayMember = "Bezeichnung"
|
|
Me.lboxStandardFuer.ValueMember = "ApplikationStandardTypNr"
|
|
|
|
Me.cbboxTestaufwand.DataSource = Applikation.TestAufwendungen
|
|
Me.cbboxTestaufwand.DisplayMember = "Bezeichnung"
|
|
Me.cbboxTestaufwand.ValueMember = "ApplikationTestAZNr"
|
|
|
|
Me.cbboxPeriodizitaet.DataSource = Me.Applikation.Periodizitäten
|
|
Me.cbboxPeriodizitaet.DisplayMember = "Bezeichnung"
|
|
Me.cbboxPeriodizitaet.ValueMember = "Periodizitaetnr"
|
|
|
|
Me.cbboxAdministriertdurch.DataSource = Me.Applikation.SDAdministratoren
|
|
Me.cbboxAdministriertdurch.DisplayMember = "Bezeichnung"
|
|
Me.cbboxAdministriertdurch.ValueMember = "SDAdministratorNr"
|
|
|
|
cbboxVerantwortung_SelectedIndexChanged(sender, e)
|
|
|
|
TreeParent.Load_Tree(Me.cbboxParentTree.TreeView, True)
|
|
|
|
AddChanges(Me)
|
|
If Me.Aktuelle_Applikation <> 0 Then
|
|
Me.TreeApplikationen.SelectedNode = Me.Treeviewdata.FindNode(Me.TreeApplikationen.Nodes, Me.Aktuelle_Applikation, "")
|
|
End If
|
|
' Get_Data(Me.Aktuelle_Applikation)
|
|
If Me.FormReadonly Then sec.Set_Form_Readonly(Me)
|
|
If Me.Aktuelle_Applikation <> 0 Then
|
|
Me.TreeApplikationen.SelectedNode = Me.Treeviewdata.FindNode(Me.TreeApplikationen.Nodes, Me.Aktuelle_Applikation, Me.Aktuelle_Applikation)
|
|
Else
|
|
Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
|
|
End If
|
|
Me.DiagramControl1.FormReadOnly = Me.FormReadonly
|
|
'Me.DiagramControl1.FormReadOnly = True
|
|
End Sub
|
|
|
|
|
|
Private Sub TreeApplikationen_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeApplikationen.AfterSelect
|
|
If Me.Check_Changes = False Then Exit Sub
|
|
If Me.TreeApplikationen.SelectedNode.Tag < 1 Then
|
|
Me.TabControlApplikation.Enabled = False
|
|
Exit Sub
|
|
End If
|
|
|
|
Me.TabControlApplikation.Enabled = True
|
|
Me.Aktuelle_Applikation = Me.TreeApplikationen.SelectedNode.Tag
|
|
Me.Get_Data(Me.Aktuelle_Applikation)
|
|
Me.Refresh_Registerlasche()
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Buttons/Menu"
|
|
|
|
''' <summary>
|
|
''' Formular schliessen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Sicherungs-Button betätigt
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
|
|
Me.Save_data()
|
|
Me.txtmutiert_am.Text = Me.Applikation.daMutiert_am.ToString
|
|
Me.FormDataChanged = False
|
|
If Me.tstxtSuche.Text <> "" Then
|
|
Treeviewdata.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.cboxNurAktive.Checked)
|
|
Else
|
|
Treeviewdata.Load_Tree(Me.TreeApplikationen, False, "", Me.cboxNurAktive.Checked)
|
|
End If
|
|
Me.TreeApplikationen.SelectedNode = Treeviewdata.FindNode(Me.TreeApplikationen.Nodes, Me.Applikation.iApplikationNr.Value, "")
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Datensatz kopieren
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub TSBtnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnCopy.Click
|
|
If Me.Check_Changes = False Then Exit Sub
|
|
Me.Get_Data(Applikation.Create_Copy(Me.Applikation.iApplikationNr.Value))
|
|
End Sub
|
|
''' <summary>
|
|
''' Neuer Datensatz erstellen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub TSBtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnNew.Click
|
|
If Me.Check_Changes = False Then Exit Sub
|
|
Me.Get_Data(Me.Applikation.Add_New)
|
|
End Sub
|
|
''' <summary>
|
|
''' Aktueller Datensatz inaktivieren
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub TSBtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnDelete.Click
|
|
If msg.Show_MessageYesNo(295) = MsgBoxResult.Yes Then
|
|
Me.Applikation.Delete_Applikation(Me.Applikation.iApplikationNr.Value)
|
|
Me.Close()
|
|
End If
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Menu Beenden
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
|
Me.TSBtnQuit_Click(sender, e)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Vertragspartner suchen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub TSBtnSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSuche.Click
|
|
If Not Me.FormReadonly Then Check_Changes()
|
|
Dim i As Integer
|
|
Treeviewdata.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.cboxNurAktive.Checked)
|
|
Try
|
|
Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region "Daten"
|
|
''' <summary>
|
|
''' Daten ab DB laden uns ins Form befüllen
|
|
''' </summary>
|
|
''' <param name="Vertragselementnr"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub Get_Data(ByVal Applikationnr As Integer)
|
|
Try
|
|
Applikation.Get_Applikation(Applikationnr)
|
|
Me.txtBezeichnung.Text = Applikation.sBezeichnung.Value
|
|
Dim i As Integer = Me.cbboxParentTree.TreeView.Height
|
|
Me.cbboxParentTree.TreeView.Height = 0
|
|
Me.cbboxParentTree.TreeView.Visible = True
|
|
Me.cbboxParentTree.SelectedNode = Me.TreeParent.FindNode(Me.cbboxParentTree.TreeView.Nodes, Applikation.iParentID.Value, "")
|
|
Application.DoEvents()
|
|
Me.cbboxParentTree.TreeView.Visible = False
|
|
Me.cbboxParentTree.TreeView.Height = i
|
|
Me.cbboxVerantwortung.SelectedValue = Applikation.iApplikationVerantwortungNr.Value
|
|
Me.cbboxTeam.SelectedValue = Applikation.iApplikationTeamnr.Value
|
|
Me.cbboxKategorie.SelectedValue = Applikation.iApplikationKategorieNr.Value
|
|
Me.cbboxMarktbereich.SelectedValue = Applikation.iMarktbereichnr.Value
|
|
Me.txtInaktivseit.Text = Applikation.daInaktivseit.ToString
|
|
Me.txtVersion.Text = Applikation.sVersion.Value
|
|
Me.cbalsProdukt.Checked = Applikation.bAlsProdukt.Value = True
|
|
Me.cbLizenzerfassung.Checked = Applikation.bNurLizenz.Value = True
|
|
Me.txtPrioWiederanlauf.Text = Applikation.sPrioWiederanlauf.Value
|
|
Me.cboxSecurityLevel.SelectedValue = Applikation.iSecurityLevelNr.Value
|
|
Me.cboxRFCBoard.SelectedValue = Applikation.iRfcBoardNr.Value
|
|
Me.txterstellt_am.Text = Applikation.daErstellt_am.ToString
|
|
Me.txtmutiert_am.Text = Applikation.daMutiert_am.ToString
|
|
Me.txtmutierer.Text = Applikation.iMutierer.ToString
|
|
Me.cbAktiv.Checked = Applikation.bAktiv.Value = True
|
|
Me.cbRAS.Checked = Applikation.bRAS.Value = True
|
|
Me.txtDBName.Text = Applikation.sDatenbankname.Value
|
|
Me.txtAnzInstallationen.Text = Applikation.sAnzahl_Installationen.Value
|
|
|
|
Me.txtKurzbeschreibung.Text = Applikation.sKurzbeschreibung.Value
|
|
If Microsoft.VisualBasic.Left(Me.txtKurzbeschreibung.Text, 7) = "- Modul" Then
|
|
Dim fnt As New Font("Courier New", 8.25)
|
|
Me.txtKurzbeschreibung.Font = fnt
|
|
End If
|
|
|
|
Me.cbTicketXPertVerwendung.Checked = Applikation.bTicketXPertVerwendung.Value = True
|
|
If Me.cbTicketXPertVerwendung.Checked = False Then
|
|
Me.grpTicketXpert.Enabled = False
|
|
Else
|
|
Me.grpTicketXpert.Enabled = True
|
|
End If
|
|
|
|
Try
|
|
Me.cbboxTestaufwand.SelectedValue = Applikation.sTest_Aufwand.Value.ToString
|
|
Catch ex As Exception
|
|
Me.cbboxTestaufwand.SelectedValue = 1
|
|
End Try
|
|
Me.txtTestArbeitsplaetze.Text = Applikation.sTest_Arbeitsplaetze.Value
|
|
Me.txtAbhaengigkeiten.Text = Applikation.sTest_Abhaengigkeiten.Value
|
|
Me.txtBemerkung.Text = Applikation.sTest_Bemerkung.Value
|
|
|
|
Me.cbWPIAnzeigen.Checked = Applikation.bTicketXPert_WPIAnzeigen.Value = True
|
|
Me.txtWPIPreis.Text = Applikation.sTicketXPert_Preis.Value
|
|
Me.txtPreisEinmalig.Text = Applikation.sTicketXPert_Preis_Einmalig.Value
|
|
|
|
Me.cbAMAnzeigen.Checked = Applikation.bTicketXPert_AMAnzeigen.Value = True
|
|
Me.cbboxKritikalität.SelectedValue = Applikation.iTicketXPert_ApplikationKritikalitaetTypNr.Value
|
|
Me.cbboxSLM.SelectedValue = Applikation.iTicketXPert_ApplikationSMLTypNr.Value
|
|
|
|
Set_Checkedlistbox(Me.lboxInstalliertauf, Me.Applikation.ApplikationInstallationTyp)
|
|
Set_Checkedlistbox(Me.lboxInstalliertals, Me.Applikation.ApplikationInstallationals)
|
|
Set_Checkedlistbox(Me.lboxStandardFuer, Me.Applikation.ApplikationInstallationFuer)
|
|
|
|
|
|
Me.cbSensitiveDaten.Checked = Me.Applikation.bSensitiveDaten.Value = True
|
|
Me.txtSensitiveDaten.Text = Me.Applikation.sSensitiveDatenBemerkung.Value
|
|
Me.cbboxAdministriertdurch.SelectedValue = Me.Applikation.iSensitiveDatenAdministriertdurch.Value
|
|
Me.TxtUeberwachung.Text = Me.Applikation.sSensitiveDatenUeberwachungBemerkung.Value
|
|
Me.cbboxPeriodizitaet.SelectedValue = Me.Applikation.iSensitiveDatenUeberwachungPeriodizitaet.Value
|
|
Me.TxtUser.Text = Me.Applikation.sSensitiveDatenUserBemerkung.Value
|
|
Me.TxtAnzComit.Text = Me.Applikation.iSensitiveDatenAnzahlComit.Value
|
|
Me.txtAnzExterne.Text = Me.Applikation.iSensitiveDatenAnzahlExterne.Value
|
|
|
|
|
|
Try
|
|
Me.cbAktiv.Checked = Applikation.bAktiv.Value = True
|
|
|
|
Catch ex As Exception
|
|
Me.cbAktiv.Checked = True
|
|
End Try
|
|
If Not Anzeige And Not Me.FormReadonly Then
|
|
For Each o As Object In Me.ToolStrip1.Items
|
|
If o.GetType.Name = "ToolStripButton" Then
|
|
o.Enabled = True
|
|
End If
|
|
Next
|
|
'For Each ctl As ToolStripButton In Me.ToolStrip1.Items
|
|
' Try
|
|
' ctl.Enabled = True
|
|
' Catch
|
|
' End Try
|
|
'Next
|
|
End If
|
|
sec.Set_Form_Security(Me)
|
|
Me.FormDataChanged = False
|
|
Catch ex As Exception
|
|
Try
|
|
For Each ctl As ToolStripButton In Me.ToolStrip1.Items
|
|
ctl.Enabled = False
|
|
Next
|
|
Catch
|
|
End Try
|
|
Me.TSBtnQuit.Enabled = True
|
|
Me.TSBtnSuche.Enabled = True
|
|
End Try
|
|
Me.FormDataChanged = False
|
|
|
|
End Sub
|
|
|
|
Private Sub Set_Checkedlistbox(ByRef clb As CheckedListBox, ByRef data As DataTable)
|
|
Dim i As Integer
|
|
For i = 0 To clb.Items.Count - 1
|
|
clb.SetItemCheckState(i, CheckState.Unchecked)
|
|
Next
|
|
|
|
Dim chk As Integer = 0
|
|
Dim ii As Integer
|
|
Dim oc As CheckedListBox.ObjectCollection = clb.Items
|
|
For i = 0 To data.Rows.Count - 1
|
|
For ii = 0 To oc.Count - 1
|
|
If oc.Item(ii).item(0) = data.Rows(i).Item(2) Then
|
|
clb.SetItemCheckState(ii, CheckState.Checked)
|
|
End If
|
|
Next
|
|
Next
|
|
|
|
|
|
End Sub
|
|
''' <summary>
|
|
''' Daten ab Form speichern
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Save_data()
|
|
Applikation.sBezeichnung = New SqlString(CType(Me.txtBezeichnung.Text, String))
|
|
Applikation.iParentID = New SqlInt32(CType(Me.cbboxParentTree.SelectedNode.Tag, Int32))
|
|
Applikation.iApplikationVerantwortungNr = New SqlInt32(CType(Me.cbboxVerantwortung.SelectedValue, Int32))
|
|
Applikation.iApplikationTeamnr = New SqlInt32(CType(Me.cbboxTeam.SelectedValue, Int32))
|
|
Applikation.iApplikationKategorieNr = New SqlInt32(CType(Me.cbboxKategorie.SelectedValue, Int32))
|
|
Applikation.iMarktbereichnr = New SqlInt32(CType(Me.cbboxMarktbereich.SelectedValue, Int32))
|
|
If IsDate(Me.txtInaktivseit.Text) Then
|
|
Applikation.daInaktivseit = New SqlDateTime(CType(Me.txtInaktivseit.Text, DateTime))
|
|
Else
|
|
Applikation.daInaktivseit = New SqlDateTime(CType(SqlDateTime.Null, DateTime))
|
|
End If
|
|
Applikation.sVersion = New SqlString(CType(Me.txtVersion.Text, String))
|
|
Applikation.bAlsProdukt = New SqlBoolean(CType(Me.cbalsProdukt.Checked = True, Boolean))
|
|
Applikation.bNurLizenz = New SqlBoolean(CType(Me.cbLizenzerfassung.Checked = True, Boolean))
|
|
Applikation.sPrioWiederanlauf = New SqlString(CType(Me.txtPrioWiederanlauf.Text, String))
|
|
Applikation.iSecurityLevelNr = New SqlInt32(CType(Me.cboxSecurityLevel.SelectedValue, Int32))
|
|
Applikation.iRfcBoardNr = New SqlInt32(CType(Me.cboxRFCBoard.SelectedValue, Int32))
|
|
Applikation.bAktiv = New SqlBoolean(CType(Me.cbAktiv.Checked = True, Boolean))
|
|
Applikation.bRAS = New SqlBoolean(CType(Me.cbRAS.Checked = True, Boolean))
|
|
Applikation.sDatenbankname = New SqlString(CType(Me.txtDBName.Text, String))
|
|
Applikation.sAnzahl_Installationen = New SqlString(CType(Me.txtAnzInstallationen.Text, String))
|
|
Applikation.sKurzbeschreibung = New SqlString(CType(Me.txtKurzbeschreibung.Text, String))
|
|
If Me.cbboxTestaufwand.SelectedText = "" Then Me.cbboxTestaufwand.SelectedValue = 1
|
|
Applikation.sTest_Aufwand = New SqlString(CType(Me.cbboxTestaufwand.SelectedValue, String))
|
|
Applikation.sTest_Arbeitsplaetze = New SqlString(CType(Me.txtTestArbeitsplaetze.Text, String))
|
|
Applikation.sTest_Abhaengigkeiten = New SqlString(CType(Me.txtAbhaengigkeiten.Text, String))
|
|
Applikation.sTest_Bemerkung = New SqlString(CType(Me.txtBemerkung.Text, String))
|
|
Applikation.bTicketXPertVerwendung = New SqlBoolean(CType(Me.cbTicketXPertVerwendung.Checked = True, Boolean))
|
|
Applikation.bTicketXPert_WPIAnzeigen = New SqlBoolean(CType(Me.cbWPIAnzeigen.Checked = True, Boolean))
|
|
Applikation.sTicketXPert_Preis = New SqlString(CType(Me.txtWPIPreis.Text, String))
|
|
Applikation.sTicketXPert_Preis_Einmalig = New SqlString(CType(Me.txtPreisEinmalig.Text, String))
|
|
Applikation.bTicketXPert_AMAnzeigen = New SqlBoolean(CType(Me.cbAMAnzeigen.Checked = True, Boolean))
|
|
Applikation.iTicketXPert_ApplikationKritikalitaetTypNr = New SqlInt32(CType(Me.cbboxKritikalität.SelectedValue, Int32))
|
|
Applikation.iTicketXPert_ApplikationSMLTypNr = New SqlInt32(CType(Me.cbboxSLM.SelectedValue, Int32))
|
|
|
|
Me.Applikation.bSensitiveDaten = New SqlBoolean(CType(Me.cbSensitiveDaten.Checked, Boolean))
|
|
Me.Applikation.sSensitiveDatenBemerkung = New SqlString(CType(Me.txtSensitiveDaten.Text, String))
|
|
Me.Applikation.iSensitiveDatenAdministriertdurch = New SqlInt32(CType(Me.cbboxAdministriertdurch.SelectedValue, Int32))
|
|
|
|
Me.Applikation.sSensitiveDatenUeberwachungBemerkung = New SqlString(CType(Me.TxtUeberwachung.Text, String))
|
|
Me.Applikation.iSensitiveDatenUeberwachungPeriodizitaet = New SqlInt32(CType(Me.cbboxPeriodizitaet.SelectedValue, Int32))
|
|
Me.Applikation.sSensitiveDatenUserBemerkung = New SqlString(CType(Me.TxtUser.Text, String))
|
|
Me.Applikation.iSensitiveDatenAnzahlComit = New SqlInt32(CType(Me.TxtAnzComit.Text, Int32))
|
|
Me.Applikation.iSensitiveDatenAnzahlExterne = New SqlInt32(CType(Me.txtAnzExterne.Text, Int32))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Applikation.Save_CheckedData(Me.lboxInstalliertauf, 1)
|
|
Applikation.Save_CheckedData(Me.lboxInstalliertals, 2)
|
|
Applikation.Save_CheckedData(Me.lboxStandardFuer, 3)
|
|
|
|
|
|
|
|
|
|
Applikation.Save_Data()
|
|
Me.FormDataChanged = False
|
|
End Sub
|
|
|
|
Private Function Get_CheckedItems(ByRef clb As CheckedListBox) As String
|
|
Dim i As Integer = 0
|
|
Dim s As String = ""
|
|
For i = 1 To clb.CheckedItems.Count
|
|
s = s + clb.CheckedItems(i).ToString
|
|
|
|
Next
|
|
Return s
|
|
End Function
|
|
#End Region
|
|
|
|
#Region "Security"
|
|
''' <summary>
|
|
''' Laden der Securitylevel-Daten in die Combobox
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Load_Securitylevel()
|
|
Dim seclevel As New TKB.VV.DB.clsSecurityLevel
|
|
Dim secleveldata As New DataTable
|
|
|
|
seclevel.cpMainConnectionProvider = Globals.conn
|
|
Globals.conn.OpenConnection()
|
|
secleveldata = seclevel.SelectAll
|
|
Globals.conn.CloseConnection(True)
|
|
|
|
Me.cboxSecurityLevel.DataSource = secleveldata
|
|
Me.cboxSecurityLevel.DisplayMember = "Bezeichnung"
|
|
Me.cboxSecurityLevel.ValueMember = "SecurityLevelNr"
|
|
|
|
seclevel.Dispose()
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Eventhandler ChangeEreignisse"
|
|
''' <summary>
|
|
''' Allg Eventhandler für Chanage-Ereignise festlegen
|
|
''' </summary>
|
|
''' <param name="Container"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub AddChanges(ByVal Container As Control)
|
|
Dim l As New List(Of Control)
|
|
Me.GetControl(Me, "*", l)
|
|
Dim evh As EventHandler = AddressOf ChangesMade
|
|
For Each c As Control In l
|
|
If TypeOf c Is TextBox Then
|
|
Dim ctl As TextBox = c
|
|
AddHandler ctl.TextChanged, evh
|
|
End If
|
|
If TypeOf c Is MaskedTextBox Then
|
|
Dim ctl As MaskedTextBox = c
|
|
AddHandler ctl.TextChanged, evh
|
|
End If
|
|
If TypeOf c Is ComboBox Then
|
|
Dim ctl As ComboBox = c
|
|
AddHandler ctl.SelectedValueChanged, evh
|
|
End If
|
|
If TypeOf c Is CheckBox Then
|
|
If c.Name <> "cboxNurAktive" Then
|
|
Dim ctl As CheckBox = c
|
|
AddHandler ctl.CheckedChanged, evh
|
|
End If
|
|
End If
|
|
Next
|
|
End Sub
|
|
''' <summary>
|
|
''' Envent-Handler für Change-Ereignisse
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
|
|
Me.FormDataChanged = True
|
|
Dim objtype As System.Type = sender.GetType
|
|
If objtype.Name = "MaskedTextBox" Then
|
|
Dim o As MaskedTextBox = sender
|
|
If o.Text = "01.01.1900" Then o.Text = " . . "
|
|
End If
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
|
|
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
|
|
''' </summary>
|
|
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
|
|
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
|
|
''' <param name="L">Liste der gefundenen Objekte</param>
|
|
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
|
|
''' </returns>
|
|
''' <remarks></remarks>
|
|
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
|
|
If L Is Nothing Then L = New List(Of Control)
|
|
Dim Gut As Boolean
|
|
Dim ReturnFlag As Boolean = False
|
|
If Key IsNot Nothing Then Key = Key.ToLower
|
|
|
|
If BaseControl.HasChildren = True Then
|
|
For Each ctl As Control In BaseControl.Controls
|
|
Gut = False
|
|
If Key Is Nothing Then
|
|
Gut = True
|
|
Else
|
|
If ctl.Name.Length >= Key.Length Then
|
|
Key = Key.ToLower
|
|
If Key.StartsWith("*") Then
|
|
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
|
|
ElseIf Key.EndsWith("*") Then
|
|
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
|
|
Else
|
|
If Key = ctl.Name.ToLower Then Gut = True
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If Gut = True Then
|
|
L.Add(ctl)
|
|
If ReturnAtFirstElement = True Then ReturnFlag = True
|
|
End If
|
|
If ReturnFlag = False Then
|
|
Call GetControl(ctl, Key, L)
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If L.Count - 1 > -1 Then
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
End Function
|
|
#End Region
|
|
|
|
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
' Display in a message box all the items that are checked.
|
|
Dim indexChecked As Integer
|
|
Dim itemChecked As Object
|
|
Const quote As String = """"
|
|
|
|
|
|
' First show the index and check state of all selected items.
|
|
For Each indexChecked In lboxInstalliertals.CheckedIndices
|
|
' The indexChecked variable contains the index of the item.
|
|
MessageBox.Show("Index#: " + indexChecked.ToString() + ", is checked. Checked state is:" + _
|
|
lboxInstalliertals.GetItemCheckState(indexChecked).ToString() + ".")
|
|
Next
|
|
|
|
' Next show the object title and check state for each item selected.
|
|
For Each itemChecked In lboxInstalliertals.CheckedItems
|
|
|
|
' Use the IndexOf method to get the index of an item.
|
|
MessageBox.Show("Item with title: " + quote + itemChecked.ToString() + quote + _
|
|
", is checked. Checked state is: " + _
|
|
lboxInstalliertals.GetItemCheckState(lboxInstalliertals.Items.IndexOf(itemChecked)).ToString() + ".")
|
|
Next
|
|
|
|
For Each GG As System.Data.DataRowView In Me.lboxInstalliertals.CheckedItems
|
|
MsgBox("hALLO")
|
|
|
|
Next
|
|
|
|
End Sub
|
|
|
|
Private Sub cbTicketXPertVerwendung_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbTicketXPertVerwendung.CheckedChanged
|
|
If Me.cbTicketXPertVerwendung.Checked = False Then
|
|
Me.grpTicketXpert.Enabled = False
|
|
Else
|
|
Me.grpTicketXpert.Enabled = True
|
|
End If
|
|
End Sub
|
|
''' <summary>
|
|
''' Index-Wechsel auf TabControlApplikation
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
|
|
Private Sub TabControlApplikation_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControlApplikation.SelectedIndexChanged
|
|
Refresh_Registerlasche()
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Aktuelle Registerlasche aktualisieren
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Refresh_Registerlasche()
|
|
Select Case Me.TabControlApplikation.SelectedTab.Text
|
|
Case "Vertragsinhalt", "Suchbegriffe"
|
|
Case "Lizenzen"
|
|
Refresh_Lizenzen()
|
|
Case "Dokumente"
|
|
Refresh_Dokumente()
|
|
Case "Kontakte"
|
|
Refresh_Kontakte()
|
|
Case "Ereignisse"
|
|
'Refresh_Ereignisse()
|
|
Case "Vertragsbeziehungen"
|
|
Refresh_Vertragsbeziehungen()
|
|
Case "Testing"
|
|
Refresh_Drehbuecher()
|
|
Refresh_Abhaengigkeiten()
|
|
Case "Architektur"
|
|
Me.Check_Changes()
|
|
Me.DiagramControl1.Init_Diagram()
|
|
Me.DiagramControl1.Refresh()
|
|
Me.DiagramControl1.TempFilePath = Globals.clsapplication.sTmp_filepath
|
|
Me.DiagramControl1.ConnectionString = Globals.sConnectionString
|
|
Me.DiagramControl1.ApplikationNr = Me.Applikation.iApplikationNr.Value
|
|
Me.DiagramControl1.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
Me.FormDataChanged = False
|
|
End Select
|
|
End Sub
|
|
|
|
#Region "Lizenzen"
|
|
|
|
Private Function Refresh_Lizenzen()
|
|
Try
|
|
Me.C1Lizenzkäufe.DataSource = Nothing
|
|
Me.C1Lizenzschluessel.DataSource = Nothing
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Me.Applikation.Get_Vertragslizenzen(Me.C1Lizenzvertraege)
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Lizenzvertraege, "ApplikationLizenzvertragselement", Me.Applikation.Lizenzen)
|
|
Me.Lizenzkauf_Aktualisieren()
|
|
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Rowstyle von inaktiven Kündigungsfristen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Kuendigungsfristen_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Lizenzvertraege.FetchRowStyle
|
|
Try
|
|
If Me.C1Lizenzvertraege.Columns("aktiv").CellValue(e.Row) = False Then
|
|
Dim FNT As Font = e.CellStyle.Font
|
|
e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
|
|
e.CellStyle.ForeColor = Color.Gray
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
#Region "Lizenzkauf"
|
|
''' <summary>
|
|
''' Aktualiserung der Grids Lizenzkauf und Lizenzschluessel
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Lizenzkauf_Aktualisieren()
|
|
Try
|
|
'Me.Applikation.Vertragselement.Lizenzinformationen.Get_Lizenzkauf(Me.C1Lizenzvertraege.Columns("Vertragselementnr").Value, Me.C1Lizenzkäufe)
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Lizenzkäufe, "Lizenzkauf", Me.Applikation.Vertragselement.Lizenzinformationen.Lizenzkauf.Tabledata)
|
|
Set_Lizenzkauf_Filter()
|
|
Me.Lizenzschluessel_Aktualisieren()
|
|
Catch ex As Exception
|
|
Exit Sub
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Aktualisierung der Spalten mutiert_am und mutierern. Sofern noch kein Schlüsselwert gesetzt ist (bei neuem Datensatz)
|
|
''' wird dieser aus der Keytabelle ausgelesen und zugewiesen.
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks>Je Domaintable ist ein Eintrag in der Key-Tabelle notwendig</remarks>
|
|
Private Sub C1Lizenzkäufe_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1Lizenzkäufe.AfterColUpdate
|
|
'Aktualisieren von Mutierer und Mutiert_am
|
|
Dim i As Integer
|
|
Try
|
|
For i = 0 To Me.C1Lizenzkäufe.Columns.Count - 1
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "mutiert_am" Then Me.C1Lizenzkäufe.Columns(i).Value = Now
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "mutierer" Then Me.C1Lizenzkäufe.Columns(i).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
Next
|
|
|
|
'neuer DB-Key auslösen, sofern kein Key vorhanden ist
|
|
If Me.C1Lizenzkäufe.Columns(0).Value Is DBNull.Value Then
|
|
Dim dbkey As New TKB.VV.DB.clsMyKey_Tabelle()
|
|
Dim key As Long
|
|
dbkey.cpMainConnectionProvider = conn
|
|
key = dbkey.get_dbkey("Lizenzkauf")
|
|
Me.C1Lizenzkäufe.Columns(0).Value = key
|
|
For i = 0 To Me.C1Lizenzkäufe.Columns.Count - 1
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "mandantnr" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = Globals.clsmitarbeiter.iMandantnr.Value
|
|
End If
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "erstellt_am" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = Now
|
|
End If
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "securitylevel" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = 0
|
|
End If
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "aktiv" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = 1
|
|
End If
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "extern" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = 0
|
|
End If
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "vertragselementnr" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = Me.Applikation.Vertragselement.iVertragselementnr.Value
|
|
End If
|
|
|
|
Next
|
|
dbkey.Dispose()
|
|
End If
|
|
Me.Lizenzschluessel_Aktualisieren()
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Aktualisierung der Default-Werte
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Lizenzkäufe_AfterInsert(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Lizenzkäufe.AfterInsert
|
|
Dim i As Integer
|
|
'Defaulwerte erstellt_am, mutiert_am, mutierer und aktiv setzen
|
|
Try
|
|
For i = 0 To C1Lizenzkäufe.Columns.Count - 1
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "aktiv" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = 1
|
|
End If
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "vertragselementnr" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = Me.Applikation.Vertragselement.iVertragselementnr.Value
|
|
End If
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "mutiert_am" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = Now
|
|
End If
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "mutierer" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
End If
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "mandantnr" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = Globals.clsmitarbeiter.iMandantnr.Value
|
|
End If
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "mandnat" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = Globals.clsmitarbeiter.iMandantnr.Value
|
|
End If
|
|
Next
|
|
Me.Lizenzschluessel_Aktualisieren()
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' Rowstyle von inaktiven Kündigungsfristen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Lizenzkäufe_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Lizenzkäufe.FetchRowStyle
|
|
Try
|
|
If Me.C1Lizenzkäufe.Columns("aktiv").CellValue(e.Row) = False Then
|
|
Dim FNT As Font = e.CellStyle.Font
|
|
e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
|
|
e.CellStyle.ForeColor = Color.Gray
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Prüfung auf Änderungen, sofern das Grid "C1Lizenzkäufe" verlassen wird
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Lizenzkäufe_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Lizenzkäufe.Leave
|
|
Try
|
|
If Me.Applikation.Vertragselement.Lizenzinformationen.Lizenzkauf.Tabledata.HasChanges Then
|
|
If msg.Show_MessageYesNoCancel(800) = MsgBoxResult.Yes Then
|
|
Me.Applikation.Vertragselement.Lizenzinformationen.Lizenzkauf.Save_Data()
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Mousedown-Ereignis auf Lizenzkauf
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Lizenzkäufe_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Lizenzkäufe.MouseDown, C1Lizenzkäufe.MouseUp
|
|
Me.Lizenzschluessel_Aktualisieren()
|
|
End Sub
|
|
''' <summary>
|
|
''' Lizenzkauf speichern
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub btnSaveLizenzkauf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveLizenzkauf.Click
|
|
Me.Applikation.Vertragselement.Lizenzinformationen.Lizenzkauf.Save_Data()
|
|
End Sub
|
|
''' <summary>
|
|
''' Anzeige gem. Aktivstatus ändern
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub cbLizenzkaufAktiv_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbLizenzkaufAktiv.CheckStateChanged
|
|
Set_Lizenzkauf_Filter()
|
|
End Sub
|
|
''' <summary>
|
|
''' Filter in der Spalte Aktiv des Grids C1Lizenzkauf ändern
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Set_Lizenzkauf_Filter()
|
|
Try
|
|
Select Case Me.cbLizenzkaufAktiv.CheckState
|
|
Case CheckState.Checked
|
|
Me.C1Lizenzkäufe.Columns("Aktiv").FilterText = True
|
|
Case CheckState.Indeterminate
|
|
Me.C1Lizenzkäufe.Columns("Aktiv").FilterText = ""
|
|
Case CheckState.Unchecked
|
|
Me.C1Lizenzkäufe.Columns("Aktiv").FilterText = False
|
|
End Select
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "Lizenzschluessel"
|
|
''' <summary>
|
|
''' Aktualiserung der Grids Lizenzkauf und Lizenzschluessel
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Lizenzschluessel_Aktualisieren()
|
|
Try
|
|
Me.Applikation.Vertragselement.Lizenzinformationen.Get_Lizenzschluessel(Me.C1Lizenzkäufe.Columns(0).Value, Me.C1Lizenzschluessel)
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Lizenzschluessel, "Lizenzschluessel", Me.Applikation.Vertragselement.Lizenzinformationen.Lizenzschluessel.Tabledata)
|
|
Set_Lizenzschluessel_Filter()
|
|
Catch ex As Exception
|
|
Exit Sub
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Aktualisierung der Spalten mutiert_am und mutierern. Sofern noch kein Schlüsselwert gesetzt ist (bei neuem Datensatz)
|
|
''' wird dieser aus der Keytabelle ausgelesen und zugewiesen.
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks>Je Domaintable ist ein Eintrag in der Key-Tabelle notwendig</remarks>
|
|
Private Sub C1Lizenzschluessel_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1Lizenzschluessel.AfterColUpdate
|
|
'Aktualisieren von Mutierer und Mutiert_am
|
|
Dim i As Integer
|
|
Try
|
|
For i = 0 To Me.C1Lizenzschluessel.Columns.Count - 1
|
|
If LCase(Me.C1Lizenzschluessel.Columns(i).DataField) = "mutiert_am" Then Me.C1Lizenzschluessel.Columns(i).Value = Now
|
|
If LCase(Me.C1Lizenzschluessel.Columns(i).DataField) = "mutierer" Then Me.C1Lizenzschluessel.Columns(i).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
Next
|
|
|
|
'neuer DB-Key auslösen, sofern kein Key vorhanden ist
|
|
If Me.C1Lizenzschluessel.Columns(0).Value Is DBNull.Value Then
|
|
Dim dbkey As New TKB.VV.DB.clsMyKey_Tabelle()
|
|
Dim key As Long
|
|
dbkey.cpMainConnectionProvider = conn
|
|
key = dbkey.get_dbkey("Lizenzschluessel")
|
|
Me.C1Lizenzschluessel.Columns(0).Value = key
|
|
For i = 0 To Me.C1Lizenzschluessel.Columns.Count - 1
|
|
If LCase(Me.C1Lizenzschluessel.Columns(i).DataField) = "mandantnr" Then
|
|
Me.C1Lizenzschluessel.Columns(i).Value = Globals.clsmitarbeiter.iMandantnr.Value
|
|
End If
|
|
If LCase(Me.C1Lizenzschluessel.Columns(i).DataField) = "erstellt_am" Then
|
|
Me.C1Lizenzschluessel.Columns(i).Value = Now
|
|
End If
|
|
If LCase(Me.C1Lizenzschluessel.Columns(i).DataField) = "securitylevel" Then
|
|
Me.C1Lizenzschluessel.Columns(i).Value = 0
|
|
End If
|
|
If LCase(Me.C1Lizenzschluessel.Columns(i).DataField) = "aktiv" Then
|
|
Me.C1Lizenzschluessel.Columns(i).Value = 1
|
|
End If
|
|
If LCase(Me.C1Lizenzschluessel.Columns(i).DataField) = "extern" Then
|
|
Me.C1Lizenzschluessel.Columns(i).Value = 0
|
|
End If
|
|
If LCase(Me.C1Lizenzschluessel.Columns(i).DataField) = "lizenzkaufnr" Then
|
|
Me.C1Lizenzschluessel.Columns(i).Value = Me.C1Lizenzkäufe.Columns(0).Value
|
|
End If
|
|
|
|
Next
|
|
dbkey.Dispose()
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Aktualisierung der Default-Werte
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Lizenzschluessel_AfterInsert(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Lizenzschluessel.AfterInsert
|
|
Dim i As Integer
|
|
'Defaulwerte erstellt_am, mutiert_am, mutierer und aktiv setzen
|
|
Try
|
|
For i = 0 To C1Lizenzschluessel.Columns.Count - 1
|
|
If LCase(Me.C1Lizenzschluessel.Columns(i).DataField) = "aktiv" Then
|
|
Me.C1Lizenzschluessel.Columns(i).Value = 1
|
|
End If
|
|
If LCase(Me.C1Lizenzschluessel.Columns(i).DataField) = "lizenzkaufnr" Then
|
|
Me.C1Lizenzschluessel.Columns(i).Value = Me.C1Lizenzkäufe.Columns(0).Value
|
|
End If
|
|
If LCase(Me.C1Lizenzschluessel.Columns(i).DataField) = "mutiert_am" Then
|
|
Me.C1Lizenzschluessel.Columns(i).Value = Now
|
|
End If
|
|
If LCase(Me.C1Lizenzschluessel.Columns(i).DataField) = "mutierer" Then
|
|
Me.C1Lizenzschluessel.Columns(i).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
End If
|
|
If LCase(Me.C1Lizenzschluessel.Columns(i).DataField) = "mandantnr" Then
|
|
Me.C1Lizenzschluessel.Columns(i).Value = Globals.clsmitarbeiter.iMandantnr.Value
|
|
End If
|
|
If LCase(Me.C1Lizenzschluessel.Columns(i).DataField) = "mandnat" Then
|
|
Me.C1Lizenzschluessel.Columns(i).Value = Globals.clsmitarbeiter.iMandantnr.Value
|
|
End If
|
|
Next
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' Anzeige allfälliger Cellen-Tips
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Lizenzschluessel_FetchCellTips(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles C1Lizenzschluessel.FetchCellTips
|
|
Dim ts As New TKB.VV.Utils.Tabellenspalte
|
|
ts.Tabelle = "DokumentAblageOrt"
|
|
Try
|
|
ts.Feld = Me.C1Lizenzschluessel.Columns(e.ColIndex).DataField
|
|
ts.getspalte()
|
|
e.CellTip = ts.TipText
|
|
Catch
|
|
End Try
|
|
ts = Nothing
|
|
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Rowstyle von inaktiven Kündigungsfristen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Lizenzschluessel_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Lizenzschluessel.FetchRowStyle
|
|
Try
|
|
If Me.C1Lizenzschluessel.Columns("aktiv").CellValue(e.Row) = False Then
|
|
Dim FNT As Font = e.CellStyle.Font
|
|
e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
|
|
e.CellStyle.ForeColor = Color.Gray
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Prüfung auf Änderungen, sofern das Grid "C1Lizenzschlüssel" verlassen wird
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Lizenzschluessel_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Lizenzschluessel.Leave
|
|
Try
|
|
If Me.Applikation.Vertragselement.Lizenzinformationen.Lizenzschluessel.Tabledata.HasChanges Then
|
|
If msg.Show_MessageYesNoCancel(801) = MsgBoxResult.Yes Then
|
|
Me.Applikation.Vertragselement.Lizenzinformationen.Lizenzschluessel.Save_Data()
|
|
End If
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
''' <summary>
|
|
''' Sichern der Lizenzschlüssel-Informationen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub btnSaveLizenzschluessel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveLizenzschluessel.Click
|
|
Me.Applikation.Vertragselement.Lizenzinformationen.Lizenzschluessel.Save_Data()
|
|
End Sub
|
|
''' <summary>
|
|
''' Anzeige gem. Aktivstatus ändern
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub cbLizenzschluesselAktiv_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbLizenzschluesselAktiv.CheckStateChanged
|
|
Set_Lizenzschluessel_Filter()
|
|
End Sub
|
|
''' <summary>
|
|
''' Filter in der Spalte Aktiv des Grids C1Lizenzschluessel ändern
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Set_Lizenzschluessel_Filter()
|
|
Try
|
|
Select Case Me.cbLizenzschluesselAktiv.CheckState
|
|
Case CheckState.Checked
|
|
Me.C1Lizenzschluessel.Columns("Aktiv").FilterText = True
|
|
Case CheckState.Indeterminate
|
|
Me.C1Lizenzschluessel.Columns("Aktiv").FilterText = ""
|
|
Case CheckState.Unchecked
|
|
Me.C1Lizenzschluessel.Columns("Aktiv").FilterText = False
|
|
End Select
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#End Region
|
|
|
|
Private Sub C1Lizenzvertraege_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Lizenzvertraege.MouseDown
|
|
Me.Lizenzkauf_Aktualisieren()
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrehbuchspeichern.Click
|
|
Dim f As frmDokument
|
|
Dim i As Integer = 0
|
|
i = Me.Applikation.Dokument.Exists_Testdrehbuch(Me.Applikation.iApplikationNr.Value)
|
|
If i < 1 Then
|
|
f = New frmDokument(0, 2, Me.Applikation.iApplikationNr.Value, Me.FormReadonly, True)
|
|
Else
|
|
f = New frmDokument(i, 2, Me.Applikation.iApplikationNr.Value, Me.FormReadonly, False)
|
|
End If
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub btnDrehbuchanzeigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrehbuchanzeigen.Click
|
|
Dim i As Integer = 0
|
|
i = Me.Applikation.Dokument.Exists_Testdrehbuch(Me.Applikation.iApplikationNr.Value)
|
|
If i > 0 Then
|
|
Me.Applikation.Dokument.Show_Doc(i)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
#Region "Dokumente"
|
|
''' <summary>
|
|
''' Dokumetne_Aktualisieren
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Refresh_Dokumente()
|
|
Try
|
|
If Check_Changes() = False Then Exit Sub
|
|
Catch ex As Exception
|
|
End Try
|
|
Dim filtertext As String = "none"
|
|
Try
|
|
filtertext = Me.C1Dokumente.Columns("Aktiv").FilterText
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
Dim bm As Integer = 0
|
|
bm = Me.C1Dokumente.Bookmark
|
|
|
|
Me.C1Dokumente.Enabled = False
|
|
|
|
Me.Applikation.Get_Dokumente(Me.C1Dokumente, Me.ImageListeDocIcon)
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Dokumente, "Dokument", Me.Applikation.dokumente)
|
|
If filtertext <> "none" Then Me.C1Dokumente.Columns("Aktiv").FilterText = filtertext
|
|
sec.Set_Form_Security(Me)
|
|
|
|
Try
|
|
Me.C1Dokumente.Bookmark = bm
|
|
Catch ex As Exception
|
|
End Try
|
|
Me.C1Dokumente.Enabled = True
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Dokument anzeigen (Dialog)
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub DokumentAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokumentAnzeigenToolStripMenuItem.Click
|
|
Try
|
|
Dim f As New frmDokument(Me.C1Dokumente.Columns("Dokumentnr").Value, 1, Me.Applikation.iApplikationNr.Value, Me.FormReadonly)
|
|
f.MdiParent = Me.MdiParent
|
|
f.Show()
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Neues Dokument generieren und anzeigen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub DokumentNeuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokumentNeuToolStripMenuItem.Click
|
|
Try
|
|
Dim f As New frmDokument(0, 3, Me.Applikation.iApplikationNr.Value, Me.FormReadonly, True)
|
|
f.MdiParent = Me.MdiParent
|
|
f.Show()
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Dokument inaktivieren
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub DokumentLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokumentLöschenToolStripMenuItem.Click
|
|
Try
|
|
If msg.Show_MessageYesNo(275) = MsgBoxResult.Yes Then
|
|
Me.Applikation.Dokument.Delete_Dokument(Me.C1Dokumente.Columns("Dokumentnr").Value)
|
|
evh.Dokumente_Geloscht()
|
|
End If
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
''' <summary>
|
|
''' Doppelklick eines Eintrages - Dokument-Anzeige (Dialog)
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks>Ist der Button DokumentAnzeigenToolStripMenuItem disabled, Doppelklick ignorieren</remarks>
|
|
|
|
Private Sub DokumentAnzeigen_Dokument_ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokumentAnzeigen_Dokument_ToolStripMenuItem.Click
|
|
Try
|
|
Me.Applikation.Dokument.Show_Doc(Me.C1Dokumente.Columns("Dokumentnr").Value)
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
''' <summary>
|
|
''' Doppelklick eines Eintrages - Dokument-Anzeige (Dialog)
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks>Ist der Button DokumentAnzeigenToolStripMenuItem disabled, Doppelklick ignorieren</remarks>
|
|
Private Sub C1Dokumente_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Dokumente.DoubleClick
|
|
If Me.DokumentAnzeigenToolStripMenuItem.Enabled = False Then
|
|
Exit Sub
|
|
End If
|
|
Me.DokumentAnzeigenToolStripMenuItem_Click(sender, e)
|
|
End Sub
|
|
''' <summary>
|
|
''' Rowstyle von inaktiven Dokumenten
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Dokumente_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Dokumente.FetchRowStyle
|
|
Try
|
|
If Me.C1Dokumente.Columns("aktiv").CellValue(e.Row) = False Then
|
|
Dim FNT As Font = e.CellStyle.Font
|
|
e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
|
|
e.CellStyle.ForeColor = Color.Gray
|
|
End If
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Positionierung im Grid
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Dokumente_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Dokumente.MouseDown
|
|
Me.C1Dokumente.Bookmark = Me.C1Dokumente.RowContaining(e.Y)
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region "Context-Menu-Handling"
|
|
|
|
''' <summary>
|
|
''' Enabling bzw. Disabling der Menu-Einträge aufgrund der angezeigten Rows im Truedbgrind
|
|
''' </summary>
|
|
''' <param name="menu">Zu bearbeitendes Menu</param>
|
|
''' <param name="c1data">Betroffenes Grid</param>
|
|
''' <returns></returns>
|
|
''' <remarks>Nach dem Setzen der Submenus wird sec.form_Security durchlaufen, damit allfällig standardmössig aktivierte Menueinträge
|
|
''' aufgrund der Security-Einstellung wieder deaktiviert werden</remarks>
|
|
Private Function Disable_Enable_Menu(ByRef menu As ContextMenuStrip, ByRef c1data As C1TrueDBGrid)
|
|
If Me.FormReadonly Then
|
|
For Each obj As Object In menu.Items
|
|
Dim objtype As System.Type = obj.GetType
|
|
If LCase(objtype.Name) = "toolstripmenuitem" Then
|
|
Dim mnu As ToolStripMenuItem = obj
|
|
If (mnu.Text.IndexOf("Anzeigen") > 0 Or mnu.Text.IndexOf("anzeigen") > 0) And c1data.Splits(0).Rows.Count > 0 Then
|
|
mnu.Enabled = True
|
|
Else
|
|
mnu.Enabled = False
|
|
End If
|
|
End If
|
|
Next
|
|
sec.Set_Form_Security(Me)
|
|
Exit Function
|
|
End If
|
|
|
|
If c1data.Splits(0).Rows.Count = 0 Then
|
|
For Each obj As Object In menu.Items
|
|
Dim objtype As System.Type = obj.GetType
|
|
If LCase(objtype.Name) = "toolstripmenuitem" Then
|
|
Dim mnu As ToolStripMenuItem = obj
|
|
If mnu.Text.IndexOf("Neu") > 0 Then
|
|
mnu.Enabled = True
|
|
Else
|
|
mnu.Enabled = False
|
|
End If
|
|
End If
|
|
Next
|
|
Else
|
|
For Each obj As Object In menu.Items
|
|
Dim objtype As System.Type = obj.GetType
|
|
If LCase(objtype.Name) = "toolstripmenuitem" Then
|
|
Dim mnu As ToolStripMenuItem = obj
|
|
mnu.Enabled = True
|
|
End If
|
|
Next
|
|
End If
|
|
sec.Set_Form_Security(Me)
|
|
|
|
End Function
|
|
''' <summary>
|
|
''' Handelt das Opending-Ereignis des Context-Menus
|
|
''' </summary>
|
|
''' <remarks>
|
|
''' Überi Disable_Enable_Menu werden die Menueinträge aktiviert bzw. deaktiviert
|
|
''' </remarks>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <seealso
|
|
''' cref="M:Vertragsverwaltung.frmVertragselement.Disable_Enable_Menu(System.Windows.Forms.ContextMenuStrip@,C1.Win.C1TrueDBGrid.C1TrueDBGrid@)"></seealso>
|
|
Private Sub DokumenteMenuStrip_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles DokumenteMenuStrip.Opening
|
|
Me.Disable_Enable_Menu(sender, Me.C1Dokumente)
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Kontakte"
|
|
''' <summary>
|
|
''' Kontakte aktualisieren
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
'''
|
|
|
|
Private Sub Refresh_Kontakte()
|
|
Try
|
|
If Check_Changes() = False Then Exit Sub
|
|
Catch ex As Exception
|
|
End Try
|
|
Dim filtertext As String = "none"
|
|
Try
|
|
filtertext = Me.C1Kontakte.Columns("Aktiv").FilterText
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
Dim bm As Integer = 0
|
|
bm = Me.C1Kontakte.Bookmark
|
|
|
|
Me.C1Kontakte.Enabled = False
|
|
Me.Applikation.Get_Applikationskontakte(Me.C1Kontakte)
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Kontakte, "Vertragskontakt", Me.Applikation.Applikationskontakte.Tabledata)
|
|
If filtertext <> "none" Then Me.C1Kontakte.Columns("Aktiv").FilterText = filtertext
|
|
sec.Set_Form_Security(Me)
|
|
|
|
Try
|
|
Me.C1Kontakte.Bookmark = bm
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Me.C1Kontakte.Enabled = True
|
|
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Anzeigen bzw. bearbeitnen eines Kontaktes
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub KontaktAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KontaktAnzeigenToolStripMenuItem.Click
|
|
Try
|
|
Dim f As New frmApplikationskontakt(Me.C1Kontakte.Columns("Applikationkontaktnr").Value, 1, Me.Aktuelle_Applikation, False, Me.FormReadonly)
|
|
f.MdiParent = Me.MdiParent
|
|
f.Show()
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
''' <summary>
|
|
''' Disable bzw. Enable der Menueinträge
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub KontakteMenuStrip_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles KontakteMenuStrip.Opening
|
|
Me.Disable_Enable_Menu(sender, Me.C1Kontakte)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Rowstyle von inaktiven Kontakten
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Kontakte_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Kontakte.FetchRowStyle
|
|
Try
|
|
If Me.C1Kontakte.Columns("aktiv").CellValue(e.Row) = False Then
|
|
Dim FNT As Font = e.CellStyle.Font
|
|
e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
|
|
e.CellStyle.ForeColor = Color.Gray
|
|
End If
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
''' <summary>
|
|
''' Mousedown Kontakte
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Kontakte_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Kontakte.MouseDown
|
|
Me.C1Kontakte.Bookmark = Me.C1Kontakte.RowContaining(e.Y)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Doppelklick auf einem Kontakt
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks>Ist der MenuEintrag KontaktAnzeigenToolStripMenuItem disabled,
|
|
''' wird der Doppelklick ignoriert</remarks>
|
|
Private Sub C1Kontakte_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Kontakte.DoubleClick
|
|
|
|
If Me.KontaktAnzeigenToolStripMenuItem.Enabled = False Then
|
|
Exit Sub
|
|
End If
|
|
Try
|
|
Me.KontaktAnzeigenToolStripMenuItem_Click(sender, e)
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Neuer Vertragskontakt erstellen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub KontaktNeuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KontaktNeuToolStripMenuItem.Click
|
|
Try
|
|
'Dim i As Integer = Me.Vertragselement.Vertragskontakt.Add_New(Me.Vertragselement.iVertragselementnr.Value)
|
|
Dim f As New frmApplikationskontakt(0, 1, Me.Aktuelle_Applikation, True)
|
|
f.MdiParent = Me.MdiParent
|
|
f.Show()
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
End Sub
|
|
''' <summary>
|
|
''' Vertragskontakt inaktivieren
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub KontaktLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KontaktLöschenToolStripMenuItem.Click
|
|
Try
|
|
If msg.Show_MessageYesNo(265) = MsgBoxResult.Yes Then
|
|
Me.Applikation.Applikationskontakt.Delete_Applikationskontakt(Me.C1Kontakte.Columns("Applikationkontaktnr").Value)
|
|
evh.Kontakte_Geloescht()
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
|
|
#Region "Vertragselemente"
|
|
''' <summary>
|
|
''' Applikationen aktualiseren
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Refresh_Vertragsbeziehungen()
|
|
Try
|
|
|
|
If Check_Changes() = False Then Exit Sub
|
|
Catch ex As Exception
|
|
End Try
|
|
Dim filtertext As String = "none"
|
|
Try
|
|
filtertext = Me.C1Vertragselemente.Columns("Aktiv").FilterText
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
Dim bm As Integer = 0
|
|
bm = Me.C1Vertragselemente.Bookmark
|
|
|
|
Me.C1Vertragselemente.Enabled = False
|
|
Dim datac1vertragselemente As New DataTable
|
|
datac1vertragselemente = Me.Applikation.Get_Vertragselemente(Me.Applikation.iApplikationNr.Value)
|
|
Me.C1Vertragselemente.DataSource = datac1vertragselemente
|
|
Me.C1Vertragselemente.DataMember = datac1vertragselemente.TableName
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Vertragselemente, "VertragselementApplikation", datac1vertragselemente)
|
|
sec.Set_Form_Security(Me)
|
|
If filtertext <> "none" Then Me.C1Vertragselemente.Columns("Aktiv").FilterText = filtertext
|
|
|
|
Try
|
|
Me.C1Vertragselemente.Bookmark = bm
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
Me.C1Vertragselemente.Enabled = True
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Rowstyle von inaktiven Pendenzen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Vertragselemente_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Vertragselemente.FetchRowStyle
|
|
Try
|
|
If Me.C1Vertragselemente.Columns("aktiv").CellValue(e.Row) = False Then
|
|
Dim FNT As Font = e.CellStyle.Font
|
|
e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
|
|
e.CellStyle.ForeColor = Color.Gray
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
''' <summary>
|
|
''' Positionierung im Grid
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Applikationen_Mousedown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Vertragselemente.MouseDown
|
|
Me.C1Vertragselemente.Bookmark = Me.C1Vertragselemente.RowContaining(e.Y)
|
|
End Sub
|
|
|
|
Private Sub evh_FormularVertragselementApplikation_Closed() Handles evh.Update_Uebersicht
|
|
Try
|
|
Me.Refresh_Registerlasche()
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' VertragsbeziehungMenuStrip Opening
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub VertragsbeziehungMenuStrip_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles VertragsbeziehungMenuStrip.Opening
|
|
Me.Disable_Enable_Menu(sender, Me.C1Vertragselemente)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Anzeige Vertragselement
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub VertragselementAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertragselementAnzeigenToolStripMenuItem.Click
|
|
Dim f As New frmVertragselement(Me.C1Vertragselemente.Columns(1).Value, Me.FormReadonly, False)
|
|
f.MdiParent = Me.MdiParent
|
|
f.Show()
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
|
|
Private Sub dtPickerInaktivSeit_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtPickerInaktivSeit.ValueChanged
|
|
Dim s As String
|
|
Dim obj As DateTimePicker = sender
|
|
s = obj.Name
|
|
s = "txt" + s.Substring(8, s.Length - 8)
|
|
Dim l As New List(Of Control)
|
|
Dim txtb As MaskedTextBox
|
|
GetControl(Me, s, l)
|
|
For Each ctl As Control In l
|
|
txtb = CType(ctl, MaskedTextBox)
|
|
txtb.Text = obj.Value
|
|
Next
|
|
Me.txtInaktivseit_Leave(sender, e)
|
|
|
|
End Sub
|
|
|
|
Private Sub txtInaktivseit_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtInaktivseit.Leave
|
|
If Trim(Me.txtInaktivseit.Text) <> ". ." Then
|
|
Me.cbAktiv.Checked = False
|
|
Else
|
|
Me.cbAktiv.Checked = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnSearchAppl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearchAppl.Click
|
|
Try
|
|
Dim f As New frmVertragselementApplikation(0, False)
|
|
f.ShowDialog()
|
|
If f.SelectedApplication <> 0 Then
|
|
Me.cbboxParentTree.SelectedNode = Me.TreeParent.FindNode(Me.cbboxParentTree.TreeView.Nodes, f.SelectedApplication, "")
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TSBtnFilterAufheben_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnFilterAufheben.Click
|
|
Me.tstxtSuche.Text = ""
|
|
Treeviewdata.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.cboxNurAktive.Checked)
|
|
Try
|
|
Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub tstxtSuche_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tstxtSuche.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
Me.TSBtnSuche_Click(sender, e)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub cbboxVerantwortung_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbboxVerantwortung.SelectedIndexChanged
|
|
Try
|
|
Me.Applikation.Refresh_Teams(Me.cbboxVerantwortung.SelectedValue)
|
|
If Me.Applikation.Teams.Rows.Count = 0 Then
|
|
Me.cbboxTeam.Enabled = False
|
|
Else
|
|
Me.cbboxTeam.Enabled = True
|
|
Me.cbboxTeam.DataSource = Me.Applikation.Teams
|
|
Me.cbboxTeam.DisplayMember = "Bezeichnung"
|
|
Me.cbboxTeam.ValueMember = "Keyvalue"
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
#Region "Testing"
|
|
''' <summary>
|
|
''' Dokumetne_Aktualisieren
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Refresh_Drehbuecher()
|
|
Try
|
|
If Check_Changes() = False Then Exit Sub
|
|
Catch ex As Exception
|
|
End Try
|
|
Dim filtertext As String = "none"
|
|
Try
|
|
filtertext = Me.C1Drehbuch.Columns("Aktiv").FilterText
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
Dim bm As Integer = 0
|
|
bm = Me.C1Drehbuch.Bookmark
|
|
|
|
Me.C1Drehbuch.Enabled = False
|
|
|
|
Me.Applikation.Get_Drehbuecker(Me.C1Drehbuch, Me.ImageListeDocIcon)
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Drehbuch, "Dokument", Me.Applikation.dokumente)
|
|
If filtertext <> "none" Then Me.C1Drehbuch.Columns("Aktiv").FilterText = filtertext
|
|
sec.Set_Form_Security(Me)
|
|
Try
|
|
Me.C1Drehbuch.Bookmark = bm
|
|
Catch ex As Exception
|
|
End Try
|
|
Me.C1Drehbuch.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub DrehbuchAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DrehbuchAnzeigenToolStripMenuItem.Click
|
|
Try
|
|
Dim f As New frmDokument(Me.C1Drehbuch.Columns("Dokumentnr").Value, 2, Me.Applikation.iApplikationNr.Value, Me.FormReadonly)
|
|
f.MdiParent = Me.MdiParent
|
|
f.Show()
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub DrehbuchNeuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DrehbuchNeuToolStripMenuItem.Click
|
|
Try
|
|
Dim f As New frmDokument(0, 2, Me.Applikation.iApplikationNr.Value, Me.FormReadonly, True)
|
|
f.MdiParent = Me.MdiParent
|
|
f.Show()
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub DrehbuchLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DrehbuchLöschenToolStripMenuItem.Click
|
|
Try
|
|
If msg.Show_MessageYesNo(275) = MsgBoxResult.Yes Then
|
|
Me.Applikation.Dokument.Delete_Dokument(Me.C1Drehbuch.Columns("Dokumentnr").Value)
|
|
evh.Dokumente_Geloscht()
|
|
End If
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub Drehbuch_Anzeigen_Dokument_ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Drehbuch_Anzeigen_Dokument_ToolStripMenuItem.Click
|
|
Try
|
|
Me.Applikation.Dokument.Show_Doc(Me.C1Drehbuch.Columns("Dokumentnr").Value)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub C1Drehbuch_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
|
|
Try
|
|
Drehbuch_Anzeigen_Dokument_ToolStripMenuItem_Click(sender, e)
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
''' Dokumetne_Aktualisieren
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Refresh_Abhaengigkeiten()
|
|
Try
|
|
If Check_Changes() = False Then Exit Sub
|
|
Catch ex As Exception
|
|
End Try
|
|
Dim filtertext As String = "none"
|
|
Try
|
|
filtertext = Me.C1Abhaengigkeiten.Columns("Aktiv").FilterText
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
Dim bm As Integer = 0
|
|
bm = Me.C1Abhaengigkeiten.Bookmark
|
|
|
|
Me.C1Abhaengigkeiten.Enabled = False
|
|
|
|
Me.Applikation.Get_Applikationsabhaengigkeiten(Me.C1Abhaengigkeiten, Me.Applikation.iApplikationNr.Value)
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Abhaengigkeiten, "ApplikationAbhaengigkeit", Me.Applikation.Applikationabhaengigkeiten.Tabledata)
|
|
If filtertext <> "none" Then Me.C1Abhaengigkeiten.Columns("Aktiv").FilterText = filtertext
|
|
sec.Set_Form_Security(Me)
|
|
Try
|
|
Me.C1Abhaengigkeiten.Bookmark = bm
|
|
Catch ex As Exception
|
|
End Try
|
|
Me.C1Abhaengigkeiten.Enabled = True
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Neue Applikationsabhaengigkeit
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub AbhaengigkeitNeuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbhaengigkeitNeuToolStripMenuItem.Click
|
|
Try
|
|
Dim f As New frmApplikationAbhaengigkeit(0, Me.Applikation.iApplikationNr.Value, Me.FormReadonly, True)
|
|
f.MdiParent = Me.MdiParent
|
|
f.Show()
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub AbhaengigkeitAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbhaengigkeitAnzeigenToolStripMenuItem.Click
|
|
Try
|
|
Dim f As New frmApplikationAbhaengigkeit(Me.C1Abhaengigkeiten.Columns("Applikationabhaengigkeitnr").Value, 0, Me.FormReadonly)
|
|
f.MdiParent = Me.MdiParent
|
|
f.Show()
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub AbhaengigkeitLoeschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbhaengigkeitLoeschenToolStripMenuItem.Click
|
|
Try
|
|
If msg.Show_MessageYesNo(852) = MsgBoxResult.Yes Then
|
|
Me.Applikation.Applikationabhaengigkeit.Delete_Referenz(Me.C1Abhaengigkeiten.Columns("ApplikationAbhaengigkeitnr").Value)
|
|
Me.Refresh_Abhaengigkeiten()
|
|
End If
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
Private Sub DrehbuchMenuStrip_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles DrehbuchMenuStrip.Opening
|
|
Me.Disable_Enable_Menu(sender, Me.C1Drehbuch)
|
|
End Sub
|
|
|
|
Private Sub C1Drehbuch_DoubleClick1(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Drehbuch.DoubleClick
|
|
Try
|
|
Me.Applikation.Dokument.Show_Doc(Me.C1Drehbuch.Columns("Dokumentnr").Value)
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
Private Sub C1Drehbuch_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Drehbuch.FetchRowStyle
|
|
Try
|
|
If Me.C1Drehbuch.Columns("aktiv").CellValue(e.Row) = False Then
|
|
Dim FNT As Font = e.CellStyle.Font
|
|
e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
|
|
e.CellStyle.ForeColor = Color.Gray
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub AbhaengigkeitMenuStrip_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles AbhaengigkeitMenuStrip.Opening
|
|
Me.Disable_Enable_Menu(sender, Me.C1Abhaengigkeiten)
|
|
End Sub
|
|
|
|
Private Sub C1Abhaengigkeiten_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Abhaengigkeiten.DoubleClick
|
|
Try
|
|
Dim f As New frmApplikationAbhaengigkeit(Me.C1Abhaengigkeiten.Columns("Applikationabhaengigkeitnr").Value, 0, Me.FormReadonly)
|
|
f.MdiParent = Me.MdiParent
|
|
f.Show()
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub C1Abhaengigkeiten_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Abhaengigkeiten.FetchRowStyle
|
|
Try
|
|
If Me.C1Abhaengigkeiten.Columns("aktiv").CellValue(e.Row) = False Then
|
|
Dim FNT As Font = e.CellStyle.Font
|
|
e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
|
|
e.CellStyle.ForeColor = Color.Gray
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Sub cboxNurAktive_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboxNurAktive.CheckedChanged
|
|
If Me.Check_Changes Then
|
|
If Me.tstxtSuche.Text <> "" Then
|
|
Treeviewdata.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.cboxNurAktive.Checked)
|
|
Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
|
|
Me.FormDataChanged = False
|
|
Else
|
|
Treeviewdata.Load_Tree(Me.TreeApplikationen, False, "", Me.cboxNurAktive.Checked)
|
|
Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
|
|
Me.FormDataChanged = False
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub MassenUpdatesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MassenUpdatesToolStripMenuItem.Click
|
|
Dim f As New frmKontaktMassenupdate
|
|
f.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub TreeApplikationenAlleKnotenSchliessenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TreeApplikationenAlleKnotenSchliessenToolStripMenuItem.Click
|
|
Me.TreeApplikationen.CollapseAll()
|
|
End Sub
|
|
''' <summary>
|
|
''' Alle Knoten öffnen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub TreeApplikationenAlleKnotenÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TreeApplikationenAlleKnotenÖffnenToolStripMenuItem.Click
|
|
Me.TreeApplikationen.ExpandAll()
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnApplReport.Click
|
|
Dim auswertungen As New TKB.Auswertung.clsAuswertung
|
|
Dim SQLWhere As String = ""
|
|
Dim Auswertungsdaten As New DataTable
|
|
|
|
auswertungen.Get_Auswertung(999)
|
|
Auswertungsdaten = auswertungen.Get_Auswertungsdaten(auswertungen.Auswertung.sSQL.Value, Me.Applikation.iApplikationNr.Value)
|
|
Dim f As New frmcrreporting(Auswertungsdaten, auswertungen.Auswertung.iAuswertungNr.Value, auswertungen, False)
|
|
f.MdiParent = Me.MdiParent
|
|
Me.Cursor = Cursors.Default
|
|
f.Show()
|
|
End Sub
|
|
|
|
|
|
Private Sub ToolStripButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
|
|
If Not Me.FormReadonly Then Check_Changes()
|
|
Dim i As Integer
|
|
Treeviewdata.Load_Tree(Me.TreeApplikationen, False, Me.tstxtArchitektur.Text, Me.cboxNurAktive.Checked, True)
|
|
Try
|
|
Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
|
|
Me.tstxtArchitektur.Text = ""
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub tstxtArchitektur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tstxtArchitektur.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub tstxtArchitektur_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tstxtArchitektur.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
ToolStripButton1_Click_1(sender, e)
|
|
End If
|
|
End Sub
|
|
End Class |