Bug #849 截止本期计量，计算有误

DataModules/StageDm.pas

@@ -878,7 +878,7 @@ begin
   Rec.AddDifferValue(Rec.EndGatherTotalPrice, ADiffer);
   UpdateParentRecord(iPriceMarginID, ADiffer, 'GatherTotalPrice');
   with TProjectData(TPhaseData(FPhaseData).ProjectData).BillsMeasureData do
-   UpdateRecordPM(ABillsID, ADiffer);
+    UpdateRecordPM(Rec.BillsID.AsInteger, ADiffer);
 end;
 
 procedure TStageData.UpdateParentPriceMargin(ABillsID: Integer; ADiffer: Double);