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

MS_18.10

Browse Source
This commit is contained in:
SchreiberM
2016-10-19 09:11:33 +02:00
parent 353f161c57
commit 11ec67a434
8 changed files with 194 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -44,7 +44,7 @@ Public Class frmLicense
_lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
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 & "#" & chkSAPConnect.Checked, "#DigitalData35452!#")
Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text & "#" & txtDossierCount.Text & "#" & chkSAPConnect.Checked & "#" & chkSite.Checked, "#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) = True Then
@@ -65,13 +65,13 @@ Public Class frmLicense
dtpGueltig_GI.Value = LICENSE_DATE
txtDossierCount.Text = LICENSE_DOSSIER_COUNT
Try
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
chkSite.Checked = LICENSE_SITE
If Neu = True Then
If CInt(LICENSE_COUNT) > 0 Then
Dim msg As String = "Die Lizenz wurde aktualisiert!" & vbNewLine & Now