Exemplo do Ponto de Entrada F110QRCP.
Exemplo do Ponto de Entrada:
#Include "Protheus.ch"
/*---------------------------------------------------------------------*
| P.E.: F110QRCP |
| Desc: Filtro na seleção de títulos do baixas a receber auto |
*---------------------------------------------------------------------*/
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_X_CAMPO = 'XXX' "
//Pega o order by e até o 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
Observaçõess:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;