Correciones SMS

Compras/Compras.aspx.vb

@@ -6,7 +6,6 @@ Imports System.Xml
 Imports System.Diagnostics
 Imports System.Globalization
 Imports System.IO
-Imports System.IO
 Imports System.Threading.Tasks
 Imports Newtonsoft.Json
 Imports Extensiones
@@ -20748,14 +20747,16 @@ Partial Class Compras_Compras
     Public Function ValidaPresupuesto(Opcion As Integer, Optional ValCveSubProyecto As Integer = -1, Optional ValSubProyecto As String = "", Optional ValCveClasificacion As Integer = -1, Optional ValClasificacion As String = "",
                                       Optional ValCveTipoGasto As Integer = -1, Optional ValTipoGasto As String = "", Optional ValImporte As Decimal = 0) As Boolean
 
+
         Dim respuesta As Boolean = False
 
-        If DdlTipoComprobante.SelectedValue <> "Fac" Then
-            Return True
-        End If
 
         If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
 
+            If Opcion = 1 Or OCVinculada Or DdlTipoComprobante.SelectedValue <> "Fac" Then
+                Return True
+            End If
+
             Dim ObjCon As New ClsContratos
             Dim CvePresupuesto As Integer = 0
             Dim Autorizado As Double = 0