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

Compras/Compras.aspx.vb

@@ -20756,14 +20756,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