Update nach Sync GRC und aktueller Version

Vertragsverwaltung/Lizenzverwaltung/Archiv_20220220/frmLizenzschluessel.vb

@@ -0,0 +1,49 @@
+Imports System.Data.SqlTypes
+Public Class frmLizenzschluessel
+    Dim ls As New TKB.VV.Lizenz.ClsLizenzschluessel
+
+    Dim LizenzkaufNr As Integer
+    Dim Lizenzschluesselnr As Integer
+    Sub New(ByVal LizenzkaufNr As Integer, ByVal Lizenzschluesselnr As Integer)
+        InitializeComponent()
+        Me.LizenzkaufNr = LizenzkaufNr
+        Me.Lizenzschluesselnr = Lizenzschluesselnr
+
+    End Sub
+
+    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+
+    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub frmLizenzschluessel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        If Me.Lizenzschluesselnr = 0 Then
+            Me.txtBemerkung.Text = ""
+            Me.txtSchluessel.Text = ""
+            Me.cbaktiv.Checked = True
+        Else
+            ls.Get_Data(Me.Lizenzschluesselnr)
+            Me.txtBemerkung.Text = ls.sBemerkung.ToString
+            Me.txtSchluessel.Text = ls.sLizenzschluessel.ToString
+            Me.cbaktiv.Checked = ls.bAktiv.Value = True
+        End If
+    End Sub
+
+    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
+        If Lizenzschluesselnr = 0 Then
+            ls.Get_Data(ls.Add_New(Me.LizenzkaufNr))
+        End If
+        ls.bAktiv = New SqlBoolean(CType(Me.cbaktiv.Checked, Boolean))
+        ls.sBemerkung = New SqlString(CType(Me.txtBemerkung.Text, String))
+        ls.sLizenzschluessel = New SqlString(CType(Me.txtSchluessel.Text, String))
+        ls.Save_Data()
+        Me.Close()
+    End Sub
+
+    Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
+        btnSave_Click(sender, e)
+    End Sub
+End Class