--

Transportes/RepBoletos.aspx

@@ -34,10 +34,13 @@
         </div>
     </div>
     <asp:UpdatePanel ID="UPPD" runat="server">
+        <Triggers>
+        </Triggers>
         <ContentTemplate>
              <div class="portlet light xspadding  bordered margin-bottom-10">
                 <asp:GridView ID="GvBoletos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningún boleto registrado"
                     CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
+                    OnRowDataBound="GvBoletos_RowDataBound"
                     data-sort="true" DataKeyNames="CveViajePasajero,Asiento,Nombre, Visa,Celular,Sexo,Estatus,Partida,Destino, Importe,FechaIng, Agencia, TelefonoAgencia">
                     <Columns>
                         <asp:TemplateField HeaderText="No. Asiento">
@@ -89,8 +92,8 @@
 
                         <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
                             <ItemTemplate>
-                                <asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar"
-                                    CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" ToolTip="Editar" />
+                                <%--<asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar"
+                                    CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" ToolTip="Editar" />--%>
                                 <asp:LinkButton ID="BtnCancelar" runat="server" AlternateText="Activar"
                                     CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-cancel'></i>"
                                     data-toggle="confirmation" data-popout="true" data-original-title='<%# If(Eval("Estatus").ToString = "True", "Cancelar Boleto", "Reactivar") %>'

Transportes/RepBoletos.aspx.vb

@@ -1,88 +1,88 @@
-Option Explicit On
-Option Strict On
-
-Imports System.Data
-Imports ADSNetLibrary.Helpers
-Imports ADSNetLibrary.SIGAPI.Helpers
-Imports Extensiones.ModExtensiones
-Imports Microsoft.Reporting.WebForms
-
-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
-    Private Property Ruta As String
-        Get
-            Return ViewState("Ruta").ToString()
-        End Get
-        Set(value As String)
-            ViewState("Ruta") = 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/RepViajes.aspx")
-            End If
-            CveViaje = Request.QueryString("CveViaje").ToEntero
-            Ruta = IfNull(Request("Ruta"), "").ToString
-            LblViaje.Text = Ruta
-            CargaDatos()
-        End If
-    End Sub
-
-    Private Sub CargaDatos()
-        Dim ObjTransportes As New ClsTransportes
-        If ObjTransportes.GetViajesPasajeros(CveViaje) Then
-            GvBoletos.DataSource = ObjTransportes.DtResultados
-        End If
-        ObjTransportes.Dispose()
-        GvBoletos.DataBind()
-    End Sub
-
-    Protected Sub ImprimirBoleto(sender As Object, e As EventArgs)
-        Dim dtResult As New DataTable()
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim Fecha As Date = GvRow.DataKey("FechaIng").ToDate
-        Dim Importe As Decimal = GvRow.DataKey("Importe").ToDecimal
-
-        Dim params As New List(Of ReportParameter) From {
-            New ReportParameter("Ruta", Ruta),
-            New ReportParameter("Origen", GvRow.DataKey("Partida")),
-            New ReportParameter("Destino", GvRow.DataKey("Destino")),
-            New ReportParameter("FechaSalida", Fecha.ToShortDateString()),
-            New ReportParameter("HoraSalida", Fecha.ToString("HH:mm")),
-            New ReportParameter("Nombre", GvRow.DataKey("Nombre")),
-            New ReportParameter("Visa", GvRow.DataKey("Visa")),
-            New ReportParameter("Celular", GvRow.DataKey("Celular")),
-            New ReportParameter("Importe", Math.Round(Importe, 1).ToString),
-            New ReportParameter("TipoBoleto", "Tipo Boleto"),
-            New ReportParameter("Agencia", GvRow.DataKey("Agencia")),
-            New ReportParameter("TelefonoAgencia", GvRow.DataKey("TelefonoAgencia")),
-            New ReportParameter("Asiento", GvRow.DataKey("Asiento"))
-        }
-
-        ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Boleto.mrt", dtResult, params, NombreArchivo:="Boleto")
-        'Empresas/Grales/Formatos/EntradaSalida.mrt
-        'Empresas/188/Formatos/Boleto.mrt
-
-    End Sub
-
-
-    Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim CveViajePasajero As Integer = GvRow.DataKey("CveViajePasajero").ToEntero()
-        Dim Estatus As String = GvRow.DataKey("Estatus")
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports ADSNetLibrary.Helpers
+Imports ADSNetLibrary.SIGAPI.Helpers
+Imports Extensiones.ModExtensiones
+Imports Microsoft.Reporting.WebForms
+
+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
+    Private Property Ruta As String
+        Get
+            Return ViewState("Ruta").ToString()
+        End Get
+        Set(value As String)
+            ViewState("Ruta") = 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/RepViajes.aspx")
+            End If
+            CveViaje = Request.QueryString("CveViaje").ToEntero
+            Ruta = IfNull(Request("Ruta"), "").ToString
+            LblViaje.Text = Ruta
+            CargaDatos()
+        End If
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjTransportes As New ClsTransportes
+        If ObjTransportes.GetViajesPasajeros(CveViaje) Then
+            GvBoletos.DataSource = ObjTransportes.DtResultados
+        End If
+        ObjTransportes.Dispose()
+        GvBoletos.DataBind()
+    End Sub
+
+    Protected Sub ImprimirBoleto(sender As Object, e As EventArgs)
+        Dim dtResult As New DataTable()
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim Fecha As Date = GvRow.DataKey("FechaIng").ToDate
+        Dim Importe As Decimal = GvRow.DataKey("Importe").ToDecimal
+
+        Dim params As New List(Of ReportParameter) From {
+            New ReportParameter("Ruta", Ruta),
+            New ReportParameter("Origen", GvRow.DataKey("Partida")),
+            New ReportParameter("Destino", GvRow.DataKey("Destino")),
+            New ReportParameter("FechaSalida", Fecha.ToShortDateString()),
+            New ReportParameter("HoraSalida", Fecha.ToString("HH:mm")),
+            New ReportParameter("Nombre", GvRow.DataKey("Nombre")),
+            New ReportParameter("Visa", GvRow.DataKey("Visa")),
+            New ReportParameter("Celular", GvRow.DataKey("Celular")),
+            New ReportParameter("Importe", Importe.FormatoNumero(2)),
+            New ReportParameter("TipoBoleto", "Tipo Boleto"),
+            New ReportParameter("Agencia", GvRow.DataKey("Agencia")),
+            New ReportParameter("TelefonoAgencia", GvRow.DataKey("TelefonoAgencia")),
+            New ReportParameter("Asiento", GvRow.DataKey("Asiento"))
+        }
+
+        ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Boleto.mrt", dtResult, params, NombreArchivo:="Boleto")
+        'Empresas/Grales/Formatos/EntradaSalida.mrt
+        'Empresas/188/Formatos/Boleto.mrt
+
+    End Sub
+
+
+    Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim CveViajePasajero As Integer = GvRow.DataKey("CveViajePasajero").ToEntero()
+        Dim Estatus As String = GvRow.DataKey("Estatus")
         Dim cambiarEstatus As Boolean = Not Estatus.ToBool
 
 
-        Dim TieneError As Boolean = False
+        Dim TieneError As Boolean = False
         Try
             Dim DtRem As DataTable = Nothing
 
@@ -120,7 +120,7 @@ Partial Class ListadoBoletos
                 Else
                     'SI NO TIENE VENTA, SOLO CANCELAR EL BOLETO
                     Dim ObjTran2 As New ClsTransportes
-                    If Not ObjTran2.UpdateViajesPasajeros(CveViajePasajero) Then
+                    If Not ObjTran2.CancelarViaje(CveViajePasajero) Then
                         TieneError = True
                     End If
                     ObjTran2.Dispose()
@@ -129,16 +129,21 @@ Partial Class ListadoBoletos
             End If
         Catch ex As Exception
             TieneError = True
-            GuardaLog(ex.ToString())
-        Finally
+            GuardaLog(ex.ToString())
+        Finally
             If TieneError Then
                 Alert($"Ocurrió un error al cancelar el boleto.", TipoMensaje.MsgError)
             Else
                 Alert($"El boleto ha sido cancelado correctamente.")
             End If
 
-            CargaDatos()
-        End Try
+            CargaDatos()
+        End Try
     End Sub
 
+    Protected Sub GvBoletos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("BtnImprimir"))
+        End If
+    End Sub
 End Class

Transportes/RepContratos.aspx

@@ -4,7 +4,7 @@
     Inherits="ListadoContratos" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="E" runat="Server">
-    Listado de Contratos
+    Contratos
 </asp:Content>
 
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">

Transportes/RepContratos.aspx.vb

@@ -32,11 +32,11 @@ Partial Class ListadoContratos
     End Sub
     Private Sub InicializaCombos()
         'Lista Tipo AF
-        DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
+        DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
         DdlTipoAF.DataBind()
         DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
 
-        DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
+        DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
         DdlTipoUnidad.DataBind()
         DdlTipoUnidad.Items.Insert(0, New ListItem("-", ""))
         'Lista Chofer'