1

Units/BillsPosTree.pas

@@ -0,0 +1,135 @@
+unit BillsPosTree;
+// 清单--部位明细树 (同导入计量Saas相关，不做他用)
+
+interface
+
+uses
+  Classes, CacheTree, ZhAPI;
+
+type
+  TPosNode = class
+  private
+    FQuantity: Double;
+    FMemoStr: string;
+    FName: string;
+  public
+    property Name: string read FName write FName;
+    property Quantity: Double read FQuantity write FQuantity;
+    property MemoStr: string read FMemoStr write FMemoStr;
+  end;
+
+  TBillsPosTreeNode = class(TCacheNode)
+  private
+    FPosList: TList;
+
+    FQuantity: Double;
+    FPrice: Double;
+    FDgnQty1: Double;
+    FDgnQty2: Double;
+    FUnits: string;
+    FDrawingCode: string;
+    FName: string;
+    FCode: string;
+    FMemoStr: string;
+    FB_Code: string;
+    FTotalPrice: Double;
+    function GetPos(AIndex: Integer): TPosNode;
+    function GetPosCount: Integer;
+  public
+    constructor Create(ACacheTree: TCacheTree; AID: Integer); override;
+    destructor Destroy; override;
+
+    function AddPos: TPosNode;
+    procedure Calculate;
+
+    property Code: string read FCode write FCode;
+    property B_Code: string read FB_Code write FB_Code;
+    property Name: string read FName write FName;
+    property Units: string read FUnits write FUnits;
+    property Price: Double read FPrice write FPrice;
+    property Quantity: Double read FQuantity write FQuantity;
+    property TotalPrice: Double read FTotalPrice write FTotalPrice;
+    property DgnQty1: Double read FDgnQty1 write FDgnQty1;
+    property DgnQty2: Double read FDgnQty2 write FDgnQty2;
+    property DrawingCode: string read FDrawingCode write FDrawingCode;
+    property MemoStr: string read FMemoStr write FMemoStr;
+
+    property PosCount: Integer read GetPosCount;
+    property Pos[AIndex: Integer]: TPosNode read GetPos;
+  end;
+
+  TBillsPosTree = class(TCacheTree)
+  private
+  protected
+    function GetNewNode: TCacheNode; override;
+  public
+    procedure CalculateAll;
+  end;
+
+implementation
+
+{ TBillsPosTreeNode }
+
+function TBillsPosTreeNode.AddPos: TPosNode;
+begin
+  Result := TPosNode.Create;
+  FPosList.Add(Result);
+end;
+
+procedure TBillsPosTreeNode.Calculate;
+var
+  fQuantity: Double;
+  iPos: Integer;
+begin
+  fQuantity := 0;
+  for iPos := 0 to FPosList.Count - 1 do
+    fQuantity := fQuantity + TPosNode(FPosList.Items[iPos]).Quantity;
+  Quantity := fQuantity;
+  TotalPrice := Quantity * Price;
+end;
+
+constructor TBillsPosTreeNode.Create(ACacheTree: TCacheTree; AID: Integer);
+begin
+  inherited;
+  FPosList := TList.Create;
+end;
+
+destructor TBillsPosTreeNode.Destroy;
+begin
+  ClearObjects(FPosList);
+  FPosList.Free;
+  inherited;
+end;
+
+function TBillsPosTreeNode.GetPos(AIndex: Integer): TPosNode;
+begin
+  Result := TPosNode(FPosList.Items[AIndex]);
+end;
+
+function TBillsPosTreeNode.GetPosCount: Integer;
+begin
+  Result := FPosList.Count;
+end;
+
+{ TBillsPosTree }
+
+procedure TBillsPosTree.CalculateAll;
+var
+  i: Integer;
+  vNode: TBillsPosTreeNode;
+begin
+  for i := 0 to CacheNodes.Count - 1 do
+  begin
+    vNode := TBillsPosTreeNode(CacheNodes[i]);
+    if (vNode.PosCount > 0) then
+      vNode.Calculate;
+  end;
+end;
+
+function TBillsPosTree.GetNewNode: TCacheNode;
+begin
+  Result := TBillsPosTreeNode.Create(Self, GetNewNodeID);
+  CacheNodes.Add(Result);
+end;
+
+end.