-- opcional generar xml menu

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)