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

MS V2.7 .Net Logger etc

Browse Source
This commit is contained in:
SchreiberM
2021-06-15 16:28:55 +02:00
parent e2619eb3ad
commit e796ae91cb
109 changed files with 295499 additions and 8793 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD-Record-Organizer/ClassLicence.vb
View File

@@ -7,7 +7,7 @@ Public Class ClassLicence
Try
Dim todayDate As Date = New Date(Now.Year, Now.Month, Now.Day)
If LogErrorsOnly = False Then ClassLogger.Add(" >> todayDate: " & todayDate.ToString, False)
LOGGER.Debug("todayDate: " & todayDate.ToString)
_lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
Dim sql As String = String.Format("SELECT LICENSE_PMO FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
@@ -30,19 +30,19 @@ Public Class ClassLicence
Dim LICENSE_FILE_DATE As Date
Try
LICENSE_FILE_DATE = New Date(LicDATEsplit(0), LicDATEsplit(1), LicDATEsplit(2))
If LogErrorsOnly = False Then ClassLogger.Add(" >> LICENSE_FILE_DATE: " & LICENSE_FILE_DATE.ToString, False)
LOGGER.Debug("LICENSE_FILE_DATE: " & LICENSE_FILE_DATE.ToString)
Try
Try
LICENSE_DATE = CDate(LICENSE_FILE_DATE)
Catch ex As Exception
ClassLogger.Add(">> Could not read LICENSE_DATE2: " & ex.Message, False)
LOGGER.Warn("Could not read LICENSE_DATE2: " & ex.Message)
End Try
Catch ex As Exception
ClassLogger.Add(">> Could not read LICENSE_DATE1: " & ex.Message, False)
LOGGER.Warn("Could not read LICENSE_DATE1: " & ex.Message)
End Try
Catch ex As Exception
ClassLogger.Add(">> Could not read LICENSE_DATE3: " & ex.Message, False)
LOGGER.Warn("Could not read LICENSE_DATE3: " & ex.Message)
LICENSE_FILE_DATE = New Date(Now.Year, Now.Month, Now.Day)
End Try
@@ -59,7 +59,7 @@ Public Class ClassLicence
DT_LICENSE_ADDONS = ClassDatabase.Return_Datatable(sql)
For Each license_Row As DataRow In DT_LICENSE_ADDONS.Rows
Dim expired As Boolean = False
If LogErrorsOnly = False Then ClassLogger.Add(" >> AddOnName: " & license_Row.Item("NAME"), False)
LOGGER.Debug("AddOnName: " & license_Row.Item("NAME"))
Dim result = ClassHelper.DecryptString(license_Row.Item("VALID_DATE"), license_Row.Item("NAME"))
If result <> "" Then
Dim datesplit() = result.ToString.Split("-")
@@ -94,7 +94,7 @@ Public Class ClassLicence
Try
LICENSE_DOSSIER_COUNT = split(2)
Catch ex As Exception
ClassLogger.Add(">> Could not read License for LICENSE_DOSSIER_COUNT: " & ex.Message, False)
LOGGER.Warn("Could not read License for LICENSE_DOSSIER_COUNT: " & ex.Message)
LICENSE_DOSSIER_COUNT = 0
End Try