--Se arregló el PA_Trans_ViajesPasajerosAdd

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

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

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()