From 97bd60a1db226b55e6f89a610c4686968e9094fc Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 20 Dec 2023 06:43:03 -0700 Subject: [PATCH] -- que filtre las clasif, sin la bander de aplica conta --- Ventas/ProductosServicios.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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