//PlanSwift code:
var
aItem: string;
begin
aItem := CopyItem(itempath, '\Job\Takeoff', TRUE, FALSE);
end;
//FreshDesk Code:
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; |