Update nach Sync GRC und aktueller Version

Vertragsverwaltung/Lizenzverwaltung/frmLizenzverwaltung.vb

@@ -1704,7 +1704,7 @@ Public Class frmLizenzverwaltung
     End Sub
 
     Private Sub DatensatzÄndernToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatensatzÄndernToolStripMenuItem1.Click
-        Dim f As New frmLizenzbeziehung_Aendern(Me.Treeviewdata_Lizenz, Me.C1VertragselementApplikation.Columns("Bemerkung").Value, Me.TreeLizenzen.SelectedNode.Tag)
+        Dim f As New frmLizenzbeziehung_Aendern(Me.Treeviewdata_Lizenz, Me.C1VertragselementApplikation.Columns("Bemerkung").Value, Me.TreeLizenzen.SelectedNode.Tag, Me.C1VertragselementApplikation.Columns("Vertragselement").Value)
         f.ShowDialog()
         If f.DialogResult = Windows.Forms.DialogResult.OK Then
             Dim cliveap As New TKB.VV.Lizenz.clsLizenzVertragselementApplikation
@@ -1713,6 +1713,9 @@ Public Class frmLizenzverwaltung
             cliveap.SelectOne()
             cliveap.iLizenznr = New SqlInt32(CType(f.TreeLizenzen.SelectedNode.Tag, Int32))
             cliveap.sBemerkung = New SqlString(CType(f.txtBemerkung.Text, String))
+            cliveap.daMutiert_am = Now()
+            cliveap.iMutierer = Globals.clsmitarbeiter.iMitarbeiternr.Value
+            cliveap.sHyperlink_Vertrag = New SqlString(CType(f.txtHyperlink.Text, String))
             Globals.conn.OpenConnection()
             cliveap.Update()
             Globals.conn.CloseConnection(True)
@@ -1725,4 +1728,40 @@ Public Class frmLizenzverwaltung
     Private Sub LEInaktivierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LEInaktivierenToolStripMenuItem.Click
         TSBtnDelete_Click(sender, e)
     End Sub
+
+    Private Sub C1VertragselementApplikation_DoubleClick(sender As Object, e As EventArgs) Handles C1VertragselementApplikation.DoubleClick
+        Globals.OpenLink(Me.C1VertragselementApplikation.Columns("Vertragselement").Value)
+    End Sub
+
+
+
+    Private Sub LinkÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LinkÖffnenToolStripMenuItem.Click
+        Globals.OpenLink(Me.C1VertragselementApplikation.Columns("Vertragselement").Value)
+    End Sub
+
+    Private Sub LinkEinfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LinkEinfügenToolStripMenuItem.Click
+        Dim s As String
+        s = InputBox("Hyperlink eingeben:")
+        If s <> "" Then
+            Dim clsv As New clsValidator
+            If clsv.VerifyString(s) = False Then
+                MsgBox(clsv.Resultmessage, vbExclamation)
+                clsv = Nothing
+                Exit Sub
+            End If
+            clsv = Nothing
+            Dim cliveap As New TKB.VV.Lizenz.clsLizenzVertragselementApplikation
+            cliveap.cpMainConnectionProvider = Globals.conn
+            cliveap.iLizenzVEApplNr = New SqlInt32(CType(Me.C1VertragselementApplikation.Columns("LizenzVEApplNr").Value, Int32))
+            cliveap.SelectOne()
+            cliveap.daMutiert_am = Now()
+            cliveap.iMutierer = Globals.clsmitarbeiter.iMitarbeiternr.Value
+            cliveap.sHyperlink_Vertrag = New SqlString(CType(s, String))
+            Globals.conn.OpenConnection()
+            cliveap.Update()
+            Globals.conn.CloseConnection(True)
+            cliveap.Dispose()
+            Me.Refresh_Vertragselemente(Me.TreeLizenzen.SelectedNode.Tag)
+        End If
+    End Sub
 End Class