To open any link in a new tab, preserving your position in the current article, just hold down the <CTRL> key on your keyboard before clicking the link or click using your mouse wheel.

ReportValidUntil

Owned by Former user (Deleted)
Last updated: Aug 06, 2019 by Daniel Wal (Unlicensed)
2 min read

ReportValidUntil


String value that sets the number of days report is valid for. This value is changed in the Reports / Settings / Company Information area, shown in Figure 1. Click on Reports (red arrow #1), and then click on Settings (red arrow #2): this opens the Company Information screen where the Valid Until value may be set. Figure 2 shows an example of where this value is implemented in a report.


              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('ReportValidUntil');
 WriteLn(property.ResultAsString()) 
end
Using PlanSwift Object Model 
//or 
procedure main; 
var
 planswift: IPlanSwift;
 property:IPropertyObject; 
begin
 planswift := coPlanSwift.Create();
 property := planswift.GetProperty('\Settings','ReportValidUntil'); 
 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("ReportValidUntil");
	console.WriteLn(property.ResultAsString())
}
Using PlanSwift Object Model 
private void Main()
{
	PlanSwift planswift = new PlanSwift();
	IPropertyObject property = planswift.GetProperty(@"\Settings","ReportValidUntil")
	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("ReportValidUntil")
    Console.WriteLn(property.ResultAsString());
End Sub
Using PlanSwift Object Model 
Sub Main()
    Dim planswift = CreateObject("PlanSwift9.PlanCenter")
    Dim nameProperty = planswift.GetProperty("\Settings","ReportValidUntil")
    Console.WriteLn(property.ResultAsString)
End Sub

Pascal Scripting (OLE)

Item Object Model 
begin
    settings := getItem('\Settings');
    ShowMessage(GetResultAsString(settings,'ReportValidUntil'));
end
Root Object Model 
begin
   ShowMessage(GetResultAsString('\Settings','ReportValidUntil'));
end


Pascal Scripting

Item Object Model 
begin
    settings := PlanSwift.getItem('\Settings');
    property := settings.GetProperty('ReportValidUntil');
    ShowMessage(property.ResultAsString);
end
Using the PlanSwift Object Model 
begin
    property := PlanSwift.GetProperty('\Settings','ReportValidUntil');
    ShowMessage(property.ResultAsString);
end


Copyright 2023 ConstructConnect