|
|
@@ -7,7 +7,9 @@ uses
|
|
|
|
|
|
type
|
|
|
TBillsIDTreeNode = class(TsdIDTreeNode)
|
|
|
- private
|
|
|
+ private
|
|
|
+ FStageRec: TStageRecord;
|
|
|
+
|
|
|
FDealQuantity: Double;
|
|
|
FDealTotalPrice: Double;
|
|
|
FQcQuantity: Double;
|
|
|
@@ -46,6 +48,9 @@ type
|
|
|
property PcTotalPrice: Double read FPcTotalPrice write FPcTotalPrice;
|
|
|
property GatherQuantity: Double read FGatherQuantity write FGatherQuantity;
|
|
|
property GatherTotalPrice: Double read FGatherTotalPrice write FGatherTotalPrice;
|
|
|
+
|
|
|
+ // Cache Data
|
|
|
+ property StageRec: TStageRecord read FStageRec write FStageRec;
|
|
|
end;
|
|
|
|
|
|
TReCalculateNode = procedure(AID: Integer) of object;
|
|
|
@@ -84,8 +89,6 @@ type
|
|
|
TMeasureBillsIDTree = class(TBillsIDTree)
|
|
|
private
|
|
|
FCompileTree: TCompileBillsIDTree;
|
|
|
- protected
|
|
|
- function CreateItem: TsdIDTreeNode; override;
|
|
|
public
|
|
|
procedure DoOnReCalcNode(AID: Integer); overload; override;
|
|
|
procedure DoOnReCalcNode(ANode: TsdIDTreeNode); overload; override;
|
|
|
@@ -343,11 +346,6 @@ begin
|
|
|
FCompileTree.DoOnReCalcNode(AID);
|
|
|
end;
|
|
|
|
|
|
-function TMeasureBillsIDTree.CreateItem: TsdIDTreeNode;
|
|
|
-begin
|
|
|
- Result := TMeasureBillsIDTreeNode.Create(Self);
|
|
|
-end;
|
|
|
-
|
|
|
procedure TMeasureBillsIDTree.DoOnReCalcNode(ANode: TsdIDTreeNode);
|
|
|
begin
|
|
|
if Assigned(FCompileTree) then
|
