增加文档目录

文档目录中加入每月改善计划

AUTS_ServiceControler/FrmUpdateConfig.vb

@@ -217,7 +217,10 @@ Public Class FrmUpdateConfig
         '下载安装
         Try
             UpdateInstallTip(20, "Begin InstallUpdateService...")
-            InstallUpdateService()
+            'Momo 2024-04-05 Service ID 由 ProcessorID + AlisaName 构成，从Service Controller 传参传过来
+            'InstallUpdateService()
+            InstallUpdateService(DataServiceAlias)
+
             UpdateInstallTip(100, "InstallUpdateService Success!")
         Catch ex As Exception
             UpdateInstallTip(100, $"InstallUpdateService Error:{ex.Message}")
@@ -320,6 +323,9 @@ Public Class FrmUpdateConfig
     ''' <summary>同步目录：auts_vendor</summary>
     Private _sync_auts_vendor_DirPath As String
 
+    ''' <summary>App：app</summary>
+    Private _sync_auts_app_DirPath As String
+
     ''' <summary>
     ''' 创建运行时必要文件夹
     ''' </summary>
@@ -346,9 +352,11 @@ Public Class FrmUpdateConfig
 
         _sync_auts_public_DirPath = $"{syncRootPath}\uts_Public"
         _sync_auts_vendor_DirPath = $"{syncRootPath}\uts_{_license.VendorName}"
+        _sync_auts_app_DirPath = $"{RootPath}\App"
 
         Directory.CreateDirectory(_sync_auts_public_DirPath) 'uts_Public
         Directory.CreateDirectory(_sync_auts_vendor_DirPath) 'uts_VendorName
+        Directory.CreateDirectory(_sync_auts_app_DirPath) 'app
 
         If System.IO.Directory.Exists(_sync_auts_public_DirPath) = False OrElse System.IO.Directory.Exists(_sync_auts_vendor_DirPath) = False Then
             MsgBox("同步目录创建不成功！")
@@ -504,7 +512,7 @@ Public Class FrmUpdateConfig
     ''' <summary>
     ''' 一键更新
     ''' </summary>
-    Private Sub InstallUpdateService()
+    Private Sub InstallUpdateService(Optional AlisaName As String = "")
         If GetUtsHost() = False Then Return '根据License信息,获取服务器地址
 
         '校验License
@@ -544,7 +552,11 @@ Public Class FrmUpdateConfig
 
             _serviceRegister.Roles = _serviceRoles
             _serviceRegister.Group = _serviceGroup
-            _serviceRegister.RegisterService()
+            ' Momo 2024-04-05 Service ID 由 ProcessorID + AlisaName 构成，从Service Controller 传参传过来
+            '_serviceRegister.RegisterService()
+            _serviceRegister.RegisterService(AlisaName)
+
+
         Catch ex As Exception
             UpdateInstallTip(30, $"Register Service Fail,{ex.Message}")
             Return