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

MS_04072016

Browse Source
This commit is contained in:
SchreiberM
2016-07-04 16:37:52 +02:00
parent d47d0a9f95
commit 96bf81b88c
29 changed files with 4526 additions and 978 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD-Record-Organiser/frmLicense.vb
View File

@@ -25,7 +25,7 @@ Public Class frmLicense
Try
If Me.txtNewlicences.Text <> "" And txtDossierCount.Text <> "" Then
'Encode the license
Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text & "#" & txtDossierCount.Text, "#DigitalData35452!#")
Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text & "#" & txtDossierCount.Text & "#" & chkSAPConnect.Checked, "#DigitalData35452!#")
Dim sql As String = "UPDATE TBDD_MODULES SET LICENSE = '" & result & "' WHERE UPPER(NAME) = UPPER('Record-Organizer')"
If ClassDatabase.Execute_non_Query(sql, True) = True Then
@@ -69,6 +69,14 @@ Public Class frmLicense
LICENSE_DOSSIER_COUNT = split(2)
txtDossierCount.Text = split(2)
Try
LICENSE_SAP_Connect = CBool(split(3))
chkSAPConnect.Checked = LICENSE_SAP_Connect
Catch ex As Exception
ClassLogger.Add(">> Could not read License for SAP-Connect: " & ex.Message, False)
LICENSE_SAP_Connect = False
chkSAPConnect.Checked = False
End Try
Me.lblAktuelleLizenzen.Text = "Aktuelle Anzahl Lizenzen: " & lizenzzahl
If Neu = True Then