Merge branch 'master' of http://192.168.10.111:8383/SIG

Transportes/Boletos.aspx.vb

@@ -47,10 +47,10 @@ Partial Class Boletos
             AsientoSeleccionado = ""
             CveRuta = 0
             CveViaje = Request.QueryString("CveViaje").ToEntero
-            If CveViaje > 0 Then
-                InicializaCombos()
-                CargaDatos()
-            End If
+
+            DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
+            CargaDatos()
+            InicializaCombos()
 
         End If
     End Sub
@@ -126,16 +126,14 @@ Partial Class Boletos
     End Sub
 
     Protected Sub OnLinkButtonClick(sender As Object, e As EventArgs)
-        'quitamos la selección anterior, en caso de existir.
+        Dim linkButton As LinkButton = DirectCast(sender, LinkButton)
+        Dim buttonID As String = linkButton.ID
+        linkButton.CssClass += " activo"
         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
-
-        Dim linkButton As LinkButton = DirectCast(sender, LinkButton)
-        Dim buttonID As String = linkButton.ID
-        linkButton.CssClass += " activo"
         AsientoSeleccionado = buttonID
     End Sub
     Protected Sub AddBoleto(sender As Object, e As EventArgs)
@@ -154,13 +152,13 @@ Partial Class Boletos
 
             If retorno > 1 Then
                 ObjTransporte.Commit()
-                Alert("El Boleto se ha registrado. ", TipoMensaje.MsgInformacion)
+                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()