Page tree
Skip to end of metadata
Go to start of metadata

Avalia um bloco de código para cada registro que atenda um escopo definido, através dos blocos da primeira e segunda condição.

Sintaxe

DBEval( < bBlock >, [ bFirstCondition ], [ bSecondCondition ], [ nCount ], [ nRecno ], [ lRest ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

bBlock

bloco de código

Indica o bloco de código que será executado para cada registro processado.

X

 

bFirstCondition

bloco de código

Primeiro Code Block com condição para inserir registro.

 

 

bSecondCondition

bloco de código

Segundo Code Block com condição para inserir registro.

 

 

nCount

numérico

Numero maximo de registros a ser processado.

 

 

nRecno

numérico

Unico registro a ser processado.

 

 

lRest

lógico

Indica que os demais registros serão processados.

 

 

Retorno

Nome

Tipo

Descrição

uRet

nil

Sempre retorna nulo.

Exemplos

FUNCTION Example()

  Local cT1 = 'T1'
  Local cT2 = 'T2'
  
  TCLink()
  
  DBCreate("T1", {{"FIELD_NAME", "C", 10, 0}, ;
                  {"FIELD_TYPE", "C", 10, 0}}, "TOPCONN")
                  
  DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .F.)
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "Jose"
  (cT1)->FIELD_TYPE := "string"
  (cT1)->( DBCommit() )
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "Maria"
  (cT1)->FIELD_TYPE := "string"
  (cT1)->( DBCommit() )
 
  DBCloseArea()
  
  DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .F.)
  
  //imprimi 2 vezes o valor "teste" no console
  DBEval({ || conout("teste")})
    
  DBCloseArea()
  
  TCUnlink()
RETURN

Veja também

  • No labels