--Se cambió de posición CargarDatos() e InicializaCombos() para obtener la clave de la ruta y poder cargar los destinos apropiados para cada ruta

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
+                CargaDatos()
+                InicializaCombos()
+            End If
 
         End If
     End Sub
@@ -126,14 +126,16 @@ Partial Class Boletos
     End Sub
 
     Protected Sub OnLinkButtonClick(sender As Object, e As EventArgs)
-        Dim linkButton As LinkButton = DirectCast(sender, LinkButton)
-        Dim buttonID As String = linkButton.ID
-        linkButton.CssClass += " activo"
+        '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"
         AsientoSeleccionado = buttonID
     End Sub
     Protected Sub AddBoleto(sender As Object, e As EventArgs)
@@ -152,7 +154,6 @@ 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)