From e8cbfccd2b83f406e5ac8ebd2d6258993615e75b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 14 Apr 2023 06:31:36 -0700
Subject: [PATCH] =?UTF-8?q?--=20impuestos=20locale,=20que=20tome=20los=20d?=
 =?UTF-8?q?e=20la=20venta=20si=20ya=20est=C3=A1=20registrada?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f558af84c..bfdce5be8 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6705,7 +6705,7 @@ Partial Class Ventas
                     CargaDatosEstimaciones(CveCliente)
                 End If
 
-                If ObjCliente.GetClienteImpuestosLocales(CveCliente) Then
+                If ObjCliente.GetClienteImpuestosLocales(CveCliente) AndAlso CveVenta <= 0 Then
                     'se cargan impuestos locales
                     Dim DtClienteImpuesto As DataTable = ObjCliente.DtResultados.FiltraParametros("Seleccionado = 1", "Orden")