Update nach Sync GRC und aktueller Version
This commit is contained in:
@@ -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()
|
||||
|
||||
Reference in New Issue
Block a user