AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD-Record-Organizer/frmLicense.vb
View File

@@ -56,7 +56,7 @@ Public Class frmLicense
Dim result As String = Me._lizenzManager.EncodeLicenseKey(ressultstring, "#DigitalData35452!#")
Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_PMO = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
Refresh_Licence(True)
End If
@@ -147,13 +147,13 @@ Public Class frmLicense
Dim wrapper As New ClassEncryption("!35452didalog=")
Dim cipherText As String = wrapper.EncryptData(dtpLicenseAddon.Value.ToString("yyyy-MM-dd"))
Dim sql = String.Format("SELECT COUNT(GUID) FROM TBDD_LICENSE_ADD_ON WHERE CLIENT_ID = {0} AND MODULE = 'Record-Organizer' AND UPPER(NAME) = UPPER('{1}')", CLIENT_ID, cmbAddOn.Text)
Dim count = ClassDatabase.Execute_Scalar(sql, False)
Dim count = MYDB_ECM.GetScalarValue(SQL)
If count = 0 Then
sql = String.Format("INSERT INTO TBDD_LICENSE_ADD_ON (CLIENT_ID, MODULE,NAME,VALID_DATE) VALUES ({0},'Record-Organizer','{1}','{2}')", CLIENT_ID, cmbAddOn.Text, cipherText)
ClassDatabase.Execute_non_Query(sql)
MYDB_ECM.ExecuteNonQuery(Sql)
Else
sql = String.Format("UPDATE TBDD_LICENSE_ADD_ON SET VALID_DATE = '{0}' WHERE CLIENT_ID = {1} AND UPPER(MODULE) = UPPER('Record-Organizer') AND UPPER(NAME) = UPPER('{2}')", cipherText, CLIENT_ID, cmbAddOn.Text)
ClassDatabase.Execute_non_Query(sql)
MYDB_ECM.ExecuteNonQuery(Sql)
End If
Refresh_Licence(False)
Else