43 lines
1.1 KiB
VB.net
43 lines
1.1 KiB
VB.net
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 |