BUG: LOCATE NEXT n or LOCATE REST Fail If Started from BOF (156090)

MORE INFORMATION

Steps to Reproduce Behavior

1. Run the following code from a program (.prg) file:

     * Start of code example
      *
      CLEAR
      CREATE TABLE test (field1 c(40))
      INSERT INTO test VALUES ('test 1')
      INSERT INTO test VALUES ('test 2')
      GO TOP
      SKIP -1                         && Moves to BOF
      ? 'BOF() after SKIP -1:', BOF()
      LOCATE REST FOR !EMPTY(field1)
      ? 'FOUND():', FOUND()           && Incorrectly returns .F.
      ? 'RECNO():' + STR(RECNO(),2)   && Returns 1 even if BOF() = .T.
      ? 'BOF():', BOF()               && Should return .F. - should have gone
                                      && to record 1
      GO TOP
      ? 'BOF() after GO TOP:', BOF()
      LOCATE REST FOR !EMPTY(field1)
      ? 'FOUND():', FOUND()           && Correctly returns .T.
      ? 'RECNO():' + STR(RECNO(),2)   && Returns 1
      ? 'BOF():', BOF()               && Returns .F. as expected
      *
      * End of code example
   						

2. The first FOUND() function returns .F., although for the first record, field1 is not Empty. The BOF() function returns .T., though the record pointer should have been moved by the LOCATE() function.

• The LOCATE NEXT n command behaves the same way as the LOCATE REST command. The LOCATE RECORD, LOCATE ALL, and LOCATE commands with no scope clause work properly.
• If the first record does not satisfy the FOR condition, as long as another record matches the FOR condition, the record pointer is moved and the FOUND() and the BOF() functions are updated correctly.
• If no record satisfies the FOR condition, both the BOF() and the EOF() functions return .T.