Histórico da Página

import.css=/download/attachments/327912/newLayout.css

...

Boas práticas de filtro AdvPL com DBAccess

Evite a utilização de

...

funções em filtros.

...

Monte a expressão de filtro utilizando operadores relacionais e lógicos baseados nas informações do banco de dados do modo mais direto possível.

Ao invés de:

User Function IsValid( cTipo )
If cTipo = 

...

"1" 
Return .t.

...

Endif
If cTipo = 

...

"F" 
Return .t.

...

Endif
Return .f.

User Function MyFiltro()
(…)
DbSelectarea(

...

"TMP")
SET FILTER TO GRUPO = 

...

"0001" .and. U_IsValid(TIPO)
(…)

Utilize:

(

...

...)
DbSelectarea(

...

"TMP")
SET FILTER TO GRUPO = 

...

"0001" .and. ( TIPO = 

...

"1" .or. TIPO = 

...

"F")
(…)

Observe que neste exemplo, somente foi possível adotar a conversão proposta, pois não havia nenhuma outra regra na função AdvPL U_IsValid() que usava outro fator a não ser uma comparação direta com um valor da tabela.

Importante

Evite realizar concatenação de campos na expressão de filtro. A operação de concatenação de campos não é suportada pelo DBAccess e pelo banco de dados, pois existe a necessidade implícita do filtro manter o comportamento original do AdvPL, e cada banco de dados possui suas características quando efetuadas concatenações entre campos char e/ou varchar e colunas calculadas.

Ao invés de:

SET FILTER TO CPOC1 + CPOC2 = M->VAR1 + M_VAR2

Utilizar :

SET FILTER TO CPOC1 = M->VAR1

...

 .AND.

...

 CPOC2 = M->VAR2

...

Partindo da premissa que o tamanho dos campos e das variáveis de memória são os mesmos. Caso não sejam, eles podem ser adequados para que a comparação seja sempre de 1 para 1 entre os campos. No exemplo acima, tomando por base que CPOC1 é do tipo caractere, tamanho 6, e CPOC2 também é caractere, tamanho 4, e uma determinada funcionalidade fornece em uma variável de memoria única uma chave de 10 bytes, onde os 6 primeiros correspondem à chave CPOC1 e os 4 restantes correspondem ao CPOC2:
Ao invés de:
SET FILTER TO CPOC1 + CPOC2 = M->VARCHAVE
Utilizar :
cFiltro := 'CPOC1 = "'+left(M->VARCHAVE,6)+'" .AND. CPOC2 = "'+substr(M->VARCHAVE,7,4)+'"'
SET FILTER TO &cFiltro.
...
Importante
Neste exemplo, criamos uma string que contém a expressão de filtro, onde trocamos os valores das variáveis de memória por constantes, para que seja possível resolver o filtro no banco de dados enviando as expressões literais já resolvidas, para não passar desnecessariamente funções para o filtro.
...
A única excessão é a função DTOS(): Quando enviada ao DBAccess, onde o conteúdo da função é um campo do tipo 
...
"D" Date, na liguagem AdvPL, a função é internamente removida, pois no DBAccess o campo já é gravado como string no formato 
...
"AAAAMMDD". Logo, um filtro com a expressão 
...
"DTOS( CAMPO ) == ‘ 
...
20100101’" é otimizadamente realizado pelo DBAccess e gera uma expressão SQL solúvel no SGDB.