diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb
index fae2d1f41..53b099b94 100644
--- a/Bancos/PagoElectronicoGrupos.aspx.vb
+++ b/Bancos/PagoElectronicoGrupos.aspx.vb
@@ -8,8 +8,7 @@ Imports Ionic.Zip
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Bancos_PagoElectronicoGrupos
-    Inherits ClsPaginas
-    Private Shared missing As Object = System.Reflection.Missing.Value
+    Inherits ClsPaginas
 
 #Region "PROPIEDADES"
     Private Property HeaderTexto As String
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index fc407b4a6..a532870b4 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -20933,7 +20933,7 @@ Partial Class Compras_Compras
         Dim respuesta As Boolean = False
 
 
-        If UsuarioActual.Empresa.Funcionalidad(532).Contiene("1", "2") Then
+        If UsuarioActual.Empresa.Funcionalidad(532).Contiene("1") Then
 
             If Opcion = 1 Or OCVinculada Or DdlTipoComprobante.SelectedValue <> "Fac" Then
                 Return True
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 419e71f4c..5738eb65c 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -4237,7 +4237,7 @@ Partial Class OC_OC
             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)
+                    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