diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index cf37794d5..f368141b9 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -774,9 +774,9 @@ Partial Class ProductosyServicios
     Private Sub CargaClasificaciones()
         DdlClasificacion.Items.Clear()
         If UsuarioActual.Empresa.UsaAC Then
-            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, DdlUsoClasificacion.SelectedValue.ToEntero, -1)).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=DdlUsoClasificacion.SelectedValue.ToEntero).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         Else
-            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, DdlUsoClasificacion.SelectedValue.ToEntero, -1)).FiltraParametros("", Orderby:="Clasificacion")
+            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=DdlUsoClasificacion.SelectedValue.ToEntero).FiltraParametros("", Orderby:="Clasificacion")
         End If
         DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
         'BLOQUEA DDL CLASIFICACION