582 lines
26 KiB
VB.net
582 lines
26 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
Imports System.Data
|
|
Imports System.IO
|
|
Imports Extensiones
|
|
Imports Microsoft.Reporting.WebForms
|
|
|
|
|
|
Partial Class RepContratoDetalle
|
|
Inherits ClsPaginas
|
|
#Region "Propiedades"
|
|
Private Property CveContrato As Integer
|
|
Get
|
|
Return CType(ViewState("CveContrato"), Integer)
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveContrato") = value
|
|
End Set
|
|
End Property
|
|
Private Property ArchivoUpdate As String
|
|
Get
|
|
Return ViewState("ArchivoUpdate").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("ArchivoUpdate") = value
|
|
End Set
|
|
End Property
|
|
Private Property CveContratoTipo As Integer
|
|
Get
|
|
Return CType(ViewState("CveContratoTipo"), Integer)
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveContratoTipo") = value
|
|
End Set
|
|
End Property
|
|
Private Property CveContratoEstatus As Integer
|
|
Get
|
|
Return CType(ViewState("CveContratoEstatus"), Integer)
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveContratoEstatus") = value
|
|
End Set
|
|
End Property
|
|
Private Property CveMasivo As Integer
|
|
Get
|
|
Return CType(ViewState("CveMasivo"), Integer)
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveMasivo") = value
|
|
End Set
|
|
End Property
|
|
Private Property CveViajePasajero As Integer
|
|
Get
|
|
Return CType(ViewState("CveViajePasajero"), Integer)
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveViajePasajero") = value
|
|
End Set
|
|
End Property
|
|
Private Property Contrato As DataTable
|
|
Get
|
|
Return CType(ViewState("Contrato"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("Contrato") = value
|
|
End Set
|
|
End Property
|
|
Private Property ViajeActual As DataTable
|
|
Get
|
|
Return CType(ViewState("ViajeActual"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("ViajeActual") = value
|
|
End Set
|
|
End Property
|
|
Private Property SubProyecto As String
|
|
Get
|
|
Return CType(ViewState("SubProyecto"), String)
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("SubProyecto") = value
|
|
End Set
|
|
End Property
|
|
Private Property AsientoSeleccionado As String
|
|
Get
|
|
Return ViewState("AsientoSeleccionado").ToString()
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("AsientoSeleccionado") = value
|
|
End Set
|
|
End Property
|
|
Private Property TelefonoEmpresa As String
|
|
Get
|
|
Return ViewState("TelefonoEmpresa").ToString()
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("TelefonoEmpresa") = value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
#Region "Carga Página"
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Request("CveContrato") Is Nothing Then
|
|
Response.Redirect($"~/Transportes/RepContratos.aspx")
|
|
End If
|
|
CveContrato = Request("CveContrato").ToEntero
|
|
If Not IsPostBack Then
|
|
InicializaCombos()
|
|
CargaDatos()
|
|
AsientoSeleccionado = ""
|
|
CveViajePasajero = 0
|
|
Session("FileExtension") = ""
|
|
ArchivoUpdate = ""
|
|
TelefonoEmpresa = ""
|
|
|
|
End If
|
|
End Sub
|
|
Private Sub InicializaCombos()
|
|
'Lista Tipo AF
|
|
DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
|
|
DdlTipoAF.DataBind()
|
|
DdlTipoAF.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
|
|
'Lista de Monedas
|
|
DdlMoneda.DataSource = GlobalDTMonedas
|
|
DdlMoneda.DataBind()
|
|
End Sub
|
|
Private Sub CargaDatos()
|
|
'Información General
|
|
Dim ObjContratos As New ClsContratos
|
|
If ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then
|
|
Contrato = ObjContratos.DtResultados
|
|
If Contrato IsNot Nothing AndAlso Contrato.Rows.Count > 0 Then
|
|
Dim Importe As Decimal = Contrato.Rows(0)("Importe").ToString.ToDecimal
|
|
Dim Pesos As Decimal = Contrato.Rows(0)("ImporteMax").ToString.ToDecimal
|
|
Dim Anticipo As Decimal = Contrato.Rows(0)("ImporteMin").ToString.ToDecimal
|
|
CveContratoTipo = Contrato.Rows(0)("CveContratoTipo").ToString.ToEntero
|
|
SubProyecto = Contrato.Rows(0)("SubProyecto").ToString
|
|
CveMasivo = Contrato.Rows(0)("CveMasivo").ToString.ToEntero
|
|
LbFolio.Text = Contrato.Rows(0)("NumeroContrato").ToString
|
|
LbCveSubProyecto.Text = Contrato.Rows(0)("CveSubProyecto").ToString
|
|
DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString
|
|
DdlClientes.SelectedValue = Contrato.Rows(0)("CveCliente").ToString
|
|
DdlMoneda.SelectedValue = Contrato.Rows(0)("CveMoneda").ToString
|
|
TxtDescripcion.Text = Contrato.Rows(0)("DescripcionContrato").ToString
|
|
TxtObservaciones.Text = Contrato.Rows(0)("Observaciones").ToString
|
|
TelefonoEmpresa = Contrato.Rows(0)("Telefono").ToString
|
|
TxtUbicacion.Text = Contrato.Rows(0)("Ubicacion").ToString
|
|
TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString
|
|
TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString
|
|
TxtCantidadPasajeros.Text = Contrato.Rows(0)("CantidadPasajeros").ToString
|
|
DdlTipoAF.SelectedValue = If(Contrato.Rows(0)("CveTipoAF") Is Nothing, "", Contrato.Rows(0)("CveTipoAF").ToString)
|
|
TxtImporte.Text = Math.Round(Importe, 2).ToString
|
|
TxtAnticipo.Text = Math.Round(Anticipo, 2).ToString
|
|
CveContratoEstatus = Contrato.Rows(0)("CveContratosEstatus").ToString.ToEntero
|
|
If Not IsDBNull(ObjContratos.Archivo) AndAlso ObjContratos.Archivo <> "" AndAlso ObjContratos.Archivo <> "-1" AndAlso ObjContratos.Archivo <> $"{ObjContratos.CveContrato}." Then
|
|
ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "CONTRATOS", ObjContratos.Archivo)
|
|
BtnDescargar.Visible = True
|
|
Else
|
|
BtnDescargar.Visible = False
|
|
A1.Visible = True
|
|
End If
|
|
'Boletos Vendidos
|
|
If Contrato.Rows(0)("CveContratoTipo").ToString() = "35" Then
|
|
TabBoletos.Visible = True
|
|
Dim ObjTransportes As New ClsTransportes
|
|
If ObjTransportes.GetViajesPasajeros(CveContrato) Then
|
|
GvViajesPasajeros.DataSource = ObjTransportes.DtResultados
|
|
BusquedaSeleccionada(ObjTransportes.DtResultados)
|
|
End If
|
|
ObjTransportes.Dispose()
|
|
GvViajesPasajeros.DataBind()
|
|
End If
|
|
'Bitácora
|
|
Dim ObjEventoBitacora As New ClsOIEventos
|
|
If ObjEventoBitacora.GetEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then
|
|
GvEventosBitacora.DataSource = ObjEventoBitacora.DtResultados
|
|
GvEventosBitacora.DataBind()
|
|
End If
|
|
ObjEventoBitacora.Dispose()
|
|
|
|
End If
|
|
Else
|
|
ObjContratos.Dispose()
|
|
Response.Redirect($"~/Transportes/RepContratos.aspx")
|
|
End If
|
|
ObjContratos.Dispose()
|
|
UpTabContainer.Update()
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Información General"
|
|
Protected Sub BtnGuardarArchivo_Click1(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click
|
|
Dim FileExtension As String = "-1"
|
|
Dim Filesgral As List(Of Extensiones.Archivo) = Anexo.getfiles().Archivos
|
|
Dim Filename As String = ""
|
|
Dim folderContratosPath As String = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos")
|
|
|
|
If Not Directory.Exists(folderContratosPath) Then
|
|
Directory.CreateDirectory(folderContratosPath)
|
|
End If
|
|
|
|
If Not Directory.Exists(Path.Combine(folderContratosPath, "Temp")) Then
|
|
Directory.CreateDirectory(Path.Combine(folderContratosPath, "Temp"))
|
|
End If
|
|
|
|
For Each fileItem As Archivo In Filesgral
|
|
|
|
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
|
Session("FileExtension") = FileExtension
|
|
Dim tempArray() As String
|
|
tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
|
|
|
|
|
|
ViewState("extencion") = FileExtension
|
|
ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", "Temp", fileItem.filename)
|
|
|
|
File.Move(fileItem.FileUrl, ViewState("FUrl").ToString)
|
|
TxtArchivo.Text = tempArray(1)
|
|
|
|
Next
|
|
|
|
UPAFUL.Update()
|
|
|
|
RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1")
|
|
A1.Visible = True
|
|
If Not FileExtension = "-1" Then
|
|
BtnDescargar.Visible = True
|
|
End If
|
|
End Sub
|
|
Private Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
|
|
DescargarArchivo()
|
|
End Sub
|
|
Private Sub DescargarArchivo()
|
|
Dim File As New FileInfo(ViewState("FUrl").ToString)
|
|
|
|
If File.Exists Then 'set appropriate headers
|
|
Response.Clear()
|
|
Response.ClearHeaders()
|
|
Response.ClearContent()
|
|
Response.AddHeader("Content-Disposition", "attachment; filename=" & LbFolio.Text & ".pdf")
|
|
Response.AddHeader("Content-Length", File.Length.ToString())
|
|
'Response.ContentType = "text/plain"
|
|
Response.ContentType = "application/octet-stream"
|
|
Response.Flush()
|
|
' Response.TransmitFile(File.FullName)
|
|
Response.WriteFile(File.FullName)
|
|
Response.End()
|
|
'if file does not exist
|
|
|
|
Alert("Descargado Correctamente.", TipoMensaje.MsgInformacion)
|
|
Else
|
|
Alert("Ocurrio un error al descargar el archivo", TipoMensaje.MsgAdvertencia, "window.close()")
|
|
|
|
End If 'nothing in the URL as HTTP GET
|
|
End Sub
|
|
Protected Sub UpdateContrato(sender As Object, e As EventArgs)
|
|
Dim ArchivoUpdate As String = "-1"
|
|
|
|
If Session("FileExtension").ToString <> "" Then
|
|
ArchivoUpdate = "." & Session("FileExtension").ToString
|
|
Else
|
|
End If
|
|
|
|
Dim ObjContratos As New ClsContratos
|
|
ObjContratos.IniciaTransacSQL()
|
|
Try
|
|
If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservacion.Text) Then
|
|
Alert("Contrato actualizado correctamente")
|
|
End If
|
|
ObjContratos.Commit()
|
|
Catch ex As Exception
|
|
Alert("Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError)
|
|
ObjContratos.RollBack()
|
|
Finally
|
|
ObjContratos.Dispose()
|
|
AgregarABitacora($"Actualización del contrato {CveContrato}")
|
|
CargaDatos()
|
|
End Try
|
|
End Sub
|
|
Protected Sub EliminarContrato(sender As Object, e As EventArgs)
|
|
Dim ObjContratos As New ClsContratos
|
|
If (CveContratoTipo = 35) Then
|
|
If CveMasivo <> 0 Then
|
|
If ObjContratos.RemoveContrato(CveContrato, UsuarioActual.CveEmpresa, CveMasivo:=CveMasivo) Then
|
|
Alert("Viajes masivos eliminados correctamente")
|
|
AgregarABitacora($"Eliminación del contrato {CveContrato}")
|
|
|
|
ObjContratos.Dispose()
|
|
Response.Redirect("RepViajes.aspx")
|
|
End If
|
|
Else
|
|
If ObjContratos.RemoveContrato(CveContrato, UsuarioActual.CveEmpresa) Then
|
|
Alert("Viaje eliminado correctamente")
|
|
AgregarABitacora($"Eliminación de contratos masivos con clave {CveMasivo}")
|
|
|
|
ObjContratos.Dispose()
|
|
Response.Redirect("RepViajes.aspx")
|
|
End If
|
|
End If
|
|
Else
|
|
If ObjContratos.RemoveContrato(CveContrato, UsuarioActual.CveEmpresa) Then
|
|
Alert("Contrato eliminado correctamente")
|
|
ObjContratos.Dispose()
|
|
Response.Redirect("RepContratos.aspx")
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
Protected Sub ImprimirContrato(sender As Object, e As EventArgs)
|
|
Dim dtResult As New DataTable()
|
|
|
|
Dim params As New List(Of ReportParameter) From {
|
|
New ReportParameter("Folio", LbFolio.Text),
|
|
New ReportParameter("Cliente", DdlClientes.SelectedText),
|
|
New ReportParameter("Servicio", TxtDescripcion.Text),
|
|
New ReportParameter("Observaciones", TxtObservaciones.Text),
|
|
New ReportParameter("Ubicacion", TxtUbicacion.Text),
|
|
New ReportParameter("FechaSalida", TxtFechaSalida.Text.ToDate.ToString("dd/MM/yyyy")),
|
|
New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("dd/MM/yyyy")),
|
|
New ReportParameter("CantidadPasajeros", TxtCantidadPasajeros.Text),
|
|
New ReportParameter("TipoAF", DdlTipoAF.SelectedItem.ToString()),
|
|
New ReportParameter("Pesos", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString),
|
|
New ReportParameter("Moneda", DdlMoneda.SelectedItem.ToString),
|
|
New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal), 2).ToString),
|
|
New ReportParameter("Total", Math.Round((TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal)), 2).ToString),
|
|
New ReportParameter("DiaSalida", $"{TxtFechaSalida.Text.ToDate.Hour}:{TxtFechaSalida.Text.ToDate.Minute} "),
|
|
New ReportParameter("TelefonoEmpresa", TelefonoEmpresa),
|
|
New ReportParameter("FechaImpresion", Date.Now.ToString("dd/MM/yyyy HH:mm:ss")),
|
|
New ReportParameter("Usuario", UsuarioActual.Nombre)
|
|
}
|
|
|
|
ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:="Contrato")
|
|
End Sub
|
|
Protected Sub AgregarABitacora(Descripcion As String)
|
|
Dim ObjEventoBitacora As New ClsOIEventos
|
|
|
|
Dim FileExtension As String = "-1"
|
|
|
|
If ObjEventoBitacora.AddEventoBitacora(Descripcion, FileExtension, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then
|
|
Alert("Evento agregado a bitácora correctamente", TipoMensaje.MsgInformacion)
|
|
|
|
End If
|
|
ObjEventoBitacora.Dispose()
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Boletos"
|
|
Protected Sub OnLinkButtonClick(sender As Object, e As EventArgs)
|
|
'Limpiamos la selección anterior
|
|
If AsientoSeleccionado <> "" Then
|
|
Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder)
|
|
Dim lnk As LinkButton = CType(cph.FindControl(AsientoSeleccionado), LinkButton)
|
|
lnk.CssClass = "disponible"
|
|
End If
|
|
'Seleccionamos un asiento
|
|
Dim linkButton As LinkButton = DirectCast(sender, LinkButton)
|
|
Dim buttonID As String = linkButton.ID
|
|
linkButton.CssClass += " activo"
|
|
AsientoSeleccionado = buttonID
|
|
TxtAsiento.Text = buttonID.Substring(1)
|
|
|
|
UpTabContainer.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalEditar"))
|
|
End Sub
|
|
Protected Sub UpdateBoleto(sender As Object, e As EventArgs)
|
|
|
|
|
|
If PnEditarViaje.Visible = True Then
|
|
For Each boleto As DataRow In ViajeActual.Rows
|
|
If (boleto.Item("Asiento").ToString = TxtAsiento.Text) Then
|
|
Alert($"El asiento {boleto.Item("Asiento")} ya ha está ocupado", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
Dim ObjTransportes As New ClsTransportes
|
|
|
|
Try
|
|
ObjTransportes.IniciaTransacSQL()
|
|
|
|
If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, DdlRuta.SelectedValue.ToEntero, UsuarioActual.CveVendedor, LbImporte.Text.ToDecimal, TxtAsiento.Text.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, TxtObservacion.Text, CBool(TxtEstatus.Text), UsuarioActual.CveUsuario, CBool(RblSexo.SelectedValue)) Then
|
|
ObjTransportes.Commit()
|
|
End If
|
|
Catch ex As ArgumentException
|
|
Alert($"Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError)
|
|
ObjTransportes.RollBack()
|
|
Finally
|
|
Alert("Su asiento fue actualizado correctamente")
|
|
AgregarABitacora($"Cambio de asiento del pasajero {CveViajePasajero} del asiento al {TxtAsiento.Text} del contrato {CveContrato}")
|
|
|
|
ObjTransportes.Dispose()
|
|
|
|
End Try
|
|
|
|
CargaDatos()
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalEditar"))
|
|
End Sub
|
|
Protected Sub OnChangeRuta(sender As Object, e As EventArgs)
|
|
Dim ObjTransportes As New ClsTransportes
|
|
|
|
If ObjTransportes.GetViajesPasajeros(DdlRuta.SelectedValue.ToEntero) Then
|
|
BusquedaSeleccionada(ObjTransportes.DtResultados)
|
|
End If
|
|
ObjTransportes.Dispose()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalEditar"))
|
|
End Sub
|
|
Protected Sub BusquedaSeleccionada(dt As DataTable)
|
|
'Limpiamos autobus
|
|
Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder)
|
|
|
|
For i As Integer = 1 To 50
|
|
Dim lnk As LinkButton = CType(cph.FindControl($"A{i}"), LinkButton)
|
|
If lnk IsNot Nothing Then
|
|
lnk.Enabled = True
|
|
lnk.CssClass = "disponible"
|
|
End If
|
|
Next
|
|
'Si la dt DataTable tiene algo llenamos los asientos
|
|
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
|
For Each dr As DataRow In dt.Rows
|
|
Dim lnk As LinkButton = CType(cph.FindControl($"A{dr("Asiento")}"), LinkButton)
|
|
|
|
If lnk IsNot Nothing Then
|
|
lnk.Enabled = False
|
|
lnk.CssClass = "nodisponible"
|
|
lnk.ToolTip = dr("Nombre").ToString
|
|
End If
|
|
Next
|
|
End If
|
|
UpTabContainer.Update()
|
|
|
|
ViajeActual = dt
|
|
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", SubProyecto),
|
|
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, 2).ToString),
|
|
New ReportParameter("TipoBoleto", "Tipo Boleto"),
|
|
New ReportParameter("Agencia", "Agencia"),
|
|
New ReportParameter("TelefonoAgencia", "TelefonoAgencia"),
|
|
New ReportParameter("Asiento", GvRow.DataKey("Asiento"))
|
|
}
|
|
|
|
ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Boleto.mrt", dtResult, params, NombreArchivo:="Boleto")
|
|
End Sub
|
|
Protected Sub GvViajesPasajeros_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("BtnImprimir"))
|
|
End If
|
|
End Sub
|
|
Protected Sub EditarBoleto(sender As Object, e As EventArgs)
|
|
PnEditarUsuario.Visible = True
|
|
PnEditarViaje.Visible = False
|
|
PnAsientos.Visible = False
|
|
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
|
|
CveViajePasajero = GvRow.DataKey("CveViajePasajero").ToEntero
|
|
DdlRuta.SelectedValue = GvRow.DataKey("CveViaje")
|
|
LbPartida.Text = GvRow.DataKey("Partida").ToString()
|
|
LbDestino.Text = GvRow.DataKey("Destino").ToString()
|
|
LbImporte.Text = Convert.ToDecimal(GvRow.DataKey("Importe")).ToString("C")
|
|
TxtNombre.Text = GvRow.DataKey("Nombre").ToString()
|
|
TxtVisa.Text = GvRow.DataKey("Visa").ToString()
|
|
TxtCelular.Text = GvRow.DataKey("Celular").ToString()
|
|
RblSexo.SelectedValue = If(CBool(GvRow.DataKey("Sexo").ToString), "1", "0")
|
|
TxtObservacion.Text = GvRow.DataKey("Observacion").ToString()
|
|
LbEstatus.Text = If(CBool(GvRow.DataKey("Estatus").ToString), "Activo", "Cancelado")
|
|
TxtEstatus.Text = GvRow.DataKey("Estatus").ToString
|
|
LbEstatus.CssClass = If(CBool(GvRow.DataKey("Estatus").ToString), "text-success bold", "text-danger bold")
|
|
TxtAsiento.Text = GvRow.DataKey("Asiento").ToString()
|
|
|
|
UpTabContainer.Update()
|
|
UpModal.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalEditar"))
|
|
|
|
End Sub
|
|
Protected Sub CambiarBoleto(sender As Object, e As EventArgs)
|
|
PnEditarViaje.Visible = True
|
|
PnEditarUsuario.Visible = False
|
|
PnAsientos.Visible = True
|
|
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
|
|
CveViajePasajero = GvRow.DataKey("CveViajePasajero").ToEntero
|
|
LbPartida.Text = GvRow.DataKey("Partida").ToString()
|
|
LbDestino.Text = GvRow.DataKey("Destino").ToString()
|
|
LbImporte.Text = Convert.ToDecimal(GvRow.DataKey("Importe")).ToString("C")
|
|
TxtNombre.Text = GvRow.DataKey("Nombre").ToString()
|
|
TxtVisa.Text = GvRow.DataKey("Visa").ToString()
|
|
TxtCelular.Text = GvRow.DataKey("Celular").ToString()
|
|
RblSexo.SelectedValue = If(CBool(GvRow.DataKey("Sexo").ToString), "1", "0")
|
|
TxtObservacion.Text = GvRow.DataKey("Observacion").ToString()
|
|
LbEstatus.Text = GvRow.DataKey("Estatus").ToString()
|
|
LbCreado.Text = GvRow.DataKey("FechaIng").ToString()
|
|
TxtAsiento.Text = GvRow.DataKey("Asiento").ToString()
|
|
|
|
'Seleccionamos la ruta que tiene el usuario actual
|
|
DdlRuta.ClearSelection()
|
|
Dim ObjContratos As New ClsContratos
|
|
If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, MinFecha, MaxFecha, -1, CveEstatus:=-1, CveTipoContrato:=35) Then
|
|
For Each row As DataRow In ObjContratos.DtResultados.Rows
|
|
Dim fecha As DateTime = row("FechaInicial").ToString.ToDateTime
|
|
'Asigna los valores de la columna deseada al ListItem
|
|
Dim listItem As New ListItem(row("SubProyecto").ToString() + " - " + fecha.ToShortDateString + " - " + fecha.ToShortTimeString, row("CveContrato").ToString())
|
|
'Agrega el ListItem al DropDownList
|
|
DdlRuta.Items.Add(listItem)
|
|
Next
|
|
End If
|
|
DdlRuta.SelectedValue = GvRow.DataKey("CveViaje")
|
|
ObjContratos.Dispose()
|
|
UpTabContainer.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalEditar"))
|
|
End Sub
|
|
Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
CveViajePasajero = GvRow.DataKey("CveViajePasajero").ToEntero
|
|
LbPartida.Text = GvRow.DataKey("Partida").ToString()
|
|
LbDestino.Text = GvRow.DataKey("Destino").ToString()
|
|
LbImporte.Text = Convert.ToDecimal(GvRow.DataKey("Importe")).ToString("C")
|
|
TxtNombre.Text = GvRow.DataKey("Nombre").ToString()
|
|
TxtVisa.Text = GvRow.DataKey("Visa").ToString()
|
|
TxtCelular.Text = GvRow.DataKey("Celular").ToString()
|
|
RblSexo.SelectedValue = If(CBool(GvRow.DataKey("Sexo").ToString), "1", "0")
|
|
TxtObservacion.Text = GvRow.DataKey("Observacion").ToString()
|
|
TxtEstatus.Text = GvRow.DataKey("Estatus").ToString()
|
|
LbCreado.Text = GvRow.DataKey("FechaIng").ToString()
|
|
TxtAsiento.Text = GvRow.DataKey("Asiento").ToString()
|
|
Dim Estatus As Boolean = Not CBool(TxtEstatus.Text)
|
|
Dim ObjTransportes As New ClsTransportes
|
|
Try
|
|
ObjTransportes.IniciaTransacSQL()
|
|
|
|
If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, CveContrato, UsuarioActual.CveVendedor, LbImporte.Text.ToDecimal, TxtAsiento.Text.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, TxtObservacion.Text, Estatus, UsuarioActual.CveUsuario, CBool(RblSexo.SelectedValue)) Then
|
|
Alert("Se ha modificado el estatus de su boleto correctamente.")
|
|
|
|
ObjTransportes.Commit()
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
ObjTransportes.RollBack()
|
|
Alert($"No se pudo cambiar el estatus del boleto", TipoMensaje.MsgError)
|
|
Finally
|
|
ObjTransportes.Dispose()
|
|
Dim toggleEstatus As String
|
|
If CBool(RblSexo.SelectedValue) Then
|
|
toggleEstatus = "Cancelación"
|
|
Else
|
|
toggleEstatus = "Reactivación"
|
|
|
|
End If
|
|
AgregarABitacora($"{toggleEstatus} del asiento {TxtAsiento.Text} del viaje {CveContrato} con clave de pasajero {CveViajePasajero}")
|
|
|
|
CargaDatos()
|
|
End Try
|
|
UpPasajeros.Update()
|
|
End Sub
|
|
#End Region
|
|
|
|
End Class
|
|
|
|
|