From 59611c12e7e6aa26ec52ed23c1bafea016a290a1 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 17 Jul 2020 20:17:44 -0700
Subject: [PATCH] Aplicar impuestos lcoales en nota de credito si la factura
 tiene.

---
 Ventas/Ventas.aspx.vb | 29 +++++++++++++++++++++++------
 1 file changed, 23 insertions(+), 6 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ac3635c77..fd76c078e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -22426,13 +22426,30 @@ Partial Class Ventas
         DdlTipoComprobante.SelectedValue = "Egs"
         Dim AplicaImpuestosLocales As Boolean = False
 
-        Dim ObjCliente As New ClsClientes
-        If ObjCliente.GetClienteImpuestosLocales(CveCliente) Then
-            'se cargan impuestos locales
-            Dim DtClienteImpuesto As DataTable = ObjCliente.DtResultados.FiltraParametros("Seleccionado = 1", "Orden")
-            AplicaImpuestosLocales = (DtClienteImpuesto IsNot Nothing AndAlso DtClienteImpuesto.Rows.Count > 0)
+        'Dim ObjCliente As New ClsClientes
+        'If ObjCliente.GetClienteImpuestosLocales(CveCliente) Then
+        '    'se cargan impuestos locales
+        '    Dim DtClienteImpuesto As DataTable = ObjCliente.DtResultados.FiltraParametros("Seleccionado = 1", "Orden")
+        '    AplicaImpuestosLocales = (DtClienteImpuesto IsNot Nothing AndAlso DtClienteImpuesto.Rows.Count > 0)
+        'End If
+        'ObjCliente.Dispose()
+
+        'CARGA IMPUESTOS LOCALES
+        Dim ObjVentas As New ClsVentas()
+        If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then
+            If ObjVentas.DtResultados.Rows.Count > 0 Then
+                AplicaImpuestosLocales = True
+
+                TrOtros.Visible = True
+                TmpDTImpuestos = ObjVentas.DtResultados
+                GvImpuestosLocales2.DataSource = ObjVentas.DtResultados
+                GvImpuestosLocales2.DataBind()
+
+                GvImpuestosLocales2.Enabled = False
+                GvImpuestosLocales2.Visible = True
+            End If
         End If
-        ObjCliente.Dispose()
+        ObjVentas.Dispose()
 
         AplicarNC(DdlNCPS.SelectedValue.ToEntero(), EsNCAmortizacion:=ChkAplicaNCAnticipo.Checked, AplicaImpuestosLocales:=AplicaImpuestosLocales, AplicaNuevoDocumento:=AplicaNuevoDocumento)