home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db3plsar.zip / CHECKER.PRG < prev    next >
Text File  |  1986-08-05  |  2KB  |  80 lines
  1. SET HEADING OFF
  2. SET SAFETY OFF
  3. SET TALK OFF
  4. ******************************************* (CHECKER.PRG)
  5. CLEAR
  6. USE INV
  7. GO TOP
  8. SET EXACT OFF
  9. @ 5,1 SAY 'These invoices have a net amount due of $0.00 and show as OPEN '
  10. ?
  11. LIST OFF ACCT,INVNO,NEWDATE,PRICE,CRINV,AMTAPPL,NET FOR .NOT. ì
  12. PAID .AND. NET=0
  13. ?
  14. ? 'Be careful of any of these...... '
  15. ?
  16. LIST OFF ACCT,INVNO,NEWDATE,PAYDATE,PRICE,NET FOR NET<0.00
  17. ?
  18. ? '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
  19. ~~~~'
  20. ?
  21. WAIT
  22. @ 2,0 CLEA
  23. SET EXACT ON
  24. ?
  25. ? "This takes a long time,don't touch anything until I say it's ì
  26. OK "
  27. ?
  28. ? [Are these dates for real?....They're over a year old!]
  29. ? '                    WAIT!'
  30. GO TOP
  31. DO WHILE .NOT. EOF()
  32.    STORE YEAR(NEWDATE) TO MDATE
  33.    STORE YEAR(DATE()) TO XDATE
  34.    STORE XDATE-2 TO XDATE
  35.    ***********************\/ <CHANGE HERE
  36.    IF MDATE=XDATE
  37.       @ 5,0 CLEA
  38.       ? 'Account #'+ACCT+STR(MDATE)+'    '+'    '+'Invoice #'+INVNO+'    '+'Amt. ì
  39. Due'+STR(NET,8,2)
  40.    ENDIF
  41.    SKIP
  42. ENDDO
  43. WAIT ' OK! OK! ------->So touch me already '
  44. CLEA
  45. ?
  46. ?
  47. CLEA
  48. STORE 1 TO X
  49. STORE '    ' TO WHO
  50. STORE 1 TO CUSTNO
  51. USE CUST
  52. COUNT TO CUSTNO
  53. USE INV
  54. ? [I am looking for invoices with no customer to match...]
  55. SET TALK ON
  56. DO WHILE X<>CUSTNO
  57.    USE INV
  58.    GOTO X
  59.    STORE ACCT TO WHO
  60.    USE CUST
  61.    LOCA FOR ACCT=WHO
  62.    IF EOF()
  63.       ? CHR(7)
  64.       ? 'HEY!! YOU HAVE AN INVOICE IN THE FILE THAT HAS NO CUSTOMER TO MATCH!!'
  65.       ?
  66.       ?
  67.       ?
  68.       ? [                       I'm going to show you what I mean....]
  69.       ?
  70.       ?
  71.       WAIT
  72.       USE INV
  73.       GOTO X
  74.       BROW
  75.    ENDIF
  76.    STORE X+1 TO X
  77. ENDDO
  78. SET TALK OFF
  79. RETURN
  80.