汇总项目，Bug修改

ProjGather/ProjGather.pas

@@ -228,7 +228,10 @@ begin
   FProjs := AProjs;
   FilterProjs;
   FSpecialProjTypes := ASpecialProjTypes;
-  FTree := TProjGatherTree.Create(FCommonProjs.Count, ASpecialProjTypes.Count);
+  if Assigned(ASpecialProjTypes) then
+    FTree := TProjGatherTree.Create(FCommonProjs.Count, ASpecialProjTypes.Count)
+  else
+    FTree := TProjGatherTree.Create(FCommonProjs.Count, 0);
   FTree.NewNodeID := 101;
   try
     for i := 0 to FCommonProjs.Count - 1 do

Report/ProjGather/rpgGatherData.pas

@@ -106,6 +106,7 @@ begin
   CalcDgnData(SBills_Gather);
   for iProj := 0 to AProjCount - 1 do
     CalcDgnData(SBills_Proj+IntToStr(iProj+1));
+  CalcDgnData(SBills_TransProj);
   for iProj := 0 to ASProjCount - 1 do
     CalcDgnData(SBills_SProj+IntToStr(iProj+1));
 end;