PlanSwift

var

  ps: IPlanSwift;

  itm: IItem;

  prop: IPropertyObject;

  est: IItem                

begin

 //Create planswift Interface

    ps := coplanswift.Create;

    //Get the Estimating Tab

    est := ps.Getitem('Job\Takeoff');

    //get Ps Property Example Item if exists

    itm := est.GetItem('PS Property Examples');

    //Delete It

    if not varisclear(itm) then begin

      ps.deleteItem(itm.guid);    

    end;

    //Create a new Item

    itm := est.newItem('Part','PS Property Examples');

 

   //INHERIT PULLFORM EXAMPLE

    //Create a new Property

    prop := itm.NewProperty('InheritPullFrom Example','Inherited from Qty',ptnumber);

    //Show message with current Property formula

    ShowMessage(prop.InheritPullFrom);

    //Set to API Group

    prop.Group := 'API EXAMPLES';

 

    //Show The Item Properties Box

    itm.Edit(true);

    //Free the planswift interface

    ps := nil;

end;