|
@@ -873,9 +873,12 @@ procedure TStageData.UpdatePriceMarginNode(ADiffer: Double);
|
|
|
var
|
|
var
|
|
|
Rec: TStageRecord;
|
|
Rec: TStageRecord;
|
|
|
begin
|
|
begin
|
|
|
- Rec := StageRecord(iPriceMarginID);
|
|
|
|
|
- Rec.GatherTotalPrice.AsFloat := Rec.GatherTotalPrice.AsFloat + ADiffer;
|
|
|
|
|
|
|
+ Rec := StageRecordWithAdd(iPriceMarginID);
|
|
|
|
|
+ Rec.AddDifferValue(Rec.GatherTotalPrice, ADiffer);
|
|
|
|
|
+ Rec.AddDifferValue(Rec.EndGatherTotalPrice, ADiffer);
|
|
|
UpdateParentRecord(iPriceMarginID, ADiffer, 'GatherTotalPrice');
|
|
UpdateParentRecord(iPriceMarginID, ADiffer, 'GatherTotalPrice');
|
|
|
|
|
+ with TProjectData(TPhaseData(FPhaseData).ProjectData).BillsMeasureData do
|
|
|
|
|
+ UpdateRecordPM(ABillsID, ADiffer);
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
procedure TStageData.UpdateParentPriceMargin(ABillsID: Integer; ADiffer: Double);
|
|
procedure TStageData.UpdateParentPriceMargin(ABillsID: Integer; ADiffer: Double);
|
