Class zen.DailyReport Extends %ZEN.Report.reportPage
{  

XData xsl
 {
 <xsl:stylesheet version="1.0" xmlns:xsl="www.w3.org/1999/XSL/Transform"
   xmlns="urn:schemas-microsoft-com:office:spreadsheet"
   xmlns:o="urn:schemas-microsoft-com:office:office" 
   xmlns:x="urn:schemas-microsoft-com:office:excel"
   xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet">
   <xsl:template match="/">
     <xsl:processing-instruction name="mso-application">
       <xsl:text>progid="Excel.Sheet"</xsl:text>
     </xsl:processing-instruction> 

<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o="urn:schemas-microsoft-com:office:office"
 xmlns:x="urn:schemas-microsoft-com:office:excel"
 xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:html=" http://www.w3.org/TR/REC-html40" >
 <DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">
  <Author>unUser</Author>
  <LastAuthor>unUser</LastAuthor>
  <Created>2013-12-12T21:38:36Z</Created>
  <Company>NNN</Company>
  <Version>12.00</Version>
 </DocumentProperties>
 <ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">
  <WindowHeight>12660</WindowHeight>
  <WindowWidth>28620</WindowWidth>
  <WindowTopX>120</WindowTopX>
  <WindowTopY>15</WindowTopY>
  <ProtectStructure>False</ProtectStructure>
  <ProtectWindows>False</ProtectWindows>
 </ExcelWorkbook>
 <Styles>
  <Style ss:ID="Default" ss:Name="Normal">
   <Alignment ss:Vertical="Bottom"/>
   <Borders/>
   <Font ss:FontName="Calibri" x:CharSet="204" x:Family="Swiss" ss:Size="11"
    ss:Color="#000000"/>
   <Interior/>
   <NumberFormat/>
   <Protection/>
  </Style>
 </Styles>
 <Worksheet ss:Name="Лист1">
  <Table ss:ExpandedColumnCount="3" ss:ExpandedRowCount="1" x:FullColumns="1"
   x:FullRows="1" ss:DefaultRowHeight="15">
   <Column ss:AutoFitWidth="0" ss:Width="66"/>
   <Column ss:AutoFitWidth="0" ss:Width="94.5"/>
   <Column ss:AutoFitWidth="0" ss:Width="100.5"/>
   
  <xsl:for-each select="myReport">
  <xsl:for-each select="./code">
    <Row>
    <Cell>
        <Data ss:Type="String"><xsl:value-of select="./code"/></Data>
      </Cell>
      <Cell>
        <Data ss:Type="String"><xsl:value-of select="./name"/></Data>
      </Cell>
    <Cell>
        <Data ss:Type="String"><xsl:value-of select="./amount"/></Data>
      </Cell>
    </Row>     
  </xsl:for-each>
</xsl:for-each>

   
  </Table>
  <WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">
   <PageSetup>
    <Header x:Margin="0.3"/>
    <Footer x:Margin="0.3"/>
    <PageMargins x:Bottom="0.75" x:Left="0.7" x:Right="0.7" x:Top="0.75"/>
   </PageSetup>
   <Selected/>
   <ProtectObjects>False</ProtectObjects>
   <ProtectScenarios>False</ProtectScenarios>
  </WorksheetOptions>
 </Worksheet>
</Workbook>

   </xsl:template>
 </xsl:stylesheet>
 }
 
 ClassMethod generateReportContainer(outFileName As %String) As %Status
{
   set xslStream = ##class(%Dictionary.CompiledXData).%OpenId(..%ClassName(1)_ "||xsl").Data  
   set xmlStream = ##class(%FileBinaryStream).%New()  
   set xmlStream.Filename = "C:\123\myXML.xml" // путь к файлу .xml   
   
   set outStream = ##class(%FileCharacterStream).%New()
   set outStream.TranslateTable = "UTF8"
   set outStream.Filename = outFileName
     
   set sc = ##class(%XML.XSLT.Transformer).TransformStream(xmlStream, xslStream, .outStream)   
   
   if $$$ISERR(sc) quit sc
   
   quit outStream.%Save()
}

}