<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2005/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
  <DataSources>
    <DataSource Name="samm_web">
      <rd:DataSourceID>27368cf2-831e-4b78-9d6e-8466a061582c</rd:DataSourceID>
      <DataSourceReference>samm_web</DataSourceReference>
    </DataSource>
  </DataSources>
  <InteractiveHeight>29.7cm</InteractiveHeight>
  <ReportParameters>
    <ReportParameter Name="documento_numero">
      <DataType>Integer</DataType>
      <Nullable>true</Nullable>
      <DefaultValue>
        <Values>
          <Value>0</Value>
        </Values>
      </DefaultValue>
      <AllowBlank>true</AllowBlank>
      <Prompt>documento_numero</Prompt>
    </ReportParameter>
  </ReportParameters>
  <rd:DrawGrid>true</rd:DrawGrid>
  <InteractiveWidth>21cm</InteractiveWidth>
  <rd:GridSpacing>0.1cm</rd:GridSpacing>
  <rd:SnapToGrid>true</rd:SnapToGrid>
  <RightMargin>0.5cm</RightMargin>
  <LeftMargin>2cm</LeftMargin>
  <BottomMargin>0.5cm</BottomMargin>
  <rd:ReportID>247d0110-9088-4545-b98d-9712287e6553</rd:ReportID>
  <CodeModules>
    <CodeModule>System.Web, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</CodeModule>
  </CodeModules>
  <PageWidth>21cm</PageWidth>
  <DataSets>
    <DataSet Name="origen2">
      <Fields>
        <Field Name="documento_numero">
          <DataField>documento_numero</DataField>
          <rd:TypeName>System.String</rd:TypeName>
        </Field>
        <Field Name="notas">
          <DataField>notas</DataField>
          <rd:TypeName>System.String</rd:TypeName>
        </Field>
      </Fields>
      <Query>
        <DataSourceName>samm_web</DataSourceName>
        <CommandText />
      </Query>
    </DataSet>
  </DataSets>
  <Code> Public Shared Function opciones(ByVal p_str_opcion As String) As String
        Dim r As String = getReporteID()
        Dim t_ As String = System.Web.HttpContext.Current.Session("samm_opcionReporte_" &amp; r)
        If Not t_ Is Nothing Then
            If t_ = "" Then
            Else
                For Each t_str As String In t_.Split("|")
                    If p_str_opcion.ToString() = t_str.Split(".")(0) Then
                        Return t_str.Split(".")(1).ToString()
                    End If
                Next
            End If
        End If
        Return "-1"
    End Function

    Public Shared Function imagen(ByVal p As String) As String
        Return String.Concat("file:\\\\", System.Web.HttpContext.Current.Server.MapPath("~"), "\images\reportes\", p , ".jpg") 
    End Function

 Shared TextoCabecera As String = ""

    Public Shared Function tituloReporte() As String
       return System.Web.HttpContext.Current.Session("samm_tituloReporte")
    End Function

    Public Shared Function codigoReporte() As String
       return System.Web.HttpContext.Current.Session("samm_codigoReporte") 
    End Function
           
    Public Shared Function filtroReporte() As String
    return System.Web.HttpContext.Current.Session("samm_filtroReporte")
    End Function

      Public Shared Function agrupamiento() As String
            Dim t_ As String = System.Web.HttpContext.Current.Session("samm_agrupamiento")
            If t_ &lt;&gt; "" Then
                Return t_ &amp; ": "
            Else
                Return ""
            End If
        End Function

    Shared TextoOTCabecera As String = ""

    Public Shared Function getValorElemento(ByVal ReportItems As Object, ByVal item As String) As String
        If TextoOTCabecera = "" Then
            TextoOTCabecera = ReportItems(item).Value.ToString()
        End If
        Return TextoOTCabecera
    End Function

    public shared function getReporteID() as String
    Dim t_ As String = Web.HttpContext.Current.Request.QueryString("r")
    return t_
    End Function</Code>
  <Width>17.3cm</Width>
  <Body>
    <ColumnSpacing>1cm</ColumnSpacing>
    <ReportItems>
      <List Name="list2">
        <DataSetName>origen2</DataSetName>
        <ReportItems>
          <Textbox Name="textbox19">
            <Width>16.1cm</Width>
            <Style>
              <FontSize>7pt</FontSize>
              <PaddingLeft>2pt</PaddingLeft>
              <PaddingRight>2pt</PaddingRight>
            </Style>
            <CanGrow>true</CanGrow>
            <Value>=Fields!notas.Value</Value>
          </Textbox>
        </ReportItems>
        <Filters>
          <Filter>
            <FilterExpression>=CInt(Fields!documento_numero.Value)</FilterExpression>
            <Operator>Equal</Operator>
            <FilterValues>
              <FilterValue>=Cint(Parameters!documento_numero.Value)</FilterValue>
            </FilterValues>
          </Filter>
        </Filters>
      </List>
    </ReportItems>
    <Height>0.3cm</Height>
  </Body>
  <Language>es-CO</Language>
  <PageHeight>29.7cm</PageHeight>
</Report>