diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb
index 0e1379e8c..d46b13d25 100644
--- a/Transportes/Boletos.aspx.vb
+++ b/Transportes/Boletos.aspx.vb
@@ -65,9 +65,11 @@ Partial Class Boletos
                 Response.Redirect("/Transportes/RepViajes.aspx")
             End If
             AsientoSeleccionado = ""
-            CveViaje = Request.QueryString("CveViaje").ToEntero
+            CveViaje = IfNull(Request("CveViaje"), "0").ToString.ToEntero
             If CveViaje > 0 Then
                 CargaDatos()
+            Else
+                Alert("Viaje no definido")
             End If
 
         End If
diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index 63702d640..ab2c8e5b9 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -108,7 +108,7 @@ Partial Class RepContratoDetalle
     End Sub
     Private Sub InicializaCombos()
         'Lista Tipo AF
-        DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
+        DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
         DdlTipoAF.DataBind()
         DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
     End Sub
@@ -318,7 +318,7 @@ Partial Class RepContratoDetalle
         Try
             ObjTransportes.IniciaTransacSQL()
 
-            If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, DdlRuta.SelectedValue.ToEntero, UsuarioActual.CveVendedor, LbImporte.Text.ToDecimal, TxtAsiento.Text.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, TxtObservacion.Text, TxtEstatus.Text.ToBool, UsuarioActual.CveUsuario, RblSexo.SelectedValue.ToBool) Then
+            If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, DdlRuta.SelectedValue.ToEntero, UsuarioActual.CveVendedor, LbImporte.Text.ToDecimal, TxtAsiento.Text.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, TxtObservacion.Text, CBool(TxtEstatus.Text), UsuarioActual.CveUsuario, CBool(RblSexo.SelectedValue)) Then
                 ObjTransportes.Commit()
             End If
         Catch ex As ArgumentException
@@ -339,7 +339,7 @@ Partial Class RepContratoDetalle
         If ObjTransportes.GetViajesPasajeros(DdlRuta.SelectedValue.ToEntero) Then
             BusquedaSeleccionada(ObjTransportes.DtResultados)
         End If
-
+        ObjTransportes.Dispose()
         RegistraScript(String.Format("$('#{0}').modal('show');", "ModalEditar"))
     End Sub
     Protected Sub BusquedaSeleccionada(dt As DataTable)
@@ -414,11 +414,11 @@ Partial Class RepContratoDetalle
         TxtNombre.Text = GvRow.DataKey("Nombre").ToString()
         TxtVisa.Text = GvRow.DataKey("Visa").ToString()
         TxtCelular.Text = GvRow.DataKey("Celular").ToString()
-        RblSexo.SelectedValue = If(GvRow.DataKey("Sexo").ToString.ToBool, "1", "0")
+        RblSexo.SelectedValue = If(CBool(GvRow.DataKey("Sexo").ToString), "1", "0")
         TxtObservacion.Text = GvRow.DataKey("Observacion").ToString()
-        LbEstatus.Text = If(GvRow.DataKey("Estatus").ToString.ToBool, "Activo", "Cancelado")
+        LbEstatus.Text = If(CBool(GvRow.DataKey("Estatus").ToString), "Activo", "Cancelado")
         TxtEstatus.Text = GvRow.DataKey("Estatus").ToString
-        LbEstatus.CssClass = If(GvRow.DataKey("Estatus").ToString.ToBool, "text-success bold", "text-danger bold")
+        LbEstatus.CssClass = If(CBool(GvRow.DataKey("Estatus").ToString), "text-success bold", "text-danger bold")
         TxtAsiento.Text = GvRow.DataKey("Asiento").ToString()
 
         UpTabContainer.Update()
@@ -440,7 +440,7 @@ Partial Class RepContratoDetalle
         TxtNombre.Text = GvRow.DataKey("Nombre").ToString()
         TxtVisa.Text = GvRow.DataKey("Visa").ToString()
         TxtCelular.Text = GvRow.DataKey("Celular").ToString()
-        RblSexo.SelectedValue = If(GvRow.DataKey("Sexo").ToString.ToBool, "1", "0")
+        RblSexo.SelectedValue = If(CBool(GvRow.DataKey("Sexo").ToString), "1", "0")
         TxtObservacion.Text = GvRow.DataKey("Observacion").ToString()
         LbEstatus.Text = GvRow.DataKey("Estatus").ToString()
         LbCreado.Text = GvRow.DataKey("FechaIng").ToString()
@@ -472,17 +472,17 @@ Partial Class RepContratoDetalle
         TxtNombre.Text = GvRow.DataKey("Nombre").ToString()
         TxtVisa.Text = GvRow.DataKey("Visa").ToString()
         TxtCelular.Text = GvRow.DataKey("Celular").ToString()
-        RblSexo.SelectedValue = If(GvRow.DataKey("Sexo").ToString.ToBool, "1", "0")
+        RblSexo.SelectedValue = If(CBool(GvRow.DataKey("Sexo").ToString), "1", "0")
         TxtObservacion.Text = GvRow.DataKey("Observacion").ToString()
         TxtEstatus.Text = GvRow.DataKey("Estatus").ToString()
         LbCreado.Text = GvRow.DataKey("FechaIng").ToString()
         TxtAsiento.Text = GvRow.DataKey("Asiento").ToString()
-        Dim Estatus As Boolean = Not TxtEstatus.Text.ToBool
+        Dim Estatus As Boolean = Not CBool(TxtEstatus.Text)
         Dim ObjTransportes As New ClsTransportes
         Try
             ObjTransportes.IniciaTransacSQL()
 
-            If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, CveContrato, UsuarioActual.CveVendedor, LbImporte.Text.ToDecimal, TxtAsiento.Text.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, TxtObservacion.Text, Estatus, UsuarioActual.CveUsuario, RblSexo.SelectedValue.ToBool) Then
+            If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, CveContrato, UsuarioActual.CveVendedor, LbImporte.Text.ToDecimal, TxtAsiento.Text.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, TxtObservacion.Text, Estatus, UsuarioActual.CveUsuario, CBool(RblSexo.SelectedValue)) Then
                 Alert("Se ha modificado el estatus de su boleto correctamente.")
 
                 ObjTransportes.Commit()
diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb
index 3a840531b..a56d3dd91 100644
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -145,9 +145,10 @@ Partial Class ListadoContratos
 
         If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, CveSubProyecto:=DdlCentroCostos.SelectedValue.ToEntero, CveTipoAF:=DdlTipoUnidad.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero) Then
             GvContratos.DataSource = ObjContratos.DtResultados
-            GvContratos.DataBind()
+
         End If
         ObjContratos.Dispose()
+        GvContratos.DataBind()
 
         UpTitulos.Update()
     End Sub
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index 56f473f1a..e6d9bd88d 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -182,6 +182,7 @@ Partial Class RepContratosCalendario
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
         End If
+        ObjContratos.Dispose()
     End Sub
 
 End Class