// PlanSwift Code:
AreYouSure := False;
If AreYouSure then
Item.Delete;
//FreshDesk Code:
var
ps: IPlanSwift;
est: IItem;
itm: IItem;
rslt: Boolean;
sect: IItem;
begin
//create the Planswift Interface
ps := coPlanswift.Create;
//Get the Estimating tab
est := ps.GetItem('Job\Takeoff');
//Create a new Item
itm := est.NewItem('Area', 'psDelete Example');
//Show the property dialog box
rslt := itm.Edit(true);
//if ok pressed in dialog box then
if rslt then begin
//Create a new Section
sect := itm.NewSection('psDelete Section');
//Start Recording
sect.DoRecord;
end else begin
//Eles delete the item
itm.Delete;
end;
//Free Planswift
ps := nil; |