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)