PlanSwift Code:
Property.EditScript;
FreshDesk Code:
procedure editScript;
var
ps: IPlanSwift;
itm: IItem;
prop: IPropertyObject;
begin
//Create the Planswift Interface
ps := coplanswift.Create;
//Get the selected Item
itm := ps.SelectedItem;
if varisClear(itm) then begin
ShowMessage('Please Select an Item');
//Clear Interface
ps := nil;
//Exit Procedure
Exit;
end;
//Create new Property with the property type as script
prop := itm.NewProperty('Example Script','',ptscript);
//Set the script language to pascal
prop.ScriptLanguage := slPascal;
//Open Scripting dialog
prop.EditScript;
//Free Planswift Interface
ps := nil;
end; |