-

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()