diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 620f20dba..b2fb377a3 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -9051,8 +9051,7 @@ Partial Class OC_OC
 
         Dim respuesta As Boolean = False
 
-        'If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
-        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+        If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
 
             Dim ObjCon As New ClsContratos
             Dim CvePresupuesto As Integer = 0
@@ -9062,7 +9061,7 @@ Partial Class OC_OC
 
             If ObjCon.GetPresupuestosResumen(UsuarioActual.CveEmpresa, -1, FechaCompra.FirstDayOfMonth, FechaCompra.LastDayOfMonth, 2) Then
                 Dim ColumnaSaldo As String = "Saldo"
-                If UsuarioActual.CveEmpresa.Contiene(13, 83) Then ColumnaSaldo = "SalodComprometido"
+                If UsuarioActual.CveEmpresa.Contiene(13, 83) Then ColumnaSaldo = "SaldoComprometido"
                 Dim resultadosFiltrados = From row In ObjCon.DtResultados.AsEnumerable()
                                           Select row
 
@@ -9125,14 +9124,14 @@ Partial Class OC_OC
                                     Dim Diferencia As Decimal = saldoTotal - item.TotalSum
 
                                     If (Diferencia) < 0 Then
-                                        Alert($"No hay presupuesto disponible en el subproyecto <b>{item.SubProyecto}</b> con la clasificación <b>{item.Clasificacion}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
+                                        Alert($"No hay presupuesto disponible en: <br/> Subproyecto <b>{item.SubProyecto}</b> con la clasificación <b>{item.Clasificacion}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
                                         respuesta = False
                                         Exit For
                                     Else
                                         respuesta = True
                                     End If
                                 Else
-                                    Alert($"No hay presupuesto disponible en el subproyecto <b>{item.SubProyecto}</b> con la clasificación <b>{item.Clasificacion}</b>.", TipoMensaje.MsgAdvertencia)
+                                    Alert($"No hay presupuesto disponible en: <br/> Subproyecto <b>{item.SubProyecto}</b> con la clasificación <b>{item.Clasificacion}</b>.", TipoMensaje.MsgAdvertencia)
                                     respuesta = False
                                     Exit For
                                 End If