home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / TBFWANXT.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  721 b   |  32 lines
  1.     // TBFwaNxt.prg
  2.     //
  3.     // TBfwaGoNext() - Move to next record supporting for and while
  4.     //                 conditions and append mode
  5.  
  6.     FUNCTION TBfwaGoNext(bFor, bWhile, lAppend)
  7.  
  8.     LOCAL nSaveRecNum := recno()
  9.     LOCAL lMoved := .T.
  10.  
  11.       IF eof()
  12.         lMoved := .F.
  13.       ELSE
  14.         SKIP
  15.         DO WHILE !eval(bFor) .AND. eval(bWhile) .AND. !eof()
  16.           SKIP
  17.         ENDDO
  18.  
  19.         IF eof() .AND. lAppend
  20.           // fine ...
  21.         ELSEIF !eval(bWhile) .OR. eof()
  22.           IF !eval(bWhile) .AND. lAppend
  23.             GOTO 0
  24.           ELSE
  25.             lMoved := .F.
  26.             GOTO nSaveRecNum
  27.           ENDIF
  28.         ENDIF
  29.       ENDIF
  30.  
  31.     RETURN lMoved
  32.