Page Comparison

procedure TForm1.psGetJobTotal(Sender: TObject);
var
  ps: IPlanSwift;
  est: IItem;
  folder: IItem;
  i: Integer;
  itm: IItem;
  CostEachTotal,QtyTotal: Extended;
begin
//Create the Planswift Interface
  ps := coPlanswift.Create;
//Begin Update Procedure
  ps.BeginUpdate;
//Get the Takeoff item (Estimating Tab in Planswift)
  est := ps.GetItem('Job\Takeoff');
//Create a New Folder in Estimating
  folder := est.NewItem('Folder','Material Items');
// Add 20 Material Part Items to the folder
  for i := 0 to 20 - 1 do begin
    itm := folder.NewItem('Material','Job Total Demo Material ' + intToStr(i));
//Set their Qty and Cost Each
    itm.SetPropertyFormula('Qty','20');
    itm.SetPropertyFormula('Cost Each','1.50');
  end;
//get Cost Each Total
  CostEachTotal := ps.GetJobTotal('Cost Each','Material');
//get Qty Total
  QtyTotal := ps.GetJobTotal('Qty','Material');
//Show the values
  ShowMessage('Qty Total: ' + FloatToStr(QtyTotal) + ' Cost Each Total: ' + FloatToStr(CostEachTotal));
//End Update Procedure
  ps.EndUpdate;
//Free Planswift
  ps := nil;
end;