109 lines
4.1 KiB
VB.net
109 lines
4.1 KiB
VB.net
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
|
|
|
|
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
|
|
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 String = GvRow.DataKey("CveViajePasajero")
|
|
Dim Estatus As String = GvRow.DataKey("Estatus")
|
|
Dim cambiarEstatus As Boolean = Not Estatus.ToBool
|
|
Dim ObjTransportes As New ClsTransportes
|
|
ObjTransportes.IniciaTransacSQL()
|
|
Try
|
|
If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero.ToEntero, Activar:=cambiarEstatus, Estatus:=cambiarEstatus) Then
|
|
If Not 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
|
|
End Class |