From ce134753c6a5d850ce95c84f530bffc0d99f0a58 Mon Sep 17 00:00:00 2001
From: JPerez <jonathan.perez@asdsistemas.mx>
Date: Fri, 4 Jul 2025 17:04:24 -0700
Subject: [PATCH] --FIX aplicacion de descuento como amortizacion

---
 Ventas/Ventas.aspx.vb | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index a33bce02b..b726c1827 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16245,8 +16245,16 @@ Partial Class Ventas
 
                             importeMovimiento = 0
                         Case 103 'Descuento
-                            If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso
-                                (DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141, 190, 192)) Then
+
+                            Dim AplicaDescuento As Boolean = ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso
+                                (DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141, 190, 192))
+
+                            'SI SE AMORTIZO CON DESCUENTO, NO APLICAR EL CONCEPTO
+                            If AplicaDescuento AndAlso ObjFactura.CveTipoAmortizacionAnticipo = 1 Then
+                                AplicaDescuento = False
+                            End If
+
+                            If AplicaDescuento Then
 
                                 importeMovimiento = ObjFactura.Descuento * Multiplicador * ValorMultiplicador
                                 importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador * ValorMultiplicador