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

Transportes/Boletos.aspx.vb

@@ -107,7 +107,22 @@ Partial Class Boletos
         ObjContratos.Dispose()
         ObjViaje.Dispose()
 
+        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()