Class Expenses.Day.Test Extends (%Persistent, %Populate)
{
Property Date As %Date [ Required, SqlFieldName = pDate ];
Property Currency As %Integer(VALUELIST = ",810,840");
Property SumExpenses As %Currency(FORMAT = "-");

Query Query1() As %SQLQuery
{
SELECT Currency,pDate,SumExpenses FROM Test
}

}

<tableNavigatorBar tablePaneId="table" showPageSize="true" showFilter="false"/>
<spacer height="10"/>
<tablePane id="table" 
	caption="ОПЕРАЦИОННЫЕ ДНИ"
	useSnapshot="true"
	showFilters="true"
	showQuery="true"
	showZebra="true"
	pageSize="20"
	
        queryClass="Expenses.Day.Test"
	queryName="Query1"
        
	autoExecute="true"
	
	>
	
<column colName="pDate" width="auto" />
<column colName="Currency" 
 filterType="enum"
 filterEnum="810,840"
 filterEnumDisplay="RUR,USD"
 filterOp="="
 width="100"
 

/>
<column colName="SumExpenses" width="auto"/>

</tablePane>
<spacer height="10px;" />

queryClass="Expenses.Day.Test"
queryName="Query1"

tableName="Expenses_Day.Test"

/// Create the result set used by the table pane.
/// <var>pInfo</var> holds details on how to create the query.
Method CreateRS(Output tSC As %Status, pInfo As %ZEN.Auxiliary.QueryInfo) As %ResultSet

Method CreateRS(Output tSC As %Status, 
                pInfo As %ZEN.Auxiliary.QueryInfo) As %ResultSet
{
    Set tRS = ""
    Set tSC = $$$OK
    Set tSELECT = "ID,Name,Title"
    Set tFROM = "MyApp.Employee"
    Set tORDERBY = pInfo.sortColumn
    Set tSORTORDER = pInfo.sortOrder
    Set tWHERE = ""
    // Build WHERE clause based on filters
    If ($GET(pInfo.filters("Name"))'="") {
        Set tWHERE = tWHERE _ $SELECT(tWHERE="":"",1:" AND ") _ 
                "Name %STARTSWITH '" _ pInfo.filters("Name") _ "'"
    }
    If ($GET(pInfo.filters("Title"))'="") {
        Set tWHERE = tWHERE _ $SELECT(tWHERE="":"", 1 :" AND ") _ 
                "Title %STARTSWITH '" _ pInfo.filters("Title") _ "'"
    }
    Set sql = "SELECT " _ tSELECT _ " FROM " _ tFROM
    Set:tWHERE'="" sql = sql _ " WHERE " _tWHERE
    Set:tORDERBY'="" sql = 
       sql _ " ORDER BY " _tORDERBY _ $SELECT(tSORTORDER="desc":" desc", 1 :"")
    Set tRS = ##class(%ResultSet).%New()
    Set tSC = tRS.Prepare(sql)
    Set pInfo.queryText = sql
    
    Quit tRS