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