From 056419c9778ef2ba745538b8d8634c9ede2d4b51 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 28 Apr 2021 10:42:12 -0700
Subject: [PATCH] clienets abonar

---
 Ventas/ClientesAbonar.aspx.vb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 982827aa5..a24cf4999 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -2693,12 +2693,18 @@ Partial Class Ventas_ClientesAbonar
                 If CveConceptoDeduccion = 78 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.IdCuentaOtrosIngresos
 
                 If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
+
                     ClienteMovto = False : Saldo = Saldo * -1
                     ImpuestosMovto = True : IVA = IVA * -1
-                    RETIVA = RETIVA * -1
+
+                    'RETIVA = RETIVA * -1
+
+                    RETIVA = ((SubTotal * RETIVA / gr.DataKey("SubTotal").ToDecimal.RoundSQL) * -1).RoundSQL(2)
+
                     CveConceptoCliente = 1
                     'falta cuenta incobrable
                     IdCuentaContableNoDeducible = 3114
+
                 End If
 
                 Dim UsaComplementaria As Boolean = False