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.
Figure 1
Figure 2
API Calls
Delphi
Using IItem Object Model
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
Using PlanSwift Object Model
//or
procedure main;
var
planswift: IPlanSwift;
property:IPropertyObject;
begin
planswift := coPlanSwift.Create();
property := planswift.GetProperty('\Settings','DefaultCurrency');
WriteLn(property.ResultAsString())
end;
C#
Using IItem Object Model
private void Main()
{
PlanSwift planswift = new PlanSwift();
IItem settings = planswift.GetItem(@"\Settings");
IPropertyObject property = settings.GetProperty("DefaultCurrency");
console.WriteLn(property.ResultAsString())
}
Using PlanSwift Object Model
private void Main()
{
PlanSwift planswift = new PlanSwift();
IPropertyObject property = planswift.GetProperty(@"\Settings","DefaultCurrency")
console.WriteLn(property.ResultAsString)
}
VB/VBA (OLE)
Using IItem Object Model
Sub main()
Dim planswift = CreateObject("PlanSwift9.PlanCenter")
Dim settings = planswift.GetItem("\Settings")
Dim property = settings.GetProperty("DefaultCurrency")
Console.WriteLn(property.ResultAsString());
End Sub
Using PlanSwift Object Model
Sub Main()
Dim planswift = CreateObject("PlanSwift9.PlanCenter")
Dim nameProperty = planswift.GetProperty("\Settings","DefaultCurrency")
Console.WriteLn(property.ResultAsString)
End Sub
Pascal Scripting (OLE)
Item Object Model
begin
settings := getItem('\Settings');
ShowMessage(GetResultAsString(settings,'DefaultCurrency'));
end
Root Object Model
begin
ShowMessage(GetResultAsString('\Settings','DefaultCurrency'));
end
Pascal Scripting
Item Object Model
begin
settings := PlanSwift.getItem('\Settings');
property := settings.GetProperty('DefaultCurrency');
ShowMessage(property.ResultAsString);
end
Using the PlanSwift Object Model
begin
property := PlanSwift.GetProperty('\Settings','DefaultCurrency');
ShowMessage(property.ResultAsString);
end