-- cambios visuales

Transportes/Boletos.aspx.vb

@@ -47,10 +47,10 @@ Partial Class Boletos
             AsientoSeleccionado = ""
             CveRuta = 0
             CveViaje = Request.QueryString("CveViaje").ToEntero
-
-            DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
-            CargaDatos()
-            InicializaCombos()
+            If CveViaje > 0 Then
+                InicializaCombos()
+                CargaDatos()
+            End If
 
         End If
     End Sub
@@ -126,10 +126,17 @@ Partial Class Boletos
     End Sub
 
     Protected Sub OnLinkButtonClick(sender As Object, e As EventArgs)
+        'quitamos la selección anterior, en caso de existir.
+        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"
-        ViewState("AsientoSeleccionado") = buttonID
+        AsientoSeleccionado = buttonID
     End Sub
 
     Protected Sub AddBoleto(sender As Object, e As EventArgs)
@@ -148,6 +155,7 @@ Partial Class Boletos
 
             If retorno > 1 Then
                 ObjTransporte.Commit()
+                Alert("El Boleto se ha registrado. ", TipoMensaje.MsgInformacion)
             End If
         Catch ex As Exception
             Alert($"No se pudo generar el boleto {ex}", TipoMensaje.MsgError)