Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Incluir Página
tec:DBSetFilter
tec:DBSetFilter

Sintaxe

 

dbSetFilter(<bloco de código>, <expressão caracter>)

 

Propósito

 

Define um filtro para a área de trabalho ativa, que pode ser descrito na forma de um bloco de código ou através de uma expressão simples.

 

Argumentos

 

<bloco de código>

 

É o bloco de código que expressará a condição do filtro.

 

<expressão caracter>

 

Expressão de filtro simples na forma de cadeia de caracteres.

 

Exemplos

 

Neste exemplo, mostraremos um filtro com bloco de código.

 

LOCAL bCondic := { | | A1_COD >= “000001” .AND. A1_COD <= “001000” }

 

dbSelectArea(“SA1”)

dbSetOrder(1)     // A1_FILIAL + A1_COD

dbSetFilter(bCondic)

dbGoBotton()

 

WHILE !EOF()

          MsgInfo(“Você está no cliente: “ + A1_COD)

 

          dbSkip()

ENDDO

 

Neste exemplo, o último cliente visualizado deve ter o código menor do que “001000”.

 

No exemplo abaixo mostraremos um filtro com expressão simples.

 

LOCAL cCondic := “A1_COD >= ´000001´ .AND. A1_COD <= ´001000´”

 

dbSelectArea(“SA1”)

dbSetOrder(1)         // A1_FILIAL + A1_COD

dbSetFilter( , cCondic)

dbGoBotton()          // Posiciona o cursor no final da área de trabalho ativa

 

WHILE !EOF()

          MsgInfo(“Você está no cliente: “ + A1_COD)

 

          dbSkip()

ENDDO

 

Neste exemplo, o último cliente visualizado também deve ter o código menor do que “001000”.