F110QRCP - Substitui a query de busca de títulos a serem baixados teste

01. DADOS GERAIS

02. DESCRIÇÃO

O ponto de entrada F110QRCP definirá a query de busca dos títulos que serão apresentados para seleção de baixa. Ele será executado antes da abertura da tela de seleção dos títulos, onde essa tela (markbrowse) será montada com o retorno do ponto de entrada.

03. PARÂMETROS

        cQuery - String com expressão SQL

04. RETORNO

05. EXEMPLO DE UTILIZAÇÃO

#include "protheus.ch"        

User Function F110QRCP()                                                                       
    Local aArea    := GetArea()
    Local cQuery   := PARAMIXB[1]
    Local cOrderBy := ""
    Local cAux     := ""
    Local cFilRet  := ""

    //Montando o filtro de retorno para exibição dos titulos que serão baixados
    cFilRet := " AND E1_PREFIXO = 'TST' "
     
    //Efetua a separação da query e order by
    cOrderBy := SubStr(cQuery, RAt("ORDER BY", cQuery), Len(cQuery))
    cAux := SubStr(cQuery, 1, RAt("ORDER BY", cQuery)-1)
     
    //Monta o retorno da query
    cQuery := cAux + cFilRet + cOrderBy
      
    RestArea(aArea)
Return cQuery