ExecuteScript (2)

PlanSwift Code:


none


FreshDesk Code:


procedure psExecuteScript;
var
  ps: IPlanSwift;
  itm: IItem;
  prop: IPropertyObject;
  formula: string;
begin
  //Create The Planswift Interface
  ps := coPlanswift.Create;
  //Get the Selected Item
  itm := ps.SelectedItem;
  //Check if var is empty
  if varisclear(itm) then begin
    showmessage('Please Select an Item');
    ps := nil;
    Exit;
  end;
  //write The Script to execute
  formula :=  'ShowMessage(' + chr(39) + 'Script has been Executed' + chr(39) + ');';
  //Create a New Property and set its type to script
  prop := itm.NewProperty('Custom Script',formula,ptscript);
  //Set the Script type to method
  prop.ScriptType := stMethod;
  //Set the language to pascal
  prop.ScriptLanguage := slPascal;
  //Execute the Script
  prop.ExecuteScript('');
  //Free Planswift interface
  ps := nil;
end;

public class PlanswiftApi
{
    private PlanSwift Planswift { get; }
    public PlanSwiftApi()
    {
        Planswift = new PlanSwift();
    }
}