diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 90fc18d49..9674f6f15 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -359,6 +359,9 @@ Partial Class ProductosyServicios
             divLitraje.Visible = True
             DivClasificacion2.Visible = True
             CargaPSAdicionalesVigencias()
+
+            DdlTamanio.DataSource = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa)
+            DdlTamanio.DataBind()
         End If
 
         divPrecio.Visible = UsuarioActual.Empresa.Funcionalidad(404) = "" ' si tiene lista de precio, se oculta el precio por ps
@@ -405,16 +408,6 @@ Partial Class ProductosyServicios
 
         TxtDescripcion.Text = UCase(TxtDescripcion.Text)
 
-        Dim objAcum As New ClsAcumuladores
-        If objAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
-            DdlTamanio.DataSource = objAcum.DtResultados
-        Else
-            DdlTamanio.DataSource = Nothing
-        End If
-
-        objAcum.Dispose()
-        DdlTamanio.DataBind()
-
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             DivLlantas.Visible = True
             DivPSAdicionales.Visible = True
@@ -437,19 +430,7 @@ Partial Class ProductosyServicios
 
     End Sub
 
-    'Private Sub CargaPSAdicional(Objeto As ADServerControl.Dropdownlost)
-    '    Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString = "1")
-    '    If Not UsuarioActual.Empresa.Funcionalidad(141).ToString = "1" Then
-    '        Objeto.ddl.Items.Clear()
-    '        Objeto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1, Estatus:=1, AplicaParaVenta:=1)
-    '        Objeto.ddl.DataBind()
-    '        Objeto.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    '    Else
-    '        Objeto.ddlWS.Attributes.Add("data-Estatus", "1")
-    '        Objeto.SelectedValue = "-1"
-    '        Objeto.SelectedText = "Seleccione"
-    '    End If
-    'End Sub
+
     Private Sub CargaPanelLlantas()
         Dim ObjGral As New ClsGenerales()
         If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then