Cambios en portal de proveedores

Sistemas/PopUpSeleccionarEmpresa.aspx.vb

@@ -16,10 +16,8 @@ Partial Class PopUpSeleccionarEmpresa
         End If
     End Sub
 
-    Private Sub GetEmpresas()
-
-
-        GlobalDTUsuarios(-1, -1) = Nothing 'Esto es por  los cambios de contaseña
+    Private Sub GetEmpresas()
+	GlobalDTUsuarios(-1, -1) = Nothing
         Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
 
         If Dt IsNot Nothing Then
@@ -90,10 +88,10 @@ Partial Class PopUpSeleccionarEmpresa
                             RegistraScript("Ir3();")
                         End If
                     End If
-                    dt.Dispose()
-                Else
-                    Alert($"Usuario Nulo {gvr.DataKey("Usuario")} , {gvr.DataKey("Contraseña")}, {IMEI}, {gvr.DataKey("CveEmpresa").ToEntero}", TipoMensaje.MsgAdvertencia)
-                End If
+                    dt.Dispose()
+
+                
+		End If
 
             End If
         End If