OC.aspx, validar presupuesto con el valor del concepto 154

2024-05-13 18:38:00 -07:00
parent ab93b92255
commit 8ea3861e0e
1 changed files with 2 additions and 1 deletions
--- 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