From 2914fe04e03f9ad34187969117c6ff46cca18dca Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 22 May 2024 05:35:01 -0700
Subject: [PATCH] -- utilizar la FNC 532

---
 OC/OC.aspx.vb | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

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