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 / 25496 < prev    next >
Extensible Markup Language  |  2010-06-15  |  9KB  |  257 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.   <DataSources>
  4.     <DataSource Name="ISA_RS_Db">
  5.       <rd:DataSourceID>4db3d75c-d76f-4a9b-854c-54ade963444c</rd:DataSourceID>
  6.       <DataSourceReference>ISA_RS_Db</DataSourceReference>
  7.     </DataSource>
  8.   </DataSources>
  9.   <InteractiveHeight>11in</InteractiveHeight>
  10.   <ReportParameters>
  11.     <ReportParameter Name="FromDate">
  12.       <DataType>String</DataType>
  13.       <DefaultValue>
  14.         <Values>
  15.           <Value>=DateTime.Today.AddDays(-1).AddSeconds(1)</Value>
  16.         </Values>
  17.       </DefaultValue>
  18.       <Prompt>From Date:</Prompt>
  19.     </ReportParameter>
  20.     <ReportParameter Name="ToDate">
  21.       <DataType>String</DataType>
  22.       <DefaultValue>
  23.         <Values>
  24.           <Value>=DateTime.Today.AddSeconds(1)</Value>
  25.         </Values>
  26.       </DefaultValue>
  27.       <Prompt>To Date:</Prompt>
  28.     </ReportParameter>
  29.     <ReportParameter Name="ReportType">
  30.       <DataType>String</DataType>
  31.       <DefaultValue>
  32.         <Values>
  33.           <Value>Daily</Value>
  34.         </Values>
  35.       </DefaultValue>
  36.       <Prompt>Report Type</Prompt>
  37.       <ValidValues>
  38.         <ParameterValues>
  39.           <ParameterValue>
  40.             <Value>Monthly</Value>
  41.           </ParameterValue>
  42.           <ParameterValue>
  43.             <Value>Daily</Value>
  44.           </ParameterValue>
  45.           <ParameterValue>
  46.             <Value>Immediate</Value>
  47.           </ParameterValue>
  48.         </ParameterValues>
  49.       </ValidValues>
  50.     </ReportParameter>
  51.     <ReportParameter Name="TweakingParams">
  52.       <DataType>String</DataType>
  53.       <AllowBlank>true</AllowBlank>
  54.       <Prompt>Tweaking Parameters</Prompt>
  55.     </ReportParameter>
  56.   </ReportParameters>
  57.   <rd:DrawGrid>true</rd:DrawGrid>
  58.   <InteractiveWidth>8.5in</InteractiveWidth>
  59.   <rd:SnapToGrid>true</rd:SnapToGrid>
  60.   <RightMargin>1in</RightMargin>
  61.   <LeftMargin>1in</LeftMargin>
  62.   <BottomMargin>1in</BottomMargin>
  63.   <rd:ReportID>64de6b2a-d4fb-48d7-9368-d92f72e94947</rd:ReportID>
  64.   <EmbeddedImages>
  65.     <EmbeddedImage Name="logo">
  66.       <MIMEType>image/jpeg</MIMEType>
  67.       <ImageData />
  68.     </EmbeddedImage>
  69.   </EmbeddedImages>
  70.   <DataSets>
  71.     <DataSet Name="DataSet1">
  72.       <Fields>
  73.         <Field Name="Servers">
  74.           <DataField>Servers</DataField>
  75.         </Field>
  76.         <Field Name="MissingServers">
  77.           <DataField>MissingServers</DataField>
  78.         </Field>
  79.       </Fields>
  80.       <Query>
  81.         <DataSourceName>ISA_RS_Db</DataSourceName>
  82.         <CommandType>StoredProcedure</CommandType>
  83.         <CommandText>ISA_spServerParticipationRDL</CommandText>
  84.         <QueryParameters>
  85.           <QueryParameter Name="@ReportType">
  86.             <Value>=Parameters!ReportType.Value</Value>
  87.           </QueryParameter>
  88.           <QueryParameter Name="@FromDate">
  89.             <Value>=Parameters!FromDate.Value</Value>
  90.           </QueryParameter>
  91.           <QueryParameter Name="@ToDate">
  92.             <Value>=Parameters!ToDate.Value</Value>
  93.           </QueryParameter>
  94.         </QueryParameters>
  95.       </Query>
  96.     </DataSet>
  97.   </DataSets>
  98.   <Code>
  99.   Public Function ConvertToDate(ByVal strDate As String) As DateTime
  100.      Dim dateNum As Integer
  101.      Dim dateYear As Integer
  102.      Dim dateMonth As Integer
  103.      Dim dateDay As Integer
  104.      dateNum = CInt(strDate)
  105.      dateYear = dateNum/10000
  106.      dateMonth = (dateNum Mod 10000) / 100
  107.      dateDay = dateNum Mod 100
  108.      Dim CalcDate As New DateTime(dateYear , dateMonth , dateDay )
  109.      Return CalcDate
  110.   End Function
  111.     </Code>
  112.   <Width>8.375in</Width>
  113.   <Body>
  114.     <ReportItems>
  115.       <Textbox Name="textbox6">
  116.         <DataElementOutput>Output</DataElementOutput>
  117.         <Visibility>
  118.           <Hidden>= (Fields!MissingServers.Value = "")</Hidden>
  119.         </Visibility>
  120.         <Top>0.75in</Top>
  121.         <Width>3.5in</Width>
  122.         <Style>
  123.           <Color>DimGray</Color>
  124.           <FontFamily>Verdana</FontFamily>
  125.           <FontWeight>700</FontWeight>
  126.           <PaddingLeft>2pt</PaddingLeft>
  127.           <PaddingRight>2pt</PaddingRight>
  128.           <PaddingTop>2pt</PaddingTop>
  129.           <PaddingBottom>2pt</PaddingBottom>
  130.         </Style>
  131.         <DataElementStyle>ElementNormal</DataElementStyle>
  132.         <ZIndex>6</ZIndex>
  133.         <CanGrow>true</CanGrow>
  134.         <Value>{[25325]}</Value>
  135.       </Textbox>
  136.       <Textbox Name="textbox5">
  137.         <DataElementOutput>Output</DataElementOutput>
  138.         <Visibility>
  139.           <Hidden>= (Fields!MissingServers.Value = "")</Hidden>
  140.         </Visibility>
  141.         <Top>0.5in</Top>
  142.         <Style>
  143.           <Color>DimGray</Color>
  144.           <FontFamily>Verdana</FontFamily>
  145.           <PaddingLeft>2pt</PaddingLeft>
  146.           <PaddingRight>2pt</PaddingRight>
  147.           <PaddingTop>2pt</PaddingTop>
  148.           <PaddingBottom>2pt</PaddingBottom>
  149.         </Style>
  150.         <DataElementStyle>ElementNormal</DataElementStyle>
  151.         <ZIndex>5</ZIndex>
  152.         <CanGrow>true</CanGrow>
  153.         <Left>3.5in</Left>
  154.         <DataElementName>MissingServers</DataElementName>
  155.         <Height>0.25in</Height>
  156.         <Value>= Fields!MissingServers.Value</Value>
  157.       </Textbox>
  158.       <Textbox Name="textbox4">
  159.         <DataElementOutput>Output</DataElementOutput>
  160.         <Visibility>
  161.           <Hidden>= (Fields!MissingServers.Value = "")</Hidden>
  162.         </Visibility>
  163.         <Top>0.5in</Top>
  164.         <Width>3.5in</Width>
  165.         <Style>
  166.           <Color>DimGray</Color>
  167.           <FontFamily>Verdana</FontFamily>
  168.           <PaddingLeft>2pt</PaddingLeft>
  169.           <PaddingRight>2pt</PaddingRight>
  170.           <PaddingTop>2pt</PaddingTop>
  171.           <PaddingBottom>2pt</PaddingBottom>
  172.         </Style>
  173.         <DataElementStyle>ElementNormal</DataElementStyle>
  174.         <ZIndex>4</ZIndex>
  175.         <CanGrow>true</CanGrow>
  176.         <Height>0.25in</Height>
  177.         <Value>{[25324]}</Value>
  178.       </Textbox>
  179.       <Textbox Name="textbox3">
  180.         <DataElementOutput>Output</DataElementOutput>
  181.         <Top>0.25in</Top>
  182.         <Width>3.5in</Width>
  183.         <Style>
  184.           <Color>DimGray</Color>
  185.           <FontFamily>Verdana</FontFamily>
  186.           <PaddingLeft>2pt</PaddingLeft>
  187.           <PaddingRight>2pt</PaddingRight>
  188.           <PaddingTop>2pt</PaddingTop>
  189.           <PaddingBottom>2pt</PaddingBottom>
  190.         </Style>
  191.         <DataElementStyle>ElementNormal</DataElementStyle>
  192.         <ZIndex>3</ZIndex>
  193.         <CanGrow>true</CanGrow>
  194.         <Height>0.25in</Height>
  195.         <Value>{[25147]}:</Value>
  196.       </Textbox>
  197.       <Textbox Name="textbox2">
  198.         <DataElementOutput>Output</DataElementOutput>
  199.         <Top>0.25in</Top>
  200.         <Style>
  201.           <Color>DimGray</Color>
  202.           <FontFamily>Verdana</FontFamily>
  203.           <PaddingLeft>2pt</PaddingLeft>
  204.           <PaddingRight>2pt</PaddingRight>
  205.           <PaddingTop>2pt</PaddingTop>
  206.           <PaddingBottom>2pt</PaddingBottom>
  207.         </Style>
  208.         <DataElementStyle>ElementNormal</DataElementStyle>
  209.         <ZIndex>2</ZIndex>
  210.         <CanGrow>true</CanGrow>
  211.         <Left>3.5in</Left>
  212.         <DataElementName>servers</DataElementName>
  213.         <Height>0.25in</Height>
  214.         <Value>= Fields!Servers.Value</Value>
  215.       </Textbox>
  216.       <Textbox Name="labelReport">
  217.         <DataElementOutput>Output</DataElementOutput>
  218.         <Width>3.5in</Width>
  219.         <Style>
  220.           <Color>DimGray</Color>
  221.           <FontFamily>Verdana</FontFamily>
  222.           <PaddingLeft>2pt</PaddingLeft>
  223.           <PaddingRight>2pt</PaddingRight>
  224.           <PaddingTop>2pt</PaddingTop>
  225.           <PaddingBottom>2pt</PaddingBottom>
  226.         </Style>
  227.         <DataElementStyle>ElementNormal</DataElementStyle>
  228.         <ZIndex>1</ZIndex>
  229.         <CanGrow>true</CanGrow>
  230.         <Height>0.25in</Height>
  231.         <Value>{[25143]}</Value>
  232.       </Textbox>
  233.       <Textbox Name="textbox1">
  234.         <DataElementOutput>Output</DataElementOutput>
  235.         <Width>4.75in</Width>
  236.         <Style>
  237.           <Color>DimGray</Color>
  238.           <FontFamily>Verdana</FontFamily>
  239.           <PaddingLeft>2pt</PaddingLeft>
  240.           <PaddingRight>2pt</PaddingRight>
  241.           <PaddingTop>2pt</PaddingTop>
  242.           <PaddingBottom>2pt</PaddingBottom>
  243.         </Style>
  244.         <DataElementStyle>ElementNormal</DataElementStyle>
  245.         <CanGrow>true</CanGrow>
  246.         <Left>3.5in</Left>
  247.         <DataElementName>DatePeriod</DataElementName>
  248.         <Height>0.25in</Height>
  249.         <Value>= FormatDateTime(Code.ConvertToDate(Parameters!FromDate.Value)) + " - " + FormatDateTime(Code.ConvertToDate(Parameters!ToDate.Value))</Value>
  250.       </Textbox>
  251.     </ReportItems>
  252.     <Height>1in</Height>
  253.   </Body>
  254.   <Language>=User!Language</Language>
  255.   <TopMargin>1in</TopMargin>
  256. </Report>
  257.