Bug #4170 Add Report Template, Phase Data of Gcl Bills Must Gather

DataModules/ReportMemoryDm/rmGclBillsAddDm.pas

@@ -295,8 +295,8 @@ begin
     GclNode := FindGclNode(stnNode.Rec);
     if Assigned(GclNode) then
     begin
-      GclNode.FP_Quantity[APhaseIndex] := StageRec.ValueByName('GatherQuantity').AsFloat;
-      GclNode.FP_TotalPrice[APhaseIndex] := StageRec.ValueByName('GatherTotalPrice').AsFloat;
+      GclNode.FP_Quantity[APhaseIndex] := GclNode.FP_Quantity[APhaseIndex] + StageRec.ValueByName('GatherQuantity').AsFloat;
+      GclNode.FP_TotalPrice[APhaseIndex] := GclNode.FP_TotalPrice[APhaseIndex] + StageRec.ValueByName('GatherTotalPrice').AsFloat;
     end;
   end;
 end;