-
+ data-sort="true" DataKeyNames="Asiento,Nombre, Visa,Celular,Sexo,Estatus,Partida,Destino, Importe">
+
@@ -71,17 +71,35 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
+
diff --git a/Transportes/ListadoBoletos.aspx.vb b/Transportes/ListadoBoletos.aspx.vb
index 96899cc76..24a41e814 100644
--- a/Transportes/ListadoBoletos.aspx.vb
+++ b/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
\ No newline at end of file
diff --git a/Transportes/ListadoViajes.aspx.vb b/Transportes/ListadoViajes.aspx.vb
index 9aa5d7bfe..9a0ca63a4 100644
--- a/Transportes/ListadoViajes.aspx.vb
+++ b/Transportes/ListadoViajes.aspx.vb
@@ -15,6 +15,14 @@ Partial Class ListadoViajes
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
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -192,7 +200,7 @@ Partial Class ListadoViajes
DdlPartida.SelectedValue = GvRow.DataKey("CvePartida")
DdlChofer.SelectedValue = GvRow.DataKey("CvePersonal")
ViewState("CveViaje") = GvRow.DataKey("CveViaje")
- Page.Response.Write("")
+ ViewState("Ruta") = GvRow.DataKey("Ruta")
Dim fecha As DateTime
If DateTime.TryParse(GvRow.DataKey("Fecha").ToString, fecha) Then
@@ -247,6 +255,8 @@ Partial Class ListadoViajes
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))
+ Dim Ruta As String = GvRow.DataKey("Ruta")
+ Response.Redirect(String.Format("~/Transportes/ListadoBoletos.aspx?CveViaje={0}&Ruta={1}", CveViaje, Ruta))
+
End Sub
End Class