--Cambios para adaptar a la nueva BD RMF. Tanto métodos, PA y contenidos de las tablas

2024-01-10 09:45:52 -07:00
parent a30a377601
commit d9837f08bc
11 changed files with 28 additions and 178 deletions
--- a/Transportes/RepBoletos.aspx.vb
+++ b/Transportes/RepBoletos.aspx.vb
@@ -0,0 +1,114 @@
+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 = Request.QueryString("Ruta")
+
+            Prueba.Text = Ruta
+
+            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
+
+    Protected Sub ToggleViajesPasajeros(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim CveViajePasajero As String = GvRow.DataKey("CveViajePasajero")
+        Dim Estatus As String = GvRow.DataKey("Estatus")
+        Dim cambiarEstatus As Boolean = Not Estatus.ToBool
+        Dim ObjTransportes As New ClsTransportes
+
+        Try
+            ObjTransportes.IniciaTransacSQL()
+            If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero.ToEntero, Activar:=True, Estatus:=cambiarEstatus) Then
+
+                If cambiarEstatus Then
+                    Alert($"El boleto ha sido cancelado correctamente.")
+                Else
+                    Alert($"El boleto ha sido reactivado correctamente.")
+
+                End If
+            End If
+            ObjTransportes.Commit()
+
+        Catch ex As Exception
+            ObjTransportes.RollBack()
+            Alert($"No se pudo cambiar el estatus del boleto {ex}", TipoMensaje.MsgError)
+        Finally
+            ObjTransportes.Dispose()
+            CargaDatos()
+        End Try
+
+    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