diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 861a5605a..1c08e740c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12583,7 +12583,14 @@ Partial Class Ventas
                     ErrorConta = True
                 End If
 
-                If ObjConta.ValidacionPrePolizaCuadre(CvePrepoliza, 3) Then
+                'Simplificacion de PrePolizas
+                If Not ErrorConta AndAlso ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
+                    If Not ObjConta.PrePolizaSimplificacion(CvePrepoliza, UsuarioActual.CveEmpresa) Then
+                        Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
+                    End If
+                End If
+
+                If Not ErrorConta AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrepoliza, 3) Then
                     If ObjConta.ValorPolizaDescuadre > 0 Then
                         GuardaLogAD($"Ventas/Ventas-Anticipos | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrepoliza}", "LogPrePolizas")
                         ErrorConta = True