Exibir origem

01. DATOS GENERALES

Línea de producto:	Microsiga Protheus®
Segmento:	Backoffice
Módulo:	Financiero
Idiomas:	Portugués
Función:	Portal del cliente

02. DESCRIPCIÓN

El punto de entrada PCTITQRY permite informar una query personalizada para listar títulos en el Portal del cliente - SIGAFIN.

Parámetros puestos a disposición en el punto de entrada:

PARAMIXB

Tipo

Descripción

1º Posición

Carácter

Query estándar utilizada para listar los títulos en el Portal del cliente.

2º Posición

Array

Contiene un Array con las claves (FILIAL+CODIGO+LOJA) de los clientes seleccionados en el portal.

Cada posición del Array contiene un objeto Json con las propiedades: sucursal, código y tienda.

Devolución del punto de entrada:

El punto de entrada debe devolver la query personalizada respetando los campos definidos por estándar:

Tipo	Obligatoriedad	Descripción
Carácter	Obligatorio	Query personalizada para listar títulos del Portal del cliente (La query obligatoriamente debe devolver los campos descritos a continuación).

Campos obligatorios:

Campos que obligatoriamente deben ser devueltos en la query personalizada:

Campo	Tabla	Descripción
E1_FILORIG	SE1	Sucursal de origen.
E1_FILIAL	SE1	Sucursal del sistema.
E1_PREFIXO	SE1	Prefijo del título.
E1_NUM	SE1	Número del título.
E1_PARCELA	SE1	Cuota del título.
E1_TIPO	SE1	Tipo del título.
E1_CLIENTE	SE1	Código del cliente.
E1_LOJA	SE1	Tienda del cliente.
E1_MOEDA	SE1	Moneda del título.
E1_EMISSAO	SE1	Fecha de emisión del título.
E1_VENCREA	SE1	Vencimiento real del título.
E1_VALOR	SE1	Valor del título.
E1_SALDO	SE1	Saldo por cobrar.
E1_CODBAR	SE1	Código de barras.
E1_NUMBOR	SE1	Número del borderó.
E1_BAIXA	SE1	Fecha de baja del título.
EA_BORAPI	SEA	Borderó por API.
EA_TRANSF	SEA	Estatus de transferencia.

03. EJEMPLO DE UTILIZACIÓN

#include 'Protheus.ch'
 
 /*/{Protheus.doc} User Function PCTITQRY
    Se utiliza para modificar la query responsable por la lista
    de los títulos en el Portal del cliente - FIN.

    Parâmetros:
     - Paramixb[1] (Character) = Query creada hasta el momento para la lista.
     - Paramixb[2] (Array) = Lista con la clave de los clientes seleccionados en el portal.

    Retorno:
     - cNewQuery (Character) = Query con los filtros aplicados.

    Obs: La query del punto de entrada obligatoriamente debe
    devolver los campos descritos en la documentación.
   
    @type Function
    @author Totvs
    @since 10/10/2023
    @version 1.0
    @see https://tdn.totvs.com/pages/viewpage.action?pageId=794384769
 /*/
User Function PCTITQRY() As Character
    Local cOriginQry := Paramixb[1] As Array
    Local aCustomers := Paramixb[2] As Array
    Local cStartQry  := "" As Character
    Local cCustomQry := "" As Character
    Local cEndQry    := "" As Character
    Local cNewQuery  := "" As Character

    // Graba la parte inicial de la query
    cStartQry := Substr(cOriginQry, 1, AT("ORDER BY", cOriginQry) -1 )

    // Lógica para personalización de la query (Condicional WHERE)
    cCustomQry := " AND SE1.E1_MOTIVO <> 'CMP' "

    // Graba la parte final de la query
    cEndQry := Substr(cOriginQry, AT("ORDER BY", cOriginQry))

    // Aplica la parte personalizada en la query principal
    cNewQuery := cStartQry + cCustomQry + cEndQry

Return cNewQuery