diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb
index 3df377a95..959ac61db 100644
--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/Planeacion/CatSubProyectos.aspx.vb
@@ -93,7 +93,7 @@ Partial Class CatSubProyectos
             End If
             BtnGuardar.OnClientClick = $"ValidaGuardar();"
 
-            If UsuarioActual.Empresa.Funcionalidad(404) = "20" Then
+            If UsuarioActual.Empresa.Funcionalidad(404).Contiene("10", "20") Then
                 DVModalPrecioLista.Visible = True
             End If