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.

[Visual Basic]
Private Sub C1Lizenzkäufe_AfterColUpdate( _ 
   ByVal sender As Object, _ 
   ByVal e As ColEventArgs _ 
) Handles  _ 
   C1Lizenzkäufe.AfterColUpdate

Parameter

sender

e

Hinweise

Je Domaintable ist ein Eintrag in der Key-Tabelle notwendig

Quellcode

[Visual Basic]
    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.Vertragselementnr 
                    End If 
                    If LCase(Me.C1Lizenzkäufe.Columns(i).DataField) = "applikationnr" Then 
                        Me.C1Lizenzkäufe.Columns(i).Value = Me.Applikationnr 
                    End If 
 
                Next 
                dbkey.Dispose() 
            End If 
            Me.Lizenzschluessel_Aktualisieren() 
        Catch 
        End Try 
    End Sub

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

FrmLizenz