From 60eb914959c1429d23113c6b87491ce1a0394909 Mon Sep 17 00:00:00 2001
From: JPerez <jonathan.perez@asdsistemas.mx>
Date: Thu, 5 Jun 2025 18:09:58 -0700
Subject: [PATCH] --FIX devolucion al cliente

---
 Ventas/Clientes.aspx.vb | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 0a8cb9485..aef629e4b 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -10898,19 +10898,24 @@ Partial Class Clientes
                         Dim PorcentajePagoDevDin As Decimal = (gvr.DataKey("Saldo").ToDecimal / gvr.DataKey("Total").ToDecimal).RoundSQL(6)
                         Dim tCveConcepto As Integer
                         ImporteAplicar = gvr.DataKey("Saldo").ToDecimal
+                        Dim CveVentaAmortizacion As Integer = -1
+
                         If gvr.DataKey("Tipo") = "IxC" Then
                             tCveConcepto = 92 : tTipoMovto = False
                         ElseIf gvr.DataKey("Tipo").Contiene("Dev", "NC") Then
-                            tCveConcepto = 12 : ImporteAplicar = -ImporteAplicar : tTipoMovto = True
+                            CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero
+                            tCveConcepto = 91 : ImporteAplicar = ImporteAplicar : tTipoMovto = False
                         ElseIf gvr.DataKey("Tipo").Contiene("Ant") Then
                             tCveConcepto = 11 : ImporteAplicar = ImporteAplicar : tTipoMovto = False
                         End If
 
                         ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 1, 1, tTipoCambio)).RoundSQL()
-                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto, ImporteAplicar, ImporteAplicarMN, tCveConcepto, ReferenciaAplicar, ConceptoAplicar, CveIE:=gvr.DataKey("CveIE").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCliente:=CveCliente, ImporteME:=ImporteAplicarME) Then
+
+                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto, ImporteAplicar, ImporteAplicarMN, tCveConcepto, ReferenciaAplicar, ConceptoAplicar, CveIE:=gvr.DataKey("CveIE").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCliente:=CveCliente, ImporteME:=ImporteAplicarME, CveVentaAmortizacion:=CveVentaAmortizacion) Then
                             MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
                             Exit For
                         End If
+
                         'IMPUESTOS
                         If gvr.DataKey("IVA").ToDecimal > 0 Then
                             tImporte = -(gvr.DataKey("IVA").ToDecimal * PorcentajePagoDevDin).RoundSQL
@@ -10923,6 +10928,7 @@ Partial Class Clientes
                                 Exit For
                             End If
                         End If
+
                         If gvr.DataKey("IEPS").ToDecimal > 0 Then
                             tImporte = (gvr.DataKey("IEPS").ToDecimal * PorcentajePagoDevDin).RoundSQL
                             If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, tImporte, tImporte, 39, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCliente:=CveCliente, ImporteME:=ImporteAplicarME) Then
@@ -10930,6 +10936,7 @@ Partial Class Clientes
                                 Exit For
                             End If
                         End If
+
                         If gvr.DataKey("RetIVA").ToDecimal > 0 Then
                             tImporte = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePagoDevDin).RoundSQL
                             If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, tImporte, tImporte, 62, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCliente:=CveCliente, ImporteME:=ImporteAplicarME) Then
@@ -10937,6 +10944,7 @@ Partial Class Clientes
                                 Exit For
                             End If
                         End If
+
                         If gvr.DataKey("RetISR").ToDecimal > 0 Then
                             tImporte = (gvr.DataKey("RetISR").ToDecimal * PorcentajePagoDevDin).RoundSQL
                             If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, tImporte, tImporte, 63, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCliente:=CveCliente, ImporteME:=ImporteAplicarME) Then
@@ -10944,6 +10952,7 @@ Partial Class Clientes
                                 Exit For
                             End If
                         End If
+
                     End If
                 Next