Revert "-- corr"

This reverts commit 5315c47fcd.

Ventas/Promociones.aspx.vb

@@ -158,6 +158,7 @@ Partial Class Ventas_Promociones
             PermisoAutorizPromocionPorcentaje = UsuarioActual.TienePermisoProceso(386)
 
             EmpresaGrupoDiaz = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False) 'Grupo díaz
+            EmpresaGrupoDiaz = True ''Para pruebas
 
             If EmpresaGrupoDiaz Then
                 DVModalClasificacion.Visible = False
@@ -211,6 +212,7 @@ Partial Class Ventas_Promociones
     End Sub
 
 
+
 #Region "BITACORA"
 
     Private Sub CargaGvBitacora()
@@ -238,7 +240,7 @@ Partial Class Ventas_Promociones
     Private Sub CargaValoresIniciales()
         Dim ObjPS As New ClsProductosServicios
         'CLASIFICACIONES
-        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         DdlClasificacion.DataBind()
         If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))