diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 15570eddd..7b59c8ef1 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4426,7 +4426,7 @@ Partial Class Ventas
                 End If
 
                 If DbRowVenta IsNot Nothing Then
-                    If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
+                    If ObjVentas.GetVentasRelacionadas(CveVenta, 1, UsuarioActual.CveEmpresa) Then
                         DtAntRelacionados = ObjVentas.DtResultados.FiltraParametros("TipoDocto IN ('Ing','Ant','Egs','Dev')")
                     End If