diff --git a/Ventas/CatPreciosLista.aspx.vb b/Ventas/CatPreciosLista.aspx.vb
index d71056c60..ea79b3b4f 100644
--- a/Ventas/CatPreciosLista.aspx.vb
+++ b/Ventas/CatPreciosLista.aspx.vb
@@ -59,19 +59,21 @@ Partial Class Ventas_CatPreciosLista
         Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow)
         TxtPrecioLista.Text = GvRow.DataKey("PrecioLista").ToString
         ChkPredeterminada.Checked = GvRow.DataKey("Predeterminada") = "True"
-        chkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
-        ChkRestringida.Checked = CBool(GvRow.DataKey("Restringuida"))
+        chkEstatus.Checked = GvRow.DataKey("Estatus") = "True"
+        ChkRestringida.Checked = GvRow.DataKey("Restringuida") = "True"
 
         EsEditar = 1
         BtnAgregarCatalogo.Text = "Actualizar"
         dvEstatus.Visible = True
 
-        Using ObjVenta As New ClsVentas
-            If ObjVenta.GetPreciosListasSubProyecto(CvePrecioLista, UsuarioActual.CveEmpresa) Then
-                GvSubProyectos.DataSource = ObjVenta.DtResultados.Copy()
-            End If
-        End Using
-        GvSubProyectos.DataBind()
+        If divSP.Visible Then
+            Using ObjVenta As New ClsVentas
+                If ObjVenta.GetPreciosListasSubProyecto(CvePrecioLista, UsuarioActual.CveEmpresa) Then
+                    GvSubProyectos.DataSource = ObjVenta.DtResultados.Copy()
+                End If
+            End Using
+            GvSubProyectos.DataBind()
+        End If
 
         UpBodyCo.Update()
         UpFooter.Update()