Class  MyApp.test  Extends  %ZEN.Component.page
{

/// Этот блок Style содержит определение CSS стиля страницы.
XData Style
{
<style type="text/css">
</style>
}

/// Этот XML блок описывает содержимое этой страницы.
XData Contents [XMLNamespace="http://www.intersystems.com/zen"]
{
<page xmlns="http://www.intersystems.com/zen" title="">
  <tablePane
    queryClass="MyApp.test"
    queryName="Test"
    useSnapshot="true"
  >
  <column colName="ID" header="ID"/>
  <column colName="Дата1" header="Дата в формате $Integer" OnDrawCell="DrawDate"/>
  <column colName="Дата2" header="Дата в формате $Date"/>
  <column colName="Дата3" header="Дата в формате $String"/>
  </tablePane>
  <tablePane
    sql="select 1 ID, MyApp.test_GetDate(1) Дата1,to_char({d '2011-01-14'},'DD.MM.YY') Дата2 
    union select 2,MyApp.test_GetDate(2),to_char({d '2011-01-18'},'DD.MM.YY')
    union select 3,MyApp.test_GetDate(3),to_char({d '2010-08-10'},'DD.MM.YY')
    union select 4,MyApp.test_GetDate(4),to_char({d '2010-08-14'},'DD.MM.YY')
    union select 5,MyApp.test_GetDate(5),to_char({d '2011-08-14'},'DD.MM.YY')"
    useSnapshot="true"
  >
  <column colName="ID" header="ID"/>
  <column colName="Дата1" header="Дата"/>
  <column colName="Дата2" header="Дата как строка"/>
  </tablePane>
</page>
}

Method DrawDate(
  pTable As %ZEN.Component.tablePane,
  pName As %String,
  pSeed As %String) As %Status
{
  write $system.SQL.TOCHAR(%query(pName),"DD.MM.YY")
  q $$$OK
}

Query Test() As %SQLQuery(ROWSPEC = "ID:%Integer,Дата1:%Integer,Дата2:%Date,Дата3:%String") [ SqlProc ]
{
  select  1 ,%internal({d '2011-01-14'}),{d '2011-01-14'},%external({d '2011-01-14'})
  union select  2 ,%internal({d '2011-01-18'}),{d '2011-01-18'},%external({d '2011-01-18'})
  union select  3 ,%internal({d '2010-08-10'}),{d '2010-08-10'},%external({d '2010-08-10'})
  union select  4 ,%internal({d '2010-08-14'}),{d '2010-08-14'},%external({d '2010-08-14'})
  union select  5 ,%internal({d '2011-08-14'}),{d '2011-08-14'},%external({d '2011-08-14'})
}

ClassMethod GetDate(ID As %String) As %Date [ SqlProc ]
{
  q:ID= 1  $ZDATEH("01.14.2011", 5 )
  q:ID= 2  $ZDATEH("01.18.2011", 5 )
  q:ID= 3  $ZDATEH("08.10.2010", 5 )
  q:ID= 4  $ZDATEH("08.14.2010", 5 )
  q:ID= 5  $ZDATEH("08.14.2011", 5 )
  
}

}