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/ListadoViajes.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