Code

var vAnswer as String
var vRS as Int
var vReportFileName as String

// Display Calendar

vAnswer = @Calendar(@Date, "Pick START DATE for Report - Esc to cancel")

If not @Error
{
	// Build date range specs to be used in XResultSetSearch below
	vAnswer = vAnswer + ".."
Writeln("vAnswer is " + vAnswer)
	// Get result set

	vRS = @XResultSetSearch(@Fn, "Pmt Admin Screen", 0, 2, "!PmtDate=" + vAnswer)
Writeln("vRS is " + vRS)
	If vRS > -1
	{
Writeln("Total Number of Records is " + @XResultSetTotal(vRS))
		// Run report
		vReportFileName = @XResultSetPrintReport("Revenue Report Branch", vRS, 1)
Writeln("Report name of " + vReportFileName)
		// Close result set
		XResultSetClose(vRS)
	}
}