diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 55c3c1330..40d6360bd 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -9034,7 +9034,8 @@ Partial Class OC_OC
 
         Dim respuesta As Boolean = False
 
-        If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
+        'If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
+        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
 
             Dim ObjCon As New ClsContratos
             Dim CvePresupuesto As Integer = 0