From 8ea3861e0e1c89d3c17947c5edf666abc8265e43 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 13 May 2024 18:38:00 -0700
Subject: [PATCH] OC.aspx, validar presupuesto con el valor del concepto 154

---
 OC/OC.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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