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.
764 lines
31 KiB
764 lines
31 KiB
Imports System
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Public Class FrmLizenz
|
|
|
|
#Region "Deklarationen"
|
|
Dim Vertragselement As New TKB.VV.Vertrag.clsVertragselement
|
|
Dim Applikation As New TKB.VV.DB.clsApplikation
|
|
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
|
|
Dim Lizenztyp As New DataTable
|
|
Dim clsLizenztyp As New TKB.VV.DB.clsLizenztyp
|
|
Dim Vertragselementapplikationnr As Integer
|
|
|
|
Private Anzeige As Boolean = False
|
|
Dim Neuer_Datensatz As Boolean = False
|
|
|
|
Dim Applikationnr As Integer
|
|
'Dim ApplikationVersionNr As Integer
|
|
'Dim Vertragselementnr As Integer
|
|
|
|
#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
|
|
UpdateGrids()
|
|
If Me.FormReadonly = True Then Exit Sub
|
|
If Check_Changes() = False Then
|
|
e.Cancel = True
|
|
Else
|
|
Me.dispose()
|
|
End If
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Prüfung, ob Datenänderungen vorgenommen wurden.
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Function Check_Changes() As Boolean
|
|
UpdateGrids()
|
|
If Me.FormReadonly Then Exit Function
|
|
Dim msgres As MsgBoxResult
|
|
If Me.FormDataChanged Then
|
|
msgres = msg.Show_MessageYesNoCancel(3)
|
|
Select Case msgres
|
|
Case MsgBoxResult.Yes
|
|
Me.Vertragselement.Lizenzinformationen.Lizenzkauf.Save_Data()
|
|
Me.Vertragselement.Lizenzinformationen.Lizenzschluessel.Save_Data()
|
|
Me.FormDataChanged = False
|
|
Return True
|
|
Case MsgBoxResult.Cancel
|
|
Return False
|
|
Case MsgBoxResult.No
|
|
Return True
|
|
End Select
|
|
Else
|
|
Return True
|
|
End If
|
|
End Function
|
|
|
|
#End Region
|
|
#Region "Formular"
|
|
|
|
''' <summary>
|
|
''' Standard Constructore New
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Sub New()
|
|
InitializeComponent()
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Formualr mit Vertragselementnr und Anzeigestatus öffnen
|
|
''' </summary>
|
|
''' <param name="Vertragselementnr">Nr des Vertragspartners</param>
|
|
''' <param name="Anzeige">True=Readonly, False=normal</param>
|
|
''' <remarks></remarks>
|
|
'Sub New(ByVal vertragselementnr As Integer, ByVal applikationnr As Integer, ByVal anzeige As Boolean, ByVal ApplikationVersionNr As Integer)
|
|
' MyBase.New()
|
|
' InitializeComponent()
|
|
' Me.Vertragselementnr = vertragselementnr
|
|
' Me.Applikationnr = applikationnr
|
|
' Me.Anzeige = anzeige
|
|
' Me.ApplikationVersionNr = ApplikationVersionNr
|
|
'End Sub
|
|
Sub New(ByVal vertragselementapplikationnr As Integer, ByVal anzeige As Boolean, ByVal applikationnr As Integer)
|
|
MyBase.New()
|
|
InitializeComponent()
|
|
Me.Vertragselementapplikationnr = vertragselementapplikationnr
|
|
Me.Applikationnr = applikationnr
|
|
Me.Anzeige = anzeige
|
|
End Sub
|
|
|
|
Public Overloads Sub dispose()
|
|
Me.Vertragselement.dispose()
|
|
Me.Vertragselement = Nothing
|
|
sec = Nothing
|
|
msg = Nothing
|
|
MyBase.Dispose()
|
|
End Sub
|
|
|
|
Private Sub FrmLizenz_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.Vertragselement.Lizenzinformationen.Get_Lizenzkauf(Me.Vertragselementapplikationnr, Me.C1Lizenzkäufe)
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Lizenzkäufe, "Lizenzkauf", Me.Vertragselement.Lizenzinformationen.Lizenzkauf.Tabledata)
|
|
Set_Lizenzkauf_Filter()
|
|
Me.C1Lizenzkäufe.Columns("Vertragselementapplikationnr").FilterText = Me.Vertragselementapplikationnr
|
|
Me.Lizenzschluessel_Aktualisieren()
|
|
Me.Applikation.cpMainConnectionProvider = Globals.conn
|
|
Me.Applikation.iApplikationNr = New SqlInt32(CType(Me.Applikationnr, Int32))
|
|
Me.Applikation.SelectOne()
|
|
Me.Text = "Lizenzverwaltung " + Me.Applikation.sBezeichnung.Value
|
|
Me.Applikation.Dispose()
|
|
|
|
Me.Lizenztyp.Rows.Clear()
|
|
Me.clsLizenztyp.cpMainConnectionProvider = Globals.conn
|
|
Me.Lizenztyp = Me.clsLizenztyp.SelectAll
|
|
|
|
Me.C1LizenztypDropDwon.DataSource = Me.Lizenztyp
|
|
Dim i As Integer
|
|
For i = 0 To Me.C1LizenztypDropDwon.DisplayColumns.Count - 1
|
|
Me.C1LizenztypDropDwon.DisplayColumns(i).Visible = False
|
|
Next
|
|
Me.C1LizenztypDropDwon.DisplayColumns("Bezeichnung").Visible = True
|
|
Me.C1LizenztypDropDwon.ValueMember = "Lizenztypnr"
|
|
Me.C1LizenztypDropDwon.DisplayMember = "Bezeichnung"
|
|
Me.C1LizenztypDropDwon.ValueTranslate = True
|
|
Me.C1Lizenzkäufe.Columns("Lizenztypnr").DropDown = Me.C1LizenztypDropDwon
|
|
Me.C1Lizenzkäufe.Columns("Lizenztypnr").ValueItems.Translate = True
|
|
Me.C1Lizenzkäufe.AllowAddNew = False
|
|
Me.C1Lizenzschluessel.AllowAddNew = False
|
|
|
|
|
|
End Sub
|
|
|
|
Private Function Get_Lizenzkauf() 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_get_lizenzkauf"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vertragselementapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Vertragselementapplikationnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@applikationnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Applikationnr))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
Throw New Exception("clsParentelemente::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
|
|
#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.UpdateGrids()
|
|
Me.Vertragselement.Lizenzinformationen.Lizenzkauf.Save_Data()
|
|
Me.Vertragselement.Lizenzinformationen.Lizenzschluessel.Save_Data()
|
|
Me.FormDataChanged = False
|
|
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
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
''' <summary>
|
|
''' Anzeige gem. Aktivstatus ändern
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub cbLizenzkaufAktiv_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Set_Lizenzkauf_Filter()
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
#Region "Lizenzschluessel"
|
|
''' <summary>
|
|
''' Aktualiserung des Grids Lizenzschlüssel
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Lizenzschluessel_Aktualisieren()
|
|
|
|
Try
|
|
Me.Vertragselement.Lizenzinformationen.Get_Lizenzschluessel(Me.C1Lizenzkäufe.Columns(0).Value, Me.C1Lizenzschluessel)
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Lizenzschluessel, "Lizenzschluessel", Me.Vertragselement.Lizenzinformationen.Lizenzschluessel.Tabledata)
|
|
Set_Lizenzschluessel_Filter()
|
|
Me.C1Lizenzschluessel.AllowAddNew = False
|
|
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
|
|
Update_Lizenzschluessel_data()
|
|
End Sub
|
|
Sub Update_Lizenzschluessel_Data()
|
|
'Aktualisieren von Mutierer und Mutiert_am
|
|
Dim i As Integer
|
|
Try
|
|
Me.FormDataChanged = True
|
|
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
|
|
insert_Lizenzschluessel_Data()
|
|
End Sub
|
|
Sub Insert_Lizenzschluessel_Data()
|
|
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) = "mandant" 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 Lizenzschlüssel
|
|
''' </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.Vertragselement.Lizenzinformationen.Lizenzschluessel.Tabledata.HasChanges Then
|
|
Me.UpdateGrids()
|
|
'If msg.Show_MessageYesNoCancel(801) = MsgBoxResult.Yes Then
|
|
Me.Vertragselement.Lizenzinformationen.Lizenzschluessel.Save_Data()
|
|
'End If
|
|
End If
|
|
Catch
|
|
End Try
|
|
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)
|
|
Set_Lizenzschluessel_Filter()
|
|
End Sub
|
|
''' <summary>
|
|
''' Filter in der Spalte Aktiv des Grids C1Lizenzschluessel ändern
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Set_Lizenzschluessel_Filter()
|
|
Try
|
|
Me.C1Lizenzschluessel.Columns("Aktiv").FilterText = ""
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
'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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
''' <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
|
|
Update_lizenzkauf_data()
|
|
End Sub
|
|
Sub Update_lizenzkauf_data()
|
|
'Aktualisieren von Mutierer und Mutiert_am
|
|
Dim i As Integer
|
|
Try
|
|
Me.FormDataChanged = True
|
|
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) = "vertragselementapplikationnr" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = Me.Vertragselementapplikationnr
|
|
End If
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "applikationnr" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = Me.Applikationnr
|
|
End If
|
|
'If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "applikationversionnr" Then
|
|
' Me.C1Lizenzkäufe.Columns(i).Value = Me.ApplikationVersionNr
|
|
'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
|
|
Insert_Lizenzkauf_data()
|
|
End Sub
|
|
Sub Insert_Lizenzkauf_data()
|
|
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) = "vertragselementapplikationnr" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = Me.Vertragselementapplikationnr
|
|
End If
|
|
If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "applikationnr" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = Me.Applikationnr
|
|
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) = "mandant" Then
|
|
Me.C1Lizenzkäufe.Columns(i).Value = Globals.clsmitarbeiter.iMandantnr.Value
|
|
End If
|
|
Next
|
|
Me.Lizenzschluessel_Aktualisieren()
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' Anzeige allfälliger Cellen-Tips
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Lizenzkäufe_FetchCellTips(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles C1Lizenzkäufe.FetchCellTips
|
|
Dim ts As New TKB.VV.Utils.Tabellenspalte
|
|
ts.Tabelle = "DokumentAblageOrt"
|
|
Try
|
|
ts.Feld = Me.C1Lizenzkäufe.Columns(e.ColIndex).DataField
|
|
ts.getspalte()
|
|
e.CellTip = ts.TipText
|
|
Catch
|
|
End Try
|
|
ts = Nothing
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Rowstyle von inaktiven Lizenzköufen
|
|
''' </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.Vertragselement.Lizenzinformationen.Lizenzkauf.Tabledata.HasChanges Then
|
|
Me.UpdateGrids()
|
|
'If msg.Show_MessageYesNoCancel(800) = MsgBoxResult.Yes Then
|
|
Me.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.C1Lizenzkäufe.Bookmark = Me.C1Lizenzkäufe.RowContaining(e.Y)
|
|
Me.C1Lizenzkäufe.Bookmark = Me.C1Lizenzkäufe.RowBookmark(Me.C1Lizenzkäufe.RowContaining(e.Y))
|
|
Me.Lizenzschluessel_Aktualisieren()
|
|
End Sub
|
|
''' 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)
|
|
Set_Lizenzkauf_Filter()
|
|
End Sub
|
|
''' <summary>
|
|
''' Filter in der Spalte Aktiv des Grids C1Lizenzkauf ändern
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Set_Lizenzkauf_Filter()
|
|
Try
|
|
Me.C1Lizenzkäufe.Columns("Aktiv").FilterText = ""
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
'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
|
|
|
|
|
|
Private Sub KaufdatumInitialisierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaufdatumInitialisierenToolStripMenuItem.Click
|
|
Me.C1Lizenzkäufe.Columns("Kaufdatum").Value = System.DBNull.Value
|
|
UpdateGrids()
|
|
End Sub
|
|
|
|
Private Sub GültigbisdatumInitialisierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GültigbisdatumInitialisierenToolStripMenuItem.Click
|
|
Me.C1Lizenzkäufe.Columns("Gueltigbis").Value = System.DBNull.Value
|
|
UpdateGrids()
|
|
End Sub
|
|
|
|
|
|
Private Sub TSBtnLizenzNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnLizenzNew.Click
|
|
UpdateGrids()
|
|
Try
|
|
Me.Vertragselement.Lizenzinformationen.Lizenzschluessel.Save_Data()
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Dim dt As DataTable = Me.Vertragselement.Lizenzinformationen.Lizenzkauf.Tabledata.Tables(0)
|
|
Dim dr As DataRow = dt.NewRow
|
|
dr.Item("Vertragselementapplikationnr") = Me.Vertragselementapplikationnr
|
|
dt.Rows.Add(dr)
|
|
Try
|
|
Dim a = 0
|
|
Dim i As Integer
|
|
For i = 0 To Me.C1Lizenzkäufe.RowCount - 1
|
|
Me.C1Lizenzkäufe.Bookmark = i
|
|
If Me.C1Lizenzkäufe.Columns(0).Value.ToString = "" Then a = i
|
|
Next
|
|
Me.C1Lizenzkäufe.Bookmark = a
|
|
Catch
|
|
End Try
|
|
Insert_Lizenzkauf_data()
|
|
Update_lizenzkauf_data()
|
|
Me.C1Lizenzkäufe.Focus()
|
|
End Sub
|
|
|
|
Private Sub TSBtnLizenzDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnLizenzDelete.Click
|
|
UpdateGrids()
|
|
Me.Vertragselement.Lizenzinformationen.Lizenzschluessel.Save_Data()
|
|
Try
|
|
Me.C1Lizenzkäufe.Columns("Aktiv").Value = False
|
|
Update_lizenzkauf_data()
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TSBtnLizenzschluesselNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnLizenzschluesselNew.Click
|
|
UpdateGrids()
|
|
Try
|
|
Me.Vertragselement.Lizenzinformationen.Lizenzkauf.Save_Data()
|
|
Catch
|
|
End Try
|
|
Try
|
|
Dim dt As DataTable = Me.Vertragselement.Lizenzinformationen.Lizenzschluessel.Tabledata.Tables(0)
|
|
Dim dr As DataRow = dt.NewRow
|
|
dr.Item("Lizenzkaufnr") = Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value
|
|
dt.Rows.Add(dr)
|
|
Try
|
|
Dim a = 0
|
|
Dim i As Integer
|
|
For i = 0 To Me.C1Lizenzschluessel.RowCount - 1
|
|
Me.C1Lizenzschluessel.Bookmark = i
|
|
If Me.C1Lizenzschluessel.Columns(0).Value.ToString = "" Then a = i
|
|
Next
|
|
Me.C1Lizenzschluessel.Bookmark = a
|
|
Catch
|
|
End Try
|
|
Insert_Lizenzschluessel_Data()
|
|
Update_Lizenzschluessel_Data()
|
|
Me.C1Lizenzschluessel.Focus()
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub TSBtnLizenzschluesselDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnLizenzschluesselDelete.Click
|
|
UpdateGrids()
|
|
Me.Vertragselement.Lizenzinformationen.Lizenzkauf.Save_Data()
|
|
Try
|
|
Me.C1Lizenzschluessel.Columns("Aktiv").Value = False
|
|
Update_Lizenzschluessel_Data()
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Sub UpdateGrids()
|
|
Dim bm1 As Integer
|
|
Dim bm2 As Integer
|
|
Try
|
|
bm1 = Me.C1Lizenzkäufe.Bookmark
|
|
bm2 = Me.C1Lizenzschluessel.Bookmark
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
Me.C1Lizenzkäufe.UpdateData()
|
|
Me.C1Lizenzschluessel.UpdateData()
|
|
Try
|
|
Me.C1Lizenzkäufe.Bookmark = bm1
|
|
Me.C1Lizenzschluessel.Bookmark = bm2
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub NeuerDatensatzToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuerDatensatzToolStripMenuItem.Click
|
|
TSBtnLizenzNew_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub DatensatzInaktivierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatensatzInaktivierenToolStripMenuItem.Click
|
|
TSBtnLizenzDelete_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuerDatensatzToolStipMenuItem.Click
|
|
TSBtnLizenzschluesselNew_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatensatzDeaktivierenToolStripMenuItem.Click
|
|
TSBtnLizenzschluesselDelete_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub Lizenzschluesselmenusstrip_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Lizenzschluesselmenusstrip.Opening
|
|
If Me.C1Lizenzkäufe.Bookmark < 0 Then
|
|
Me.Lizenzschluesselmenusstrip.Enabled = False
|
|
Else
|
|
Me.Lizenzschluesselmenusstrip.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub C1Lizenzschluessel_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Lizenzschluessel.MouseDown
|
|
Me.C1Lizenzschluessel.Bookmark = Me.C1Lizenzschluessel.RowContaining(e.Y)
|
|
Me.C1Lizenzschluessel.Bookmark = Me.C1Lizenzschluessel.RowBookmark(Me.C1Lizenzschluessel.RowContaining(e.Y))
|
|
End Sub
|
|
End Class |