diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 8f6a1371d..283b294c0 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1460,7 +1460,13 @@ Public Class ClsPaginas
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancosCuentasUsuarios(-1) Then
- Application(AppNombre) = ObjBancos.DtResultados
+
+ If CveEmpresa > 0 Then
+ Application(AppNombre) = ObjBancos.DtResultados.FiltraParametros($"CveEmpresa = { CveEmpresa }")
+ Else
+ Application(AppNombre) = ObjBancos.DtResultados
+ End If
+
Else
Application(AppNombre) = Nothing
End If
diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index 6114ccac7..317886ea8 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -1049,7 +1049,9 @@
- <%----%>
+
+
+
@@ -1062,6 +1064,19 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c2c4b072e..294572c12 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -22424,13 +22424,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)