diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index e4fa603fe..60bf8c37c 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9471,6 +9471,7 @@ Public Class ClsPaginas PaginaDict.Add("/Transportes/ListadoContratos.aspx".ToUpper(), 598) PaginaDict.Add("/Transportes/ListadoViajes.aspx".ToUpper(), 598) PaginaDict.Add("/Transportes/Boletos.aspx".ToUpper(), 598) + PaginaDict.Add("/Transportes/ListadoBoletos.aspx".ToUpper(), 598) #End Region 'Antes de aquí. diff --git a/Transportes/Boletos.aspx b/Transportes/Boletos.aspx index 85959c08e..dd12a91c2 100644 --- a/Transportes/Boletos.aspx +++ b/Transportes/Boletos.aspx @@ -37,7 +37,7 @@ display: inline-block; width: 45px; height: 45px; - background-color: #E7505A; + background-color: #F3565D; border-radius: 10px !important; margin: 5px; cursor: pointer; @@ -217,60 +217,7 @@ -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+ diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 43a671f0d..3b878b195 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -1,5 +1,5 @@ -Imports Extensiones -Imports System.Data +Imports System.Data +Imports Extensiones Partial Class Boletos Inherits ClsPaginas @@ -66,22 +66,20 @@ Partial Class Boletos 'Boletos Vendidos Dim dt As DataTable If ObjViaje.GetViajesPasajeros(CveViaje) Then - GvBoletos.DataSource = ObjViaje.DtResultados dt = ObjViaje.DtResultados Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder) For Each dr As DataRow In dt.Rows Dim lnk As LinkButton = CType(cph.FindControl($"A{dr("Asiento")}"), LinkButton) If lnk IsNot Nothing Then - lnk.Enabled = False ' se vendieron - lnk.BackColor = Drawing.Color.Red - 'falta ponerlelos colores rojos, colorear con + lnk.Enabled = False + lnk.CssClass = "nodisponible" + lnk.ToolTip = dr("Nombre").ToString End If Next End If End If ObjViaje.Dispose() - GvBoletos.DataBind() End Sub diff --git a/Transportes/ListadoBoletos.aspx b/Transportes/ListadoBoletos.aspx new file mode 100644 index 000000000..d71269d60 --- /dev/null +++ b/Transportes/ListadoBoletos.aspx @@ -0,0 +1,101 @@ +<%@ Page Language="VB" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeFile="ListadoBoletos.aspx.vb" + Inherits="ListadoBoletos" EnableEventValidation="true" %> + + + Listado de Boletos + + + + + + + + + +
  • + Contratos +
    • +
  • + Viajes +
    • +     +     +     + + + +
    + " + style="display: inline-block; margin-right: -20px; width: 150px;" /> + " + style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + +
    + +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + + + +     + + diff --git a/Transportes/ListadoBoletos.aspx.vb b/Transportes/ListadoBoletos.aspx.vb new file mode 100644 index 000000000..0addc5160 --- /dev/null +++ b/Transportes/ListadoBoletos.aspx.vb @@ -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 \ No newline at end of file diff --git a/Transportes/ListadoViajes.aspx b/Transportes/ListadoViajes.aspx index 9377bb548..67bcd60c0 100644 --- a/Transportes/ListadoViajes.aspx +++ b/Transportes/ListadoViajes.aspx @@ -103,9 +103,13 @@ CssClass="btn btn-circle btn-sm red" OnClick="RemoveViaje" Text="" data-toggle="confirmation" data-popout="true" data-original-title='<%# If(Eval("CveMasivo").ToString <> "", "Eliminación masiva", "Confirmar") %>' data-btn-ok-label="si" /> + + CssClass="btn btn-circle btn-sm blue" Text="" + OnClick="GoViaje" /> + diff --git a/Transportes/ListadoViajes.aspx.vb b/Transportes/ListadoViajes.aspx.vb index 4207e0c93..83208732e 100644 --- a/Transportes/ListadoViajes.aspx.vb +++ b/Transportes/ListadoViajes.aspx.vb @@ -232,5 +232,9 @@ Partial Class ListadoViajes Dim CveViaje As String = GvRow.DataKey("CveViaje") Response.Redirect(String.Format("~/Transportes/Boletos.aspx?CveViaje={0}", CveViaje)) End Sub - + Protected Sub GoBoletos(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim CveViaje As String = GvRow.DataKey("CveViaje") + Response.Redirect(String.Format("~/Transportes/ListadoBoletos.aspx?CveViaje={0}", CveViaje)) + End Sub End Class