AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-columna de getcliente

Browse Source
This commit is contained in:
rrene
2020-03-02 12:15:24 -07:00
parent f40454eb9a
commit 16cda56be6
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ashx/SIGWeb.ashx
View File

@@ -177,6 +177,11 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Private Function GetClientes(ByVal context As HttpContext) As String Private Function GetClientes(ByVal context As HttpContext) As String
Dim retorno As String = "" Dim retorno As String = ""
Dim DtRetorno As DataTable = Nothing 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 usuario As Usuario = UsuarioActual(context)
Dim CveEmpresa As String Dim CveEmpresa As String
@@ -209,7 +214,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
DtRetorno.Columns("CveCliente").ColumnName = "id" DtRetorno.Columns("CveCliente").ColumnName = "id"
DtRetorno.Columns("NombreComercial").ColumnName = "text" DtRetorno.Columns(ColumnaNombre).ColumnName = "text"
retorno = JsonConvert.SerializeObject(DtRetorno).ToString retorno = JsonConvert.SerializeObject(DtRetorno).ToString
context.Response.Write(retorno) context.Response.Write(retorno)
Else Else