From 0e1026924be9bb4a0cf480f3d7bc30aeb0c89859 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 26 Jan 2022 12:13:55 -0700
Subject: [PATCH] =?UTF-8?q?--=20autorizaci=C3=B3n=20de=20limites=20de=20NC?=
 =?UTF-8?q?,=20que=20considere=20importe?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9e23c5112..9508b8103 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -26934,7 +26934,10 @@ Partial Class Ventas
                     If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Egs", CveEstatus:=1) Then
                         Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion")
                         If RowAutorizacion IsNot Nothing Then
-                            Verificacion = True
+                            Dim ImporteAutorizacion As Decimal = RowAutorizacion("Importe").ToString().ToDecimal()
+                            If ImporteAutorizacion > TxtTotalGv.Text.ToDecimal Then
+                                Verificacion = True
+                            End If
                         End If
                     End If
                     ObjVentas.Dispose()