diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 5738eb65c..c670ce3dc 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -3572,7 +3572,7 @@ Partial Class OC_OC
 
             End If
 
-            If UsuarioActual.Empresa.Funcionalidad(532).Contiene("1", "2") Then
+            If UsuarioActual.Empresa.Funcionalidad(532).Contiene("2") Then
 
                 If Not GeneraPrePolizaPresupuesto(objOrdenCompra.CveOrdenCompra, objOrdenCompra.IniciaTransacSQL) Then
                     HuboError = True
@@ -3736,7 +3736,7 @@ Partial Class OC_OC
                 TieneError = True
             End If
 
-            If (UsuarioActual.Empresa.Funcionalidad(532).Contiene("1", "2")) Then
+            If (UsuarioActual.Empresa.Funcionalidad(532).Contiene("2")) Then
                 GeneraPrePolizaPresupuesto(CveOrdenCompra, objOrdenCompra.IniciaTransacSQL, EsCancelacion:=True)
             End If
 
@@ -4234,13 +4234,13 @@ Partial Class OC_OC
             End If
             ObjCon.Dispose()
 
-            If CvePresupuesto > 0 And Autorizado > 0 Then
-                Dim Diferencia As Decimal = (Ejercido + Total) - Autorizado
-                If Diferencia > 0 Then
-                    Alert($"No hay presupuesto disponible:<br/> - Subproyecto <b>{SubProyecto}</b> <br/> - Clasificación <b>{Clasificacion}</b> <br/> se excede por <b>{Diferencia.FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
-                End If
-            End If
+            'If CvePresupuesto > 0 And Autorizado > 0 Then
+            '    Dim Diferencia As Decimal = (Ejercido + Total) - Autorizado
+            '    If Diferencia > 0 Then
+            '        Alert($"No hay presupuesto disponible en el subproyecto <b>{SubProyecto}</b> y la clasificación <b>{Clasificacion}</b> se excede por <b>{Diferencia.FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
+            '        Exit Sub
+            '    End If
+            'End If
         End If
 
                 'Agarra el nuevo AF si se modifico o deja el pasado
@@ -9218,7 +9218,7 @@ Partial Class OC_OC
 
         Dim Respuesta As Boolean = True
 
-        If UsuarioActual.Empresa.Funcionalidad(532).Contiene("1", "2") Then
+        If UsuarioActual.Empresa.Funcionalidad(532).Contiene("2") Then
 
             Dim CveMonedaPresupuesto As Integer = DdlMoneda.SelectedValue.ToEntero
             Dim TC As Decimal = If(CveMonedaPresupuesto = 1, 1, GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal)