Syntax

code
Procedure: EndFormulaUpdate;

Description

Signals an end to to the formula update operation

Code Reference

  • 1. Create a New Forms Application
  • 2. Add a Planswift to the References (Planswift_Tlb)
  • 3. Add a button to the form
  • 4. copy code below to the onclick event of the button
  • 5. Compile and run
code

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

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 = nil 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;