Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css
Portuguese

Pagetitle
DBFilter
DBFilter

Função: DBFilter

Retorna

...

a

...

expressão

...

do

...

filtro

...

ativo

...

na

...

área

...

de

...

trabalho

...

corrente.

Sintaxe

Bloco de código
collapsefalse
DBFilter()
--> cExpFiltro

Retorno

...

Nome

Tipo

Descrição

cExp

caractere

Retorna a expressão do filtro ativo na área de trabalho corrente. Caso não exista um filtro ativo, o retorno será uma string nula ("").

Exemplos

//Este exemplo, apresenta como utilizar a função DBFilter() para verificar a expressão//do filtro corrente.USE Cliente INDEX Ind1 NEWSET FILTER TO Nome > "José"DBFILTER() // retorna: Nome > "José"SET FILTER TO Num < 1000DBFILTER() // retorna: Num < 1000 
Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
FUNCTION insert()

  Local cT1 := "T1"
  Local idx := 0
  Local name := ""
  Local tp := ""
  Local age := "2"
  
  DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .F.)
  WHILE (idx <= 5)
  
  name += "BA"
  tp += "T"
  age += "2"
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := name
  (cT1)->FIELD_TYPE := tp
  (cT1)->FIELD_AGE := age
  (cT1)->( DBCommit() )
  
  idx++
  ENDDO
  DBCloseArea()
  
return

FUNCTION Example()
  Local cT1 := "T1"
  
  TCLink()
  
  DBCreate("T1", {{"FIELD_NAME", "C", 10, 0}, ;
                  {"FIELD_TYPE", "C", 10, 0}}, "TOPCONN")
                  
  U_insert()

  DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .T.)

  (cT1)->(DbSetFilter({|| left(FIELD_NAME, 4)="BABA" }, "FIELD_NAME=BABA")
  
  cExp := (cT1)->(DBFilter())
  
  if cExp == "FIELD_NAME=BABA"
    conout("Expressão " + cExp)
  endif
  
  DBCloseArea()
  
  TCUnlink()
RETURN

Veja também

...