|
|
@@ -484,12 +484,15 @@ end;
|
|
|
procedure TStageData.UpdateParentRecord(ABillsID: Integer;
|
|
|
ATotalPrice: Double; const AFieldName: string);
|
|
|
var
|
|
|
+ vNode: TMeasureBillsIDTreeNode;
|
|
|
iParentID: Integer;
|
|
|
Rec: TsdDataRecord;
|
|
|
begin
|
|
|
iParentID := MainBillsTree.FindNode(ABillsID).ParentID;
|
|
|
if iParentID = -1 then Exit;
|
|
|
+ vNode := TMeasureBillsIDTreeNode(MainBillsTree.FindNode(iParentID));
|
|
|
Rec := StageRecordWithAdd(iParentID);
|
|
|
+ vNode.StageRec := TStageRecord(Rec);
|
|
|
Rec.ValueByName(AFieldName).AsFloat := TotalPriceRoundTo(
|
|
|
Rec.ValueByName(AFieldName).AsFloat + ATotalPrice);
|
|
|
Rec.ValueByName('End' + AFieldName).AsFloat := TotalPriceRoundTo(
|
