修正数据库存储过程，解决缓存上传失败问题

2025-07-10 18:44:03 +08:00
parent 3d56954029
commit 000ce53775
8 changed files with 16 additions and 3 deletions
--- a/AUTS_DataService/Service1.vb
+++ b/AUTS_DataService/Service1.vb
@@ -1434,10 +1434,13 @@ Public Class Service1
    Private Function CheckLicense() As Boolean
        Try
            Dim licensePath As String = UtsRegistry.LicenseFilePath
+            UTS_Core.DebugLog.ApplicationLog.WriteInfoLog($"License Path:{licensePath}.")

            _license = New License(licensePath)
            _license.CheckLicense()

+            UTS_Core.DebugLog.ApplicationLog.WriteInfoLog($"License Info:{JsonConvert.SerializeObject(_license, Formatting.Indented)}.")
+
            UTS_Core.DebugLog.ApplicationLog.WriteInfoLog($"CheckLicense Success.")
        Catch ex As Exception
            UTS_Core.DebugLog.ApplicationLog.WriteErrorLog($"CheckLicense Error:{ex.Message}.")