AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- que filtre las clasif, sin la bander de aplica conta

Browse Source
This commit is contained in:
rrene
2023-12-20 06:43:03 -07:00
parent c946e6ef5a
commit 97bd60a1db
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/ProductosServicios.aspx.vb
View File

@@ -774,9 +774,9 @@ Partial Class ProductosyServicios
Private Sub CargaClasificaciones() Private Sub CargaClasificaciones()
DdlClasificacion.Items.Clear() DdlClasificacion.Items.Clear()
If UsuarioActual.Empresa.UsaAC Then 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 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 End If
DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
'BLOQUEA DDL CLASIFICACION 'BLOQUEA DDL CLASIFICACION