From fbc7db868e62b940912a7aa783cd75201b3cdb85 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 2 May 2025 19:25:35 -0700
Subject: [PATCH] --FIX traspaso de saldos

---
 Ventas/Clientes.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 92714d0e2..0a8cb9485 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -4888,7 +4888,8 @@ Partial Class Clientes
                             ImporteAplicar = Importe
                             CveVenta = Gvr.DataKey("CveVenta").ToEntero()
 
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar * -1, ImporteAplicar * -1, 12, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=Gvr.DataKey("CveCliente").ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToEntero(), CveVenta:=CveVenta) Then
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ImporteAplicar * -1, 91, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos",
+                                                                 CveCliente:=Gvr.DataKey("CveCliente").ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToEntero(), CveVenta:=CveVenta, CveVentaAmortizacion:=CveVenta) Then
                                 TieneError = True
                             End If