diff --git a/Ventas/RepEntregasEcommerce.aspx.vb b/Ventas/RepEntregasEcommerce.aspx.vb
index 69b071605..9c38e88de 100644
--- a/Ventas/RepEntregasEcommerce.aspx.vb
+++ b/Ventas/RepEntregasEcommerce.aspx.vb
@@ -25,7 +25,7 @@ Partial Class Ventas_RepEntregasEcommerce
         If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text.Trim.ToDate Else FechaI = MinFecha
         If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text.Trim.ToDate Else FechaF = MaxFecha
         Dim Obj As New ClsVentas
-        If Obj.GetEntregasEcommerce(FechaI, FechaF, UsuarioActual.CveEmpresa) Then
+        If Obj.GetEntregasEcommerce(FechaI, FechaF, 1, UsuarioActual.CveEmpresa) Then
             GvD.DataSource = Obj.DtResultados
         End If
         Obj.Dispose()