Update nach Sync GRC und aktueller Version

This commit is contained in:
2022-02-20 14:41:44 +01:00
parent cd34448d7c
commit 0c33b406f2
58 changed files with 16981 additions and 601 deletions

View File

@@ -688,7 +688,7 @@ Namespace TKB.VV.Lizenz
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Add_New(ByVal Lizenznr As Integer, ByVal VertragselementApplikationnr As Integer) As Integer
Public Function Add_New(ByVal Lizenznr As Integer, ByVal VertragselementApplikationnr As Integer, hyperlink As String) As Integer
Dim db As New TKB.VV.DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("LizenzVertragselementApplikation")
@@ -702,6 +702,7 @@ Namespace TKB.VV.Lizenz
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
Me.cpMainConnectionProvider = Globals.conn
Me.sHyperlink_Vertrag = New SqlString(CType(hyperlink, String))
'Me.iVertragselementApplikationNr = New SqlInt32(CType(0, Int32))
Globals.conn.OpenConnection()
Me.Insert()