diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index c74d9d6a6..9f55d50e7 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -3630,6 +3630,23 @@ Public Class ClsVentas
         Return retorno
     End Function
 
+    Public Function TraspasaVentasAplicadasAnt(CveVentaNueva As Integer, CveVentaAnterior As Integer, CveEmpresa As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Vta_TraspasaVentasAplicadasAnt", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVentaNueva", SqlDbType.Int).Value = CveVentaNueva
+            .Add("@CveVentaAnterior", SqlDbType.Int).Value = CveVentaAnterior
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al traspasar las ventas aplicadas al nuevo anticipo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
+
 #Region " AUTORIZACION DESCUENTOS "
 
     Public Function AutorizacionDescuentosGet(CveAutorizacionDescuento As Integer, CveEmpresa As Integer) As Boolean
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e6643891b..a575e622e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10281,6 +10281,13 @@ Partial Class Ventas
                 End If
             End If
 
+            'EN CASO DE SER REFACTURACION DE ANTICIPO SE ACTUALIZAN LAS VENTAS APLICADAS HACIA EL NUEVO
+            If NuevaFactura = 1 AndAlso CveDevolucion > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ant") Then
+                If Not ObjVentas.TraspasaVentasAplicadasAnt(ObjFactura.CveVenta, CveDevolucion, UsuarioActual.CveEmpresa) Then
+                    ErrorPrepoliza = True
+                End If
+            End If
+
             Return ErrorPrepoliza
         Catch ex As Exception
             GuardaLog(ex.ToString())