-Se agregó el formato para impresión de boletos, se cambiaron las claves en ClsPaginas para /Transportes y se agregaron el nombre de la ruta a la CveRuta en listado de boletos

Transportes/ListadoBoletos.aspx.vb

@@ -1,8 +1,11 @@
 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
@@ -14,12 +17,23 @@ Partial Class ListadoBoletos
             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/ListadoViajes.aspx")
             End If
             CveViaje = Request.QueryString("CveViaje").ToEntero
+            Ruta = Request.QueryString("Ruta")
+
+            Prueba.Text = Ruta
 
             InicializaCombos()
             CargaDatos()
@@ -71,4 +85,30 @@ Partial Class ListadoBoletos
 
     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 params As New List(Of ReportParameter)
+
+        params.Add(New ReportParameter("Ruta", Ruta))
+        params.Add(New ReportParameter("Origen", GvRow.DataKey("Partida")))
+        params.Add(New ReportParameter("Destino", GvRow.DataKey("Destino")))
+        params.Add(New ReportParameter("FechaSalida", "2024-01-03"))
+        params.Add(New ReportParameter("HoraSalida", "17:00"))
+        params.Add(New ReportParameter("Nombre", GvRow.DataKey("Nombre")))
+        params.Add(New ReportParameter("Visa", GvRow.DataKey("Visa")))
+        params.Add(New ReportParameter("Celular", GvRow.DataKey("Celular")))
+        params.Add(New ReportParameter("Importe", GvRow.DataKey("Importe")))
+        params.Add(New ReportParameter("TipoBoleto", "Tipo Boleto"))
+        params.Add(New ReportParameter("Agencia", "Agencia"))
+        params.Add(New ReportParameter("TelefonoAgencia", "Telefono Agencia"))
+
+        ImprimirPDFStimul("Empresas/188/Formatos/Boleto.mrt", dtResult, params, NombreArchivo:="Boleto")
+
+        'Empresas/Grales/Formatos/EntradaSalida.mrt
+        'Empresas/188/Formatos/Boleto.mrt
+
+    End Sub
+
 End Class