<%@ Page Language="VB" MasterPageFile="~/Diseño/MasterPage/MasterListado.master" AutoEventWireup="false" CodeFile="rpAcudiente.aspx.vb" Inherits="Reportes_Basicas_rpAcudiente" title="Untitled Page" %>

<%@ Register Assembly="Microsoft.ReportViewer.WebForms, Version=9.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"
    Namespace="Microsoft.Reporting.WebForms" TagPrefix="repweb" %>

<%@ MasterType VirtualPath="~/Diseño/MasterPage/MasterListado.master" %>


<asp:Content ID="Content1" ContentPlaceHolderID="headListado" Runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolderListado" Runat="Server">
    <repweb:ReportViewer ID="ReportViewer1" runat="server" Font-Names="Verdana" 
        Font-Size="8pt" Height="400px" ProcessingMode="Remote" Width="400px" PromptAreaCollapsed="True">
        <ServerReport ReportServerUrl="//sistema/reportserver" 
         ReportPath ="~/Informes/rpColegios.rdl" />
    </repweb:ReportViewer>

</asp:Content>

Imports System.Collections
Imports System.Configuration
Imports System.Data
Imports System.Linq
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Xml.Linq
Imports Microsoft.Reporting.WebForms
Imports BUSINESS_OBJECTS.BUSINESS_OBJECTS.Seguridad
Imports BUSINESS_OBJECTS.BUSINESS_OBJECTS.Seguridad.UsuariosBO
Imports BUSINESS_OBJECTS.BUSINESS_OBJECTS.Basicas
Imports System.Net
 
 
Partial Class Reportes_Basicas_rpAcudiente
    Inherits System.Web.UI.Page
 
    Const OPCion As Byte = 49
    'Dim BasAcudi As New BasAcudienteBO
    Dim dt As DataTable
    'Dim ds As New DataSet
 
    Protected Sub Page_Init(ByVal sender As Object, _
            ByVal e As System.EventArgs) Handles Me.Init
 
        Me.Master.Opcion = OPCion
        Me.Master.IsDefault = True
        Me.Master.Titulo = "BIENVENIDO AL SISTEMA DE TRANSPORTE"
        Me.Master.Instruccion = "Reporte Acudientes"
    End Sub
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        If Not IsPostBack Then
            Me.Master.Opcion = OPCion
            Me.Master.IsDefault = True
            Me.Master.Titulo = "BIENVENIDO AL SISTEMA DE TRANSPORTE"
            Me.Master.Instruccion = "Reporte Acudientes"