DbAppend()
Allgemeines
Die DbAppend() Funktion ermöglicht es einen neuen, leeren Datensatz an das Ende einer DBF-Datei zu hängen.
Als Gegenstück kann auch APPEND BLANK verwendet werden.
Syntax
DbAppend( [<nLockMode>] ) --> NIL
Parameter
<nLockMode> Wenn für <nLockMode> der Wert 1 gesetzt wird, bleiben Satzsperren bestehen, die beim Aufruf von DbAppend() gesetzt waren. Im anderen Fall werden alle, zu dem Zeitpunkt vorhandenen Satzsperren, aufgehoben.
Querverweise
benötigte DLLs bzw. Include-Dateien
Anwendungsbeispiel
PROCEDURE Main LOCAL cArticle := Space(50) LOCAL cArtNo := Space(10) CLS DbUseArea(.T.,,"artikel","art") art->(DbSetIndex("ArtikelA")) art->(DbSetIndex("ArtikelB")) @ 12,5 SAY "Nummer :" GET cArtNo PICTURE "99999999" @ 13,5 SAY "Bezeichnung:" GET cArticle PICTURE "@K !" + Repl("X",19) READ IF ! Empty( cArtNo + cArticle ) art->(DbAppend()) IF NetErr() ? "Datensatz konnte nicht erzeugt werden" ELSE art->ArtNo := cArtNo art->Artikel := cArticle ENDIF ENDIF art->(DbCloseArea()) RETURN