From ccb2ae20bb0d1cce03d5ae645b7e1444d16efc2a Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 29 Jun 2024 07:29:59 -0700 Subject: [PATCH] nombrecadena --- Ashx/E141.ashx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index bd34dbf6f..ebe1a5513 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 + Dim ObjUsuarios As New ClsSisUsuarios(NombreCadena:="VentasEcono") If ObjUsuarios.GetUsuarios(CveUsuario) Then If ObjUsuarios.DtResultados.Rows.Count > 0 Then Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()