-compras retenciones otros impuestos

- sigweb, que filtre nombre y nombrecomercial del cliente
- ventas, que se visualice la amortizacion

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
 

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
 

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