From 1d164229631338e2fdbcd380cf9382a59b41ce29 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 5 Aug 2024 09:46:21 -0700
Subject: [PATCH 1/3] -- no validar el presupeusto ,si tiene valor ="2"

---
 Compras/Compras.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

From c5d9c8f26473873973a9e84209944e969a431667 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 5 Aug 2024 16:19:40 -0700
Subject: [PATCH 2/3] -- MEJORA TEXTO

---
 OC/OC.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

From e1059dc20f830f1909771d2191af4080b17fd647 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 5 Aug 2024 16:19:58 -0700
Subject: [PATCH 3/3] =?UTF-8?q?--=20quit=C3=B3=20objeto=20missing?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/PagoElectronicoGrupos.aspx.vb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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