From 64422caab8bfc74f074686ffc3eda8f2822763e0 Mon Sep 17 00:00:00 2001
From: Rene Molina <Rene.Molina@adssistemas.mx>
Date: Wed, 22 Jan 2020 16:18:46 -0700
Subject: [PATCH] -compras retenciones otros impuestos - sigweb, que filtre
 nombre y nombrecomercial del cliente - ventas, que se visualice la
 amortizacion

---
 Ashx/SIGWeb.ashx        | 2 +-
 Compras/Compras.aspx.vb | 8 ++++----
 Ventas/Ventas.aspx.vb   | 7 +++++--
 3 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index faf915fda..a3b5e8ba8 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -201,7 +201,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
             Dim dt As DataTable = DirectCast(context.Application(AppNombre), DataTable).FiltraParametros($"CveEmpresa = {CveEmpresa}")
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-                DtRetorno = dt.FiltraParametros($"NombreComercial like  '%{Name}%'")
+                DtRetorno = dt.FiltraParametros($"NombreComercial like '%{Name}%' OR Nombre like  '%{Name}%'  ")
             End If
         End If
 
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index b52e68192..3815cc13b 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2235,7 +2235,7 @@ Partial Class Compras_Compras
         TxtDocumentoImporteCaja.Text = TotalTemp.FormatoNumero
         TxtOtrosImpuestos.Text = OtrosImpuestos.FormatoNumero
         If OtrosImpuestos > 0 Then TrOtrosImpuestos.Visible = True
-        If OtrosImpuestosRetenciones > 0 Then TrOtrosImpuestos.Visible = True : TxtOtrosImpuestos.Text = OtrosImpuestosRetenciones.FormatoNumero
+        If OtrosImpuestosRetenciones > 0 Then TrOtrosImpuestos.Visible = True : TxtOtrosImpuestos.Text = (-OtrosImpuestosRetenciones).FormatoNumero
         HFDiferenciaCompra.Value = TxtTotal.Text
         HdnCompraSaldo.Value = TotalTemp.ToString
         CompraSaldo = TotalTemp
@@ -7443,7 +7443,7 @@ Partial Class Compras_Compras
                                                     End If
                                                 End If
 
-                                                If TxtOtrosImpuestos.Text.ToDouble > 0 Then
+                                                If TxtOtrosImpuestos.Text.ToDouble <> 0 Then
                                                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtOtrosImpuestos.Text.ToDecimal, " ", CveConceptoRetOtrosImpuestos, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtOtrosImpuestos.Text.ToDecimal) Then
                                                         ErrorMovtosRetISR = True
                                                     End If
@@ -11945,7 +11945,7 @@ Partial Class Compras_Compras
         SubTotalConceptos = SubTotal
         GvPS.DataSource = TmpDT : GvPS.DataBind()
 
-        If TxtOtrosImpuestos.Text.ToDouble > 0 Then TxtOtrosImpuestos.Text = "" : TrOtrosImpuestos.Visible = False
+        'If TxtOtrosImpuestos.Text.ToDouble > 0 Then TxtOtrosImpuestos.Text = "" : TrOtrosImpuestos.Visible = False
 
         'EN ESPERA DE ALGUN CASO QUE LO NECESITE - IPP 5 DICIEMBRE 2016
         'TempSubTotal = TempSubTotal - SubTotal
@@ -16458,7 +16458,7 @@ Partial Class Compras_Compras
         TempIEPS = TxtIEPS.Text.ToDouble
         TempRetIVA = TxtRetIVA.Text.ToDouble
         TempRetISR = TxtRetISR.Text.ToDouble
-        TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDouble, 2)
+        TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR - TxtOtrosImpuestos.Text.ToDouble, 2)
         DifTotales = TxtTotal.Text.ToDouble - TempTotal
         Dim DiferenciaPermitida = 0.6
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index d3fb8d54f..ad6b37a86 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4174,7 +4174,10 @@ Partial Class Ventas
                     End If
 
                     If DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev", "Ant") Then
-                        If ObjVentas.GetVentasAntNC(-1, CveVenta) Then
+                        Dim AplicaAmortizacion As Boolean = False
+                        If DdlTipoComprobante.SelectedValue.Contiene("Ant") Then AplicaAmortizacion = True
+
+                        If ObjVentas.GetVentasAntNC(-1, CveVenta, AplicaAmortizacion) Then
                             GvNC.DataSource = ObjVentas.DtResultados
                             TmpDTNCVinculadas = ObjVentas.DtResultados
                             GvNC.Caption = " <table width='100%'><tr><td style='text-align:center'>Ventas Aplicadas</td></tr></table>"
@@ -4187,7 +4190,7 @@ Partial Class Ventas
                             Next
                         End If
                     End If
-                End If
+                    End If
 
                 If GvNC.Rows.Count > 0 Then
                     ImgAntiPend.Visible = False