Page tree

Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle
DBAppend
DBAppend

Função: DBAppend

Adiciona

...

um

...

novo

...

registro

...

vazio

...

na

...

tabela

...

corrente.

Sintaxe

Code Block
collapsefalse
DBAppend( [

...

 lUnlock ] )

...


Parâmetros

...

 

Nome

Tipo

Descrição

Obrigatório

Referência

...

lUnlock

...

lógico

Indica se, verdadeiro (.T.), libera todos os registros bloqueados anteriormente (locks); caso contrário, falso (.F.), todos os bloqueios anteriores são mantidos durante a inserção. O Valor padrão é verdadeiro (.T.).

 

 

 

Nil (Nulo)
// Este exemplo apresenta como utilizar a função DBAppend() para liberar e manter bloqueios anteriores.
USE Clientes NEW
FOR i:=1 to 5
DBAPPEND(.F.)
NOME := "XXX"
END : ="YYY"
NEXT // Os 5 registros incluídos permanecem bloqueados
DBAPPEND()// Todos os bloqueios anteriores são liberados e um novo registro é inserido
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

 

 

Retorno

Nome

Tipo

Descrição

uRet

nil

Retorno sempre é nulo

Exemplos

Code Block
languagecpp
themeEclipse
linenumberstrue
collapsefalse
STATIC FUNCTION CreateTable()
  TCDelFile('T1')
  
  DBCreate('T1', {{"FIELD_NAME", "C", 10, 0}, ;
                  {"FIELD_TYPE"   , "C", 10, 0}}, 'TOPCONN')
RETURN

FUNCTION Example()
  Local cT1 := "T1"
  
  TCLink()
  
  CreateTable()

  DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .F.)
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "name"
  (cT1)->FIELD_TYPE := "string"
  (cT1)->( DBCommit() )
 
  DBCloseArea()
  
  TCUnlink()
RETURN

Veja também