home *** CD-ROM | disk | FTP | other *** search
/ moodle.waes.ac.uk / moodle.waes.ac.uk.zip / moodle.waes.ac.uk / TMG / SP1-TMG-KB981324-AMD64-ENU.msp / PCW_CAB_SHFx2 / F2143_msfpcui.dll / BINARY / 25520 < prev    next >
Extensible Markup Language  |  2010-06-15  |  3KB  |  91 lines
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2005/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
  3.   <InteractiveHeight>11in</InteractiveHeight>
  4.   <ReportParameters>
  5.     <ReportParameter Name="FromDate">
  6.       <DataType>String</DataType>
  7.       <DefaultValue>
  8.         <Values>
  9.           <Value>=Today()</Value>
  10.         </Values>
  11.       </DefaultValue>
  12.       <AllowBlank>true</AllowBlank>
  13.       <Prompt>From Date</Prompt>
  14.     </ReportParameter>
  15.     <ReportParameter Name="ToDate">
  16.       <DataType>String</DataType>
  17.       <DefaultValue>
  18.         <Values>
  19.           <Value>=Today()</Value>
  20.         </Values>
  21.       </DefaultValue>
  22.       <AllowBlank>true</AllowBlank>
  23.       <Prompt>To Date</Prompt>
  24.     </ReportParameter>
  25.     <ReportParameter Name="ReportType">
  26.       <DataType>String</DataType>
  27.       <DefaultValue>
  28.         <Values>
  29.           <Value>Daily</Value>
  30.         </Values>
  31.       </DefaultValue>
  32.       <Prompt>Report Type</Prompt>
  33.       <ValidValues>
  34.         <ParameterValues>
  35.           <ParameterValue>
  36.             <Value>Daily</Value>
  37.           </ParameterValue>
  38.           <ParameterValue>
  39.             <Value>Immediate</Value>
  40.           </ParameterValue>
  41.           <ParameterValue>
  42.             <Value>Monthly</Value>
  43.           </ParameterValue>
  44.         </ParameterValues>
  45.       </ValidValues>
  46.     </ReportParameter>
  47.     <ReportParameter Name="TweakingParams">
  48.       <DataType>String</DataType>
  49.       <AllowBlank>true</AllowBlank>
  50.       <Prompt>Tweaking Parameters</Prompt>
  51.     </ReportParameter>
  52.   </ReportParameters>
  53.   <rd:DrawGrid>true</rd:DrawGrid>
  54.   <InteractiveWidth>8.5in</InteractiveWidth>
  55.   <rd:SnapToGrid>true</rd:SnapToGrid>
  56.   <RightMargin>1in</RightMargin>
  57.   <LeftMargin>1in</LeftMargin>
  58.   <BottomMargin>1in</BottomMargin>
  59.   <rd:ReportID>ce43a6f7-ccf4-4048-bf77-f4e6190c99e9</rd:ReportID>
  60.   <Width>6.25in</Width>
  61.   <Body>
  62.     <ReportItems>
  63.     </ReportItems>
  64.     <Height>7.375in</Height>
  65.   </Body>
  66.   <Language>=User!Language</Language>
  67.   <TopMargin>1in</TopMargin>
  68.   <CodeModules>
  69.     <CodeModule>System.Xml, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</CodeModule>
  70.   </CodeModules>
  71.   <Code>Public Function GetXmlValue(ByVal strXmlDoc As String, ByVal Path As String) As String
  72.       Dim doc As New System.Xml.XmlDocument()
  73.       doc.LoadXml(strXmlDoc)
  74.       Dim resNode As System.Xml.XmlNode
  75.       Dim root as System.Xml.XmlElement = doc.DocumentElement
  76.       resNode = root.SelectSingleNode(Path)
  77.       if resNode Is Nothing
  78.           Return ""
  79.       Else
  80.           Return resNode.InnerXml
  81.       End If
  82.  End Function
  83. Public Function IsSubreportHidden(ByVal CategoryName As String, ByVal ReportName As String, ByVal Xml As String ) As Boolean
  84.     Return (GetXmlValue(Xml , "/Parameters/Category[@Name='"  &  CategoryName  &  "']/Report[@Name='"  &  ReportName  &  "']/@Visible") <> "1")
  85. End Function
  86. Public Function GetReportSpecificParam(ByVal CategoryName As String, ByVal ReportName As String, ByVal ParamName As String, ByVal Xml As String ) As String
  87.     Return GetXmlValue(Xml , "/Parameters/Category[@Name='"  &  CategoryName  &  "']/Report[@Name='"  &  ReportName  &  "']/@"  &  ParamName)
  88. End Function
  89. </Code>
  90. </Report>
  91.