CREATE TABLE t1 (f1 D NOT NULL)
APPEND BLANK 
REPLACE f1 WITH DATE(1900,1,1)
?f1		&&vidaet: 01.01.1900 

oCA = NEWOBJECT('Cursoradapter')
oCA.DataSourceType = 'NATIVE'
oCA.Alias = 'csr_t1'
oCA.SelectCmd = 'SELECT f1 FROM t1'
oCA.CursorFill()


SELECT csr_t1
?"GETFLDSTATE=" + TRANSFORM( GETFLDSTATE('f1'))  &&vidaet: 1 (=Field has NOT been modified )

REPLACE f1 WITH CTOD('')    
?f1		&&vidaet: {  .  .    } 
?"GETFLDSTATE=" + TRANSFORM( GETFLDSTATE('f1'))  &&vidaet: 2 (=Field HAS been modified )

REPLACE f1 WITH OLDVAL('f1')      && @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
?f1		&&vidaet: 01.01.1900 
?"GETFLDSTATE=" + TRANSFORM( GETFLDSTATE('f1'))  &&vidaet: 2 (=Field HAS been modified )

?TABLEREVERT(.t., 'csr_t1')		&&vidaet: 1 
?f1		&&vidaet: 01.01.1900 

RELEASE oCA 
DROP TABLE t1