--Se seleccionaron boletos ya vendidos, se les cambio la clase a .nodisponible, se deshabilitaron los click y se puso el nombre del cliente en hover. Se agregó un nuevo botón de acción a la lista de viajes para poder ver los boletos por viaje. Se creó el nuevo url para la lista de boletos vendidos por viaje en ClsPaginas, y en la nueva url se creo la lista de boletos con las acciones para editar, cambiar estatus de boleto e imprimirlo
This commit is contained in:
43
Transportes/ListadoBoletos.aspx.vb
Normal file
43
Transportes/ListadoBoletos.aspx.vb
Normal file
@@ -0,0 +1,43 @@
|
||||
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
|
||||
Reference in New Issue
Block a user