diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 2f8e25299..adfdc2a1d 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -5098,7 +5098,7 @@ Partial Class PV
 
             Dim ObjGral As New ClsGenerales
             If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
-                e.Row.FCDropDownList("DdlBCIUsado").DataSource = ObjGral.DtResultados
+                e.Row.FCDropDownList("DdlBCIUsado").DataSource = ObjGral.DtResultados.FiltraParametros(String.Format("CveTamaño = {0}", e.Row.DataKey("CveTamaño")))
             End If
             'DdlBCIUsado.Items.Insert(0, New ListItem("Seleccione", "-1"))
             'DdlBCIUsado.SelectedValueExist(-1)