diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb index 46f930bfe..e235fd5b6 100644 --- a/App_Code/ClsTransportes.vb +++ b/App_Code/ClsTransportes.vb @@ -244,7 +244,7 @@ Public Class ClsTransportes Public Function AddViajesPasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer) As Integer Dim Retorno As Integer = -1 - DataAdapter("PA_Trans_ViajesAdd") + DataAdapter("PA_Trans_ViajesPasajerosAdd") With SqlAdapter.SelectCommand.Parameters .Add("@CveViajePasajero", SqlDbType.Int).Direction = ParameterDirection.Output diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 05c479d40..178694777 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -152,12 +152,13 @@ Partial Class Boletos If retorno > 1 Then ObjTransporte.Commit() + Alert("Boleto creado correctamente.") End If Catch ex As Exception Alert($"No se pudo generar el boleto {ex}", TipoMensaje.MsgError) Finally ObjTransporte.Dispose() - + Response.Redirect($"/Transportes/Boletos.aspx?CveViaje={CveViaje}") End Try End Sub diff --git a/Transportes/ListadoBoletos.aspx.vb b/Transportes/ListadoBoletos.aspx.vb index dad0c525d..96899cc76 100644 --- a/Transportes/ListadoBoletos.aspx.vb +++ b/Transportes/ListadoBoletos.aspx.vb @@ -51,7 +51,13 @@ Partial Class ListadoBoletos Try ObjTransportes.IniciaTransacSQL() If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero.ToEntero, Activar:=True, Estatus:=cambiarEstatus) Then - Alert("El boleto ha sido cancelado correctamente.") + + If cambiarEstatus Then + Alert($"El boleto ha sido cancelado correctamente.") + Else + Alert($"El boleto ha sido reactivado correctamente.") + + End If End If ObjTransportes.Commit()