Bug 再次查看汇总报表，特别项目勾选保持一致时，升级汇总数据库Bug

Report/ProjGather/rpgGatherData.pas

@@ -192,9 +192,22 @@ begin
 end;
 
 function TrpgGatherData.GetCurSpecialProjCount: Integer;
+var
+  sgsTables: TStringList;
+  iTable: Integer;
 begin
   Result := 0;
-
+  sgsTables := TStringList.Create;
+  try
+    FConnection.GetTableNames(sgsTables);
+    for iTable := 0 to sgsTables.Count - 1 do
+    begin
+      if Pos(SBills_SProj, sgsTables.Strings[iTable]) > 0 then
+        Inc(Result);
+    end;
+  finally
+    sgsTables.Free;
+  end;
 end;
 
 procedure TrpgGatherData.LoadRelaData(AProjectID: Integer);