ProjGather: Deal Pay, Zone Gather Data, Calculate Error

ProjGather/ProjGather.pas

@@ -514,7 +514,7 @@ begin
     vPhaseRec := nil;
   if Assigned(vPhaseRec) then
   begin
-    ADealPayCalc.ZoneTotalPrice := ADealPayCalc.ZoneTotalPrice - vPhaseRec.ValueByName(FDealEndField).AsFloat;
+    ADealPayCalc.ZoneTotalPrice := ADealPayCalc.ZoneTotalPrice - vPhaseRec.ValueByName(FDealPreField).AsFloat;
   end;
 end;