单机版，应过滤自动更新报表功能

Forms/ReportsFrm.pas

@@ -1636,15 +1636,18 @@ procedure TReportsForm.FormActivate(Sender: TObject);
 var vReports: TReports;
 begin
   // 自动检测并提醒用户有新报表要更新
-  vReports := TReports.Create(nil);
-  try
-    if vReports.HasNeedUpdateReport then
-    begin
-      Application.MessageBox('系统检测到有新的报表可以更新！', '提示', MB_OK + MB_ICONINFORMATION);
-      btnRMgr.Click;
+  if G_IsCloud then
+  begin
+    vReports := TReports.Create(nil);
+    try
+      if vReports.HasNeedUpdateReport then
+      begin
+        Application.MessageBox('系统检测到有新的报表可以更新！', '提示', MB_OK + MB_ICONINFORMATION);
+        btnRMgr.Click;
+      end;
+    finally
+      vReports.Free;
     end;
-  finally
-    vReports.Free;
   end;
 end;