From c8db06ef249b32c1e1e9d2bcd27669c53d84da55 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 29 Jun 2024 09:28:11 -0700 Subject: [PATCH] - liga de conex --- Ashx/E141.ashx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index ebe1a5513..428d0d0ea 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -62,7 +62,7 @@ Public Class E141 : 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(NombreCadena:="VentasEcono") + Dim ObjUsuarios As New ClsSisUsuarios(NombreCadena:="ConexionEcono") If ObjUsuarios.GetUsuarios(CveUsuario) Then If ObjUsuarios.DtResultados.Rows.Count > 0 Then Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() @@ -1674,7 +1674,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Dim UsuarioActual As Usuario = Nothing - Dim ObjUsuarios As New ClsSisUsuarios + Dim ObjUsuarios As New ClsSisUsuarios(NombreCadena:="ConexionEcono") If ObjUsuarios.GetUsuarios(100) Then If ObjUsuarios.DtResultados.Rows.Count > 0 Then Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()