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

-

Browse Source
This commit is contained in:
rrene
2025-04-12 10:55:30 -07:00
parent 5213665688
commit 5e7393fe32
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Inventarios/CatAlmacenes.aspx.vb
View File

@@ -98,16 +98,18 @@ Partial Class Inventarios_CatAlmacenes
Private Sub CargaUsuarios() Private Sub CargaUsuarios()
Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" Estatus = 1 ").Copy Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DT.DefaultView.Sort = "Nombre ASC" If DT IsNot Nothing Then
DT = DT.DefaultView.ToTable DT = DT.FiltraParametros(" Estatus = 1 ").Copy
DT.DefaultView.Sort = "Nombre ASC"
DT = DT.DefaultView.ToTable
DdlUsuariosAutoriza.DataSource = DT DdlUsuariosAutoriza.DataSource = DT
DdlUsuariosAutoriza.DataBind() DdlUsuariosAutoriza.DataBind()
DdlUsuariosAutoriza.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
DdlUsuariosAutoriza.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End If
End Sub End Sub
Private Sub CargaCuentasContables() Private Sub CargaCuentasContables()