This commit is contained in:
SchreiberM
2017-01-04 17:09:26 +01:00
128 changed files with 17813 additions and 20419 deletions

View File

@@ -7,7 +7,7 @@ Public Class ClassLicence
_lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
Dim sql As String = String.Format("SELECT LICENSE_PMO FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
Dim lic As String = ClassDatabase.Execute_Scalar(sql, True)
Dim lic As String = ClassDatabase.Execute_Scalar(sql, False)
If lic = "" Then
LICENSE_COUNT = 0
LICENSE_DATE = "1900-01-01"
@@ -45,10 +45,10 @@ Public Class ClassLicence
LICENSE_SAP_Connect = False
End Try
Try
LICENSE_SITE = CBool(split(4))
LICENSE_SITE_PROXY = CBool(split(4))
Catch ex As Exception
ClassLogger.Add(">> Could not read License for LICENSE_SAP_Connect: " & ex.Message, False)
LICENSE_SITE = False
ClassLogger.Add(">> Could not read License for LICENSE_SITE_Proxy: " & ex.Message, False)
LICENSE_SITE_PROXY = False
End Try
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:")