CLEAR
? 'PROGRAM COMPARES AMT PAID TO CACULATED AMOUNT OF ACTUAL INVMAIN FILES'
SELECT 1
USE INVOICE
GOTO BOTT
STORE RECNO() TO EE
GOTO TOP
SELECT 2
USE INVMAIN
INDEX ON INUMBER TO KK
USE INVMAIN INDEX KK
SELECT 1
STORE 2500 TO RR
DO WHILE .T. 
IF RR> EE
 ? 'END'
 QUIT
ENDIF
@ 4,0 SAY RR
GOTO RR
IF INUMBER = 0
 STORE RR+1 TO RR
 LOOP
ENDIF
STORE AMTPAID+AMTPAID1+AMTPAID2+AMTPAID3 TO AA
STORE INUMBER TO II
STORE TAXRATE TO TT
IF AA=0
 STORE RR+1 TO RR
 LOOP
ENDIF
@ 7,0 SAY II
SELECT 2
SEEK II
IF EOF()
 ? 'AMTPAID HAS AN AMOUNT IN IT BUT NOT FILES IN INVMAIN'
 ? RECNO()
 WAIT
 SELECT 1
 STORE RR+1 TO RR 
 LOOP
ENDIF
STORE 0 TO CC
DO WHILE .NOT. EOF() .AND. INUMBER = II
IF TAX <> ' '
 STORE CC+(QTY*SELL)+(QTY*(SELL)*TT) TO CC
ELSE
 STORE CC+(QTY*(SELL)) TO CC
ENDIF
SKIP
ENDDO
IF STR(CC,10,2) <> STR(AA,10,2)
 ? 'AMTPAID - ' + STR(AA) + '   DOES NOT EQUAL THE CACULATED AMTPAID - ' + STR(CC)
 ? ' '
 WAIT
ENDIF
SELECT 1
STORE RR+1 TO RR 

ENDDO