Histórico da Página

#include 'Protheus.ch'
 
 /*/{Protheus.doc} User Function PCTITQRY
    Utilizado para alteração da query responsável pela listagem
    dos títulos no Portal do Cliente - FIN.

    Parâmetros:
     - Paramixb[1] (Character) = Query criada até o momento para listagem.
     - Paramixb[2] (Array) = Lista contendo a chave dos clientes selecionados no portal.

    Retorno:
     - cNewQuery (Character) = Query com os filtros aplicados.

    Obs: A query do ponto de entrada deve obrigatoriamente
    retornar os campos descritos na documentação.
   
    @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

    // Guarda o parte de inicio da query
    cStartQry := Substr(cOriginQry, 1, AT("ORDER BY", cOriginQry) -1 )

    // Logica para customização da query (Condicional WHERE)
    cCustomQry := " AND SE1.E1_MOTIVO <> 'CMP' "

    // Guarda a parte final da query
    cEndQry := Substr(cOriginQry, AT("ORDER BY", cOriginQry))

    // Aplica a parte customizada na query principal
    cNewQuery := cStartQry + cCustomQry + cEndQry

Return cNewQuery