-- aqui aplica el GlobalDTUsuarios(-1, -1) , único lugar

2024-08-01 11:08:02 -07:00
parent 8813429e3d
commit 30e0decf3e
1 changed files with 2 additions and 2 deletions
--- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
+++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
@@ -14,8 +14,8 @@ Partial Class PopUpSeleccionarEmpresa
    End Sub

    Private Sub GetEmpresas()
-        GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
-        Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        GlobalDTUsuarios(-1, -1) = Nothing
+        Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, -1)

        If Dt IsNot Nothing Then
            If Dt.Rows.Count > 0 Then