Flushes the memory buffer and performs a hard-disk write
FUNCTION Main() LOCAL cName:=SPACE(40) LOCAL nId:=0 USE Test EXCLUSIVE NEW USE TestId New INDEX Testid // @ 10, 10 GET cName @ 11, 10 GET nId READ // IF UPDATED() APPEND BLANK REPLACE Tests->Name WITH cName REPLACE Tests->Id WITH nId IF !TestId->(DBSEEK(nId)) APPEND BLANK REPLACE Tests->Id WITH nId ENDIF ENDIF DBCOMMITALL() RETURN NIL