From 7c2d2f9102307c565b410c4a9c20a6d3d86c97b5 Mon Sep 17 00:00:00 2001
From: AbrahamCastilloV <abcastillo.yo@gmail.com>
Date: Sat, 13 Jan 2024 10:12:26 -0700
Subject: [PATCH] =?UTF-8?q?--Se=20hizo=20publish=20a=20Stimulsoft=20para?=
 =?UTF-8?q?=20poder=20correrlo=20de=20manera=20local.=20Se=20agreg=C3=B3?=
 =?UTF-8?q?=20a=20PA=5FTrans=5FViajesPasajerosGet=20la=20columna=20de=20Ag?=
 =?UTF-8?q?encia(NombreCorto-Empresas)=20y=20TelefonoAgencia(Telefono-Empr?=
 =?UTF-8?q?esas).=20Se=20agregaron=20esos=20campos=20a=20los=20param=C3=A9?=
 =?UTF-8?q?tros=20que=20van=20hacia=20la=20impresi=C3=B3n=20del=20boleto.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Transportes/RepBoletos.aspx    |  2 +-
 Transportes/RepBoletos.aspx.vb | 13 ++++++++-----
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/Transportes/RepBoletos.aspx b/Transportes/RepBoletos.aspx
index 382af7e19..27869d3d3 100644
--- a/Transportes/RepBoletos.aspx
+++ b/Transportes/RepBoletos.aspx
@@ -31,7 +31,7 @@
     <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"
-            data-sort="true" DataKeyNames="Asiento,Nombre, Visa,Celular,Sexo,Estatus,Partida,Destino, Importe">
+            data-sort="true" DataKeyNames="Asiento,Nombre, Visa,Celular,Sexo,Estatus,Partida,Destino, Importe,FechaIng, Agencia, TelefonoAgencia">
             <Columns>
 
                 <asp:TemplateField HeaderText="No. Asiento">
diff --git a/Transportes/RepBoletos.aspx.vb b/Transportes/RepBoletos.aspx.vb
index c658b7b15..adf167f18 100644
--- a/Transportes/RepBoletos.aspx.vb
+++ b/Transportes/RepBoletos.aspx.vb
@@ -88,20 +88,23 @@ Partial Class ListadoBoletos
     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", "2024-01-03"),
-            New ReportParameter("HoraSalida", "17:00"),
+            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", GvRow.DataKey("Importe")),
+            New ReportParameter("Importe", Math.Round(Importe, 2).ToString),
             New ReportParameter("TipoBoleto", "Tipo Boleto"),
-            New ReportParameter("Agencia", "Agencia"),
-            New ReportParameter("TelefonoAgencia", "Telefono Agencia")
+            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")