Histórico da Página

//EXEMPLO: Retira da consulta o filtro da safra
 
User Function AGR900P7()
    Local cQuery  := ALLTRIM(PARAMIXB[1])   //PARAMIXB[1] == String com os filtros da query usada na consulta
    Local nX := 0
    Local aRet := {}
 
    if !EMPTY(cQuery)
        //quebra a string cQuery em array ao encontrar a string "AND"
        aRet := StrTokArr2( UPPER(cQuery), "AND" )
    endIf
 
    If Len(aRet) > 0
        cQuery := ""
        For nx := 1 To Len(aRet)
            //Caso não encontre a string "NP9_CODSAF" mantem valor do array no filtro para consulta
            if !Empty(aRet[nx] ) .and. AT("NP9_CODSAF",aRet[nx]) == 0
                cQuery += " AND " + ALLTRIM( aRet[nx] ) 
            EndIf
        Next nx
    EndIf
     
Return cQuery