Option Explicit On
Option Strict On
Imports ADSNetLibrary.SIGAPI.Helpers
Imports Extensiones.ModExtensiones

Partial Class ListadoBoletos
    Inherits ClsPaginas
    Private Property CveViaje As Integer
        Get
            Return ViewState("CveViaje").ToString().ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveViaje") = value
        End Set
    End Property
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            If Request.QueryString("CveViaje") Is Nothing Then
                Response.Redirect("/Transportes/ListadoViajes.aspx")
            End If
            CveViaje = Request.QueryString("CveViaje").ToEntero

            InicializaCombos()
            CargaDatos()
        End If
    End Sub

    Private Sub InicializaCombos()

    End Sub

    Private Sub CargaDatos()
        Dim ObjTransportes As New ClsTransportes

        If ObjTransportes.GetViajesPasajeros(CveViaje) Then

            GvBoletos.DataSource = ObjTransportes.DtResultados
            ObjTransportes.Dispose()
            GvBoletos.DataBind()
        End If
    End Sub

End Class