-- opcional generar xml menu

App_Code/ClsSisUsuarios.vb

@@ -191,7 +191,7 @@ Public Class ClsSisUsuarios
         End Try
         Return Retorno
     End Function
-    Public Function ValidaUsuario(Usuario As String, Password As String, Optional CveEmpresa As Integer = -1, Optional GrupoEmpresa As String = "") As Usuario
+    Public Function ValidaUsuario(Usuario As String, Password As String, Optional CveEmpresa As Integer = -1, Optional GrupoEmpresa As String = "", Optional GenerarMenu As Boolean = True) As Usuario
         Dim Retorno As Usuario = Nothing
         DataAdapter("PA_Sis_UsuarioValidacionGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -253,7 +253,7 @@ Public Class ClsSisUsuarios
 
                 'cargo los modulos del usuario y genero el menú
                 Dim dttmp As DataTable = GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveEmpresa)
-                GeneraMenu(Retorno.CveUsuario, dttmp, Retorno.CvePlataforma)
+                If GenerarMenu Then GeneraMenu(Retorno.CveUsuario, dttmp, Retorno.CvePlataforma)
 
                 Dim UsuariosModulos As New HybridDictionary
                 For Each Row As DataRow In dttmp.Rows

Ashx/E119.ashx

@@ -19,6 +19,7 @@ Public Class E119 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
 
     Private ReadOnly Property CveEmpresa As Integer = 119
     Private ReadOnly Property CveUsuario As Integer = 100
+    Private ReadOnly Property NombreCadena As String = "Conexion"
 
     Public ReadOnly Property EsProduccion As Boolean
         Get
@@ -52,12 +53,12 @@ Public Class E119 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
 #Region "V A L I D A  - D A T O S"
     Private Function ValidaUsuarioSistema(CveUsuario As Integer, CveEmpresa As Integer) As Usuario
         Dim UsuarioActual As Usuario = Nothing
-        Dim ObjUsuarios As New ClsSisUsuarios
+        Dim ObjUsuarios As New ClsSisUsuarios(NombreCadena:=NombreCadena)
         If ObjUsuarios.GetUsuarios(CveUsuario) Then
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
-                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
+                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa, GenerarMenu:=False)
                 UsuarioActual.CveEmpresa = CveEmpresa
                 HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
                 CreaObjetoEmpresa(UsuarioActual)