PRB: Table Buffer Contains Uncommitted Changes on REQUERY() (249836)

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a program file named "BUFFDEMO" using the following code:

   CREATE TABLE test (Charfld c(10), Numfld N(10,4))
   CLOSE ALL
   
   CREATE DATA test
   CREATE CONNECTION testa CONNSTRING 'DRIVER=Microsoft Visual FoxPro Driver;' + ;
      'exclusive=no;SourceType=DBF;SourceDB='+SYS(5)+SYS(2003)
   
   ON ERROR DO errordemo IN buffdemo WITH MESSAGE()
   
   CREATE SQL VIEW myview CONNECTION testa ;
      AS SELECT * FROM test
   
   *Set View Properties
   DBSETPROP('MyView','View','SendUpdates',.T.)
   DBSETPROP('MyView','View','UpdateType',1)
   DBSETPROP('MyView','View','WhereType',3)
   DBSETPROP('MyView','View','BatchUpdateCount',1)
   DBSETPROP('MyView','View','UseMemoSize',255)
   DBSETPROP('MyView','View','FetchSize',100)
   DBSETPROP('MyView','View','MaxRecords',-1)
   DBSETPROP('MyView','View','Tables','test')
   DBSETPROP('MyView','View','Prepared',.F.)
   DBSETPROP('MyView','View','FetchMemo',.F.)
   DBSETPROP('MyView','View','CompareMemo',.F.)
   DBSETPROP('MyView','View','FetchAsNeeded',.F.)
   DBSETPROP('MyView','View','FetchSize',100)
   DBSETPROP('MyView','View','Comment',"")
   *DBSETPROP('MyView','View','ShareConnection',.T.)
   * Set Key and Updateable fields.
   DBSETPROP('MyView.Charfld','Field','KeyField',.T.)
   DBSETPROP('MyView.Charfld','Field','Updatable',.T.)
   DBSETPROP('MyView.Charfld','Field','UpdateName','test.charfld')
   DBSETPROP('MyView.Charfld','Field','DataType',"C(10)")
   DBSETPROP('MyView.Numfld','Field','KeyField',.F.)
   DBSETPROP('MyView.Numfld','Field','Updatable',.T.)
   DBSETPROP('MyView.Numfld','Field','UpdateName','test.numfld')
   DBSETPROP('MyView.Numfld','Field','DataType',"N(10,4)")
   
   SET MULTILOCKS ON
   
   USE myview
   =CURSORSETPROP('buffering',5)
   INSERT INTO myview VALUES ("test",1)
   *!* TABLEUPDATE(.T.)
   =REQUERY('myview')
   BROW
   ON ERROR
   CLOSE ALL
   
   PROCEDURE errordemo
   PARAMETER whatfailed
   messagebox(whatfailed,16+0,"Error")
   =TABLEREVERT(.T.)
   					

2. Run the program file.
3. Note the message displayed in the message box.
4. Uncomment the TABLEUPDATE(.t.) command in BUFFDEMO.prg.
5. Run the program file.
6. Note that the remote view is updated and no error message appears.