Update nach Sync GRC und aktueller Version

Vertragsverwaltung/Lizenzverwaltung/frm_Lizenz_VEAppl.vb

@@ -233,12 +233,12 @@ Public Class frm_Lizenz_VEAppl
         Me.cbLizenzelement.DisplayMember = "Bezeichnung"
         Me.cbLizenzelement.ValueMember = "Vertragselementnr"
         If cbLizenzelement.Items.Count < 1 Then Me.bznErstellenundzuweisen.Enabled = False Else Me.bznErstellenundzuweisen.Enabled = True
-        Dim dt As New DataTable
-        dt = vae.Get_Vertragselemente(Me.Aktueller_Vertragspartner)
-        Me.C1VertragselementApplikation.DataSource = dt
-        Me.C1VertragselementApplikation.DataMember = dt.TableName
-        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1VertragselementApplikation, "VertragselementApplikation", dt)
-        If dt.Rows.Count < 1 Then Me.btnBestehendesLizenzelement_Zuweisen.Enabled = False Else Me.btnBestehendesLizenzelement_Zuweisen.Enabled = True
+        'Dim dt As New DataTable
+        'dt = vae.Get_Vertragselemente(Me.Aktueller_Vertragspartner)
+        'Me.C1VertragselementApplikation.DataSource = dt
+        'Me.C1VertragselementApplikation.DataMember = dt.TableName
+        'Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1VertragselementApplikation, "VertragselementApplikation", dt)
+        'If dt.Rows.Count < 1 Then Me.btnBestehendesLizenzelement_Zuweisen.Enabled = False Else Me.btnBestehendesLizenzelement_Zuweisen.Enabled = True
     End Sub
 
     Private Sub btnApplikationSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnApplikationSuche.Click
@@ -263,7 +263,7 @@ Public Class frm_Lizenz_VEAppl
         If Me.CreateNew = True Then
             If Create_Lizenz() = True Then
                 Dim cliveapp As New TKB.VV.Lizenz.clsLizenzVertragselementApplikation
-                cliveapp.Add_New(Aktuelle_Lizenznr, Me.C1VertragselementApplikation.Columns("Vertragselementapplikationnr").Value)
+                cliveapp.Add_New(Aktuelle_Lizenznr, Me.C1VertragselementApplikation.Columns("Vertragselementapplikationnr").Value, Me.txtHyperlink.Text.ToString)
                 Me.DialogResult = Windows.Forms.DialogResult.OK
                 Me.SelectedApplikation = Me.C1VertragselementApplikation.Columns("Applikationnr").Value
                 Me.Close()
@@ -271,7 +271,7 @@ Public Class frm_Lizenz_VEAppl
 
         Else
             Dim cliveapp As New TKB.VV.Lizenz.clsLizenzVertragselementApplikation
-            cliveapp.Add_New(Aktuelle_Lizenznr, Me.C1VertragselementApplikation.Columns("Vertragselementapplikationnr").Value)
+            cliveapp.Add_New(Aktuelle_Lizenznr, Me.C1VertragselementApplikation.Columns("Vertragselementapplikationnr").Value, Me.txtHyperlink.Text.ToString)
             Me.DialogResult = Windows.Forms.DialogResult.OK
             Me.SelectedApplikation = Me.C1VertragselementApplikation.Columns("Applikationnr").Value
             Me.Close()
@@ -308,7 +308,7 @@ Public Class frm_Lizenz_VEAppl
                 End Try
                 cveap.Save_Data()
                 Dim cliveapp As New TKB.VV.Lizenz.clsLizenzVertragselementApplikation
-                cliveapp.Add_New(Aktuelle_Lizenznr, x)
+                cliveapp.Add_New(Aktuelle_Lizenznr, x, Me.txtHyperlink.Text.ToString)
                 Me.SelectedApplikation = Me.Aktuelle_Applikation
                 Me.DialogResult = Windows.Forms.DialogResult.OK
                 Me.Close()
@@ -337,7 +337,7 @@ Public Class frm_Lizenz_VEAppl
             End Try
             cveap.Save_Data()
             Dim cliveapp As New TKB.VV.Lizenz.clsLizenzVertragselementApplikation
-            cliveapp.Add_New(Aktuelle_Lizenznr, x)
+            cliveapp.Add_New(Aktuelle_Lizenznr, x, Me.txtHyperlink.Text.ToString)
             Me.SelectedApplikation = Me.Aktuelle_Applikation
             Me.DialogResult = Windows.Forms.DialogResult.OK
             Me.Close()
@@ -426,7 +426,7 @@ Public Class frm_Lizenz_VEAppl
                 End Try
                 cveap.Save_Data()
                 Dim cliveapp As New TKB.VV.Lizenz.clsLizenzVertragselementApplikation
-                cliveapp.Add_New(Aktuelle_Lizenznr, x)
+                cliveapp.Add_New(Aktuelle_Lizenznr, x, Me.txtHyperlink.Text.ToString)
                 Me.SelectedApplikation = Me.Aktuelle_Applikation1
                 Me.DialogResult = Windows.Forms.DialogResult.OK
                 Me.Close()
@@ -445,7 +445,8 @@ Public Class frm_Lizenz_VEAppl
             End Try
             cveap.Save_Data()
             Dim cliveapp As New TKB.VV.Lizenz.clsLizenzVertragselementApplikation
-            cliveapp.Add_New(Aktuelle_Lizenznr, x)
+            cliveapp.Add_New(Aktuelle_Lizenznr, x, Me.txtHyperlink.Text.ToString)
+
             Me.SelectedApplikation = Me.Aktuelle_Applikation1
             Me.DialogResult = Windows.Forms.DialogResult.OK
             Me.Close()
@@ -590,5 +591,17 @@ Public Class frm_Lizenz_VEAppl
         Me.pnlvedetails.Visible = False
     End Sub
 
-  
+    Private Sub txtHyperlink_TextChanged(sender As Object, e As EventArgs) Handles txtHyperlink.TextChanged
+
+    End Sub
+
+    Private Sub txtHyperlink_Leave(sender As Object, e As EventArgs) Handles txtHyperlink.Leave
+        Dim clsv As New clsValidator
+        If clsv.VerifyString(Me.txtHyperlink.Text) = False Then
+            Me.txtHyperlink.Select()
+            MsgBox(clsv.Resultmessage, vbExclamation)
+
+        End If
+        clsv = Nothing
+    End Sub
 End Class