Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

DefaultCurrency

...

String value that displays and controls the default currency (Figure 1). Options are those on the Default Currency drop-down menu below (see Figure 1). In the U-T-H Settings (advanced properties) screen (Figure 2), click the Formula cell for Default Currency to open the DefaultCurrency Formula Editor window. The currency may be edited here. Clicking on OK saves it, and it will be displayed in the Default Currency field in the Settings / General window.API Call:

...


Image Added

Image Removed

                        Figure 1

Image RemovedImage Added

             Figure 2

API Calls

Table of Contents
minLevel3

Delphi

Code Block
languagedelphi
themeRDark
firstline1
titleUsing IItem Object Model
linenumberstrue
procedure main; 
var
 planswift: IPlanSwift;
 settings: IItem;
 property: IPropertyObject 
begin
 planswift := coPlanSwift.Create();
 settings := planswift.getItem('\Settings');
 property := planswift.GetProperty('DefaultCurrency');
 WriteLn(property.ResultAsString()) 
end


Code Block
languagedelphi
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
//or 
procedure main; 
var
 planswift: IPlanSwift;
 property:IPropertyObject; 
begin
 planswift := coPlanSwift.Create();
 property := planswift.GetProperty('\Settings','DefaultCurrency');
 WriteLn(property.ResultAsString()) 
end;

C#

Code Block
languagec#
themeRDark
firstline1
titleUsing IItem Object Model
linenumberstrue
private void Main()
{
	PlanSwift planswift = new PlanSwift();
	IItem settings = planswift.GetItem(@"\Settings");
	IPropertyObject property = settings.GetProperty("DefaultCurrency");
	console.WriteLn(property.ResultAsString())
}


Code Block
languagec#
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
private void Main()
{
	PlanSwift planswift = new PlanSwift();
	IPropertyObject property = planswift.GetProperty(@"\Settings","DefaultCurrency")
	console.WriteLn(property.ResultAsString)
}

VB/VBA (OLE)

Code Block
languagevb
themeRDark
firstline1
titleUsing IItem Object Model
linenumberstrue
Sub main()
    Dim planswift = CreateObject("PlanSwift9.PlanCenter")
    Dim settings = planswift.GetItem("\Settings")
    Dim property = settings.GetProperty("DefaultCurrency")
    Console.WriteLn(property.ResultAsString());
End Sub


Code Block
languagevb
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
Sub Main()
    Dim planswift = CreateObject("PlanSwift9.PlanCenter")
    Dim nameProperty = planswift.GetProperty("\Settings","DefaultCurrency")
    Console.WriteLn(property.ResultAsString)
End Sub

Pascal Scripting (OLE)

Code Block
themeRDark
firstline1
titleItem Object Model
linenumberstrue
begin
    settings := getItem('\Settings');
    ShowMessage(GetResultAsString(settings,'DefaultCurrency'));
end


Code Block
themeRDark
titleRoot Object Model
linenumberstrue
begin
   ShowMessage(GetResultAsString('\Settings','DefaultCurrency'));
end

Pascal Scripting

Code Block
themeRDark
firstline1
titleItem Object Model
linenumberstrue
begin
    settings := PlanSwift.getItem('\Settings');
    property := settings.GetProperty('DefaultCurrency');
    ShowMessage(property.ResultAsString);
end


Code Block
themeRDark
firstline1
titleUsing the PlanSwift Object Model
linenumberstrue
begin
    property := PlanSwift.GetProperty('\Settings','DefaultCurrency');
    ShowMessage(property.ResultAsString);
end