--Se agregó el listado de boletos a los viajes que fuera de ruta.

Transportes/Boletos.aspx.vb

@@ -70,7 +70,22 @@ Partial Class Boletos
         TxtRuta.Text = Contrato.Rows(0)("Ruta").ToString
         TxtFecha.Text = Contrato.Rows(0)("FechaInicial").ToString
 
+        Dim ObjViaje As New ClsTransportes
 
+        'Boletos Vendidos
+        Dim dt As DataTable
+        If ObjViaje.GetViajesPasajeros(CveViaje, Estatus:=1) Then 'Poner párametro para estatus y cancelado de viajes
+            dt = ObjViaje.DtResultados
+            Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder)
+            For Each dr As DataRow In dt.Rows
+                Dim lnk As LinkButton = CType(cph.FindControl($"A{dr("Asiento")}"), LinkButton)
+                If lnk IsNot Nothing Then
+                    lnk.Enabled = False
+                    lnk.CssClass = "nodisponible"
+                    lnk.ToolTip = dr("Nombre").ToString
+                End If
+            Next
+        End If
     End Sub
 
     Protected Sub InicializaCombos()