Merge branch 'master' of http://192.168.10.111:8383/SIG

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

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

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