From 16cda56be6f77f4ea91b76fd8c0bca7c69df6d83 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 2 Mar 2020 12:15:24 -0700 Subject: [PATCH] -columna de getcliente --- Ashx/SIGWeb.ashx | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index ec5a98394..9af99331f 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -177,6 +177,11 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Private Function GetClientes(ByVal context As HttpContext) As String Dim retorno As String = "" Dim DtRetorno As DataTable = Nothing + Dim ColumnaNombre As String = "NombreComercial" + 'Abreviaturas. N. Nombre, NC. NombreComercial,... + If IfNull(context.Request("ColTexto"), "") = "N" Then + ColumnaNombre = "Nombre" + End If Dim usuario As Usuario = UsuarioActual(context) Dim CveEmpresa As String @@ -209,7 +214,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then DtRetorno.Columns("CveCliente").ColumnName = "id" - DtRetorno.Columns("NombreComercial").ColumnName = "text" + DtRetorno.Columns(ColumnaNombre).ColumnName = "text" retorno = JsonConvert.SerializeObject(DtRetorno).ToString context.Response.Write(retorno) Else