From 5e7393fe32b64cf0c1827049e1b01250edbcf551 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 12 Apr 2025 10:55:30 -0700
Subject: [PATCH] -

---
 Inventarios/CatAlmacenes.aspx.vb | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/Inventarios/CatAlmacenes.aspx.vb b/Inventarios/CatAlmacenes.aspx.vb
index 7ce506e4f..b6ef7f467 100644
--- a/Inventarios/CatAlmacenes.aspx.vb
+++ b/Inventarios/CatAlmacenes.aspx.vb
@@ -98,16 +98,18 @@ Partial Class Inventarios_CatAlmacenes
 
     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"
-        DT = DT.DefaultView.ToTable
+        If DT IsNot Nothing Then
+            DT = DT.FiltraParametros(" Estatus = 1 ").Copy
+            DT.DefaultView.Sort = "Nombre ASC"
+            DT = DT.DefaultView.ToTable
 
-        DdlUsuariosAutoriza.DataSource = DT
-        DdlUsuariosAutoriza.DataBind()
-
-        DdlUsuariosAutoriza.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+            DdlUsuariosAutoriza.DataSource = DT
+            DdlUsuariosAutoriza.DataBind()
 
+            DdlUsuariosAutoriza.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        End If
     End Sub
 
     Private Sub CargaCuentasContables()