Page Comparison

procedure pscopyitem;
var
  ps: IPlanSwift;
  itm: IItem;
  est: IItem;
begin
  //Create the Planswift Interface
  ps := coplanswift.Create;
  //Get the estimating tab
  est := ps.GetItem('Job\Path');
  //Get the Selected Item
  itm := ps.SelectedItem;
  //Copy the selected item to the estimating tab
  //with all child items and sections
  ps.CopyItem(itm.GUID,est.GUID,True,False);
  //free planswift interface
  ps := nil;
end;