* For cancelation of checks when bank statement arrives in mail.
*
* - loop while check number not equal to zero
SET TALK OFF
USE $CHECKS
DO WHILE T
ERASE
?
?
?
? ' CHECK CANCELLATION MENU'
? ' ======================='
?
?
? ' Enter check number of ZERO to EXIT'
?
?
INPUT ' Enter cancelled check number ' TO c:can
* - testing for zero check number
IF c:can = 0
RELEASE c:can, answer
USE
RETURN
ENDIF
* - position to top of database and search for cancelled checks.
GO TOP
LOCATE FOR c:can = NO .AND. .NOT. CAN
* - testing to see if at end of database file
IF .NOT. EOF
* - if not at end of file display check data
ERASE
?
?
? ' CHECK CANCELLATION VERIFICATION'
? ' -----------------------------------'
?
?
? ' CHECK NUMBER: ', c:can
?
? ' Paid to: ', to
? ' on: ', date
?
? ' Amount of check is: ', amt
?
* - ask if this is right check
?
?
? ' Is this the RIGHT one (Y/any) ?'
SET CONSOLE OFF
WAIT TO answer
STORE !(answer) TO answer
SET CONSOLE ON
IF answer = 'Y'
* - change logical flag for cancelled check
REPLACE can WITH T
ELSE
LOOP
ENDIF
ELSE
* - message to tell user his check is not in file.
?
?
? ' Check ', c:can, ' cannot be found'
?
?
? ' Press any key to continue...'
SET CONSOLE OFF
WAIT
SET CONSOLE ON
ENDIF
ENDDO
63.22T07/01/84RR A 558FIVE FIFTY EIGHT 22.00T07/01/84RE A 559TEST 37.07T07/01/84UU A 560ONE FOR THE MONEY 1.00T07/01/84EE A 561TWO FOR THE SHOW aid to: ', to
