Syntax

code

Procedure: BeginFormulaUpdate;

Description

Signals the beginning of a formula change 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;