-

Transportes/Boletos.aspx.vb

@@ -65,7 +65,7 @@ Partial Class Boletos
             TxtFecha.Text = ObjViaje.Fecha.ToShortDateString
             'Boletos Vendidos
             Dim dt As DataTable
-            If ObjViaje.GetViajesPasajeros(CveViaje) Then
+            If ObjViaje.GetViajesPasajeros(CveViaje, Estatus:=True) 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
@@ -138,7 +138,6 @@ Partial Class Boletos
         linkButton.CssClass += " activo"
         AsientoSeleccionado = buttonID
     End Sub
-
     Protected Sub AddBoleto(sender As Object, e As EventArgs)
 
         If AsientoSeleccionado = "" Then
@@ -151,7 +150,7 @@ Partial Class Boletos
 
         Try
             AsientoSeleccionado = AsientoSeleccionado.Replace("A", "")
-            Dim retorno As Integer = ObjTransporte.AddViajePasajeros(CveViaje, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, Importe, AsientoSeleccionado.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text, UsuarioActual.CveUsuario)
+            Dim retorno As Integer = ObjTransporte.AddViajesPasajeros(CveViaje, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, Importe, AsientoSeleccionado.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text, UsuarioActual.CveUsuario)
 
             If retorno > 1 Then
                 ObjTransporte.Commit()