clienets abonar

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