//PlanSwift Code:
result := nil;
Prop := PlanSwift.GetProperty(ItemPath, 'Name');
if not VarIsClear(Prop) then
Result := Prop.Name;
// FreshDesk Code:
procedure TForm1.psSetPropertyFormula(Sender: TObject);
var
ps: IPlanSwift;
itm: String;
messg: string;
begin
ps := coPlanswift.Create;
//Begin Formula Update;
ps.BeginFormulaUpdate;
//Get The Current Selected Itm
itm := ps.SelectedItem.GUID;
//if no Item Selected then Exit function
if itm = '' then begin
showMessage('no Item Selected');
Exit;
end;
//Create a Description for the item
messg := Inputbox('Enter A Description','Please enter a description','Your Description Here');
//Set Item Description
ps.SetPropertyFormula(itm,'Description',messg);
//Make Description Property Visible
ps.GetProperty(itm,'Description').IsInput := True;
//Show Advance Item Properties
ps.GetItem(itm).Edit(True);
//End Update on formula
ps.EndFormulaUpdate;
//free Planswift Interface
ps := nil;
end; |