diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 4dbb0e04f..c30cfc4bb 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -3464,7 +3464,6 @@ Partial Class Inventarios_EntradasSalidas
             DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
         End If
 
-
         If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
             TrSubProyectoActivoFijo.Visible = True
             CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Seleccione Uno")
@@ -3473,6 +3472,11 @@ Partial Class Inventarios_EntradasSalidas
             CargaCultivos()
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'citrícola
+            TrSubProyectoActivoFijo.Visible = True
+            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Seleccione Uno")
+        End If
+
 
         TrActivoFijo.Visible = True
         DdlActivoFijo.Items.Clear()