home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB3AR.ARC / CHECKER.PRG < prev    next >
Encoding:
Text File  |  1985-10-14  |  1.2 KB  |  54 lines
  1. *!!*       dBASE CONVERT - dBASE III File Conversion Aid  v1.0 6/14/84
  2. *
  3. SET HEADING OFF
  4. SET SAFETY OFF
  5. SET TALK OFF
  6. ******************************************* (B:CHECKER.PRG)
  7. CLEAR
  8. USE B:INV
  9. GO TOP
  10. SET EXACT OFF
  11. @ 5,1 SAY 'These invoices have a net amount due of $0.00 and show as OPEN '
  12. ?
  13. LIST OFF ACCT,INVNO,NEWDATE,PRICE,CRINV,AMTAPPL,NET FOR .NOT. ì
  14. PAID .AND. NET=0
  15. ?
  16. ? 'Be careful of any of these...... '
  17. ?
  18. LIST OFF ACCT,INVNO,NEWDATE,PAYDATE,PRICE,NET FOR NET<0.00
  19. ?
  20. ? '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
  21. ~~~~'
  22. ?
  23. WAIT
  24. @ 2,0 CLEA
  25. SET EXACT ON
  26. ?
  27. ? "This takes a long time,don't touch anything until I say it's ì
  28. OK "
  29. ?
  30. ? 'Are these dates for real?'
  31. ? '                    WAIT!'
  32. GO TOP
  33. DO WHILE .NOT. EOF()
  34. *STORE '  /  /  ' TO XDATE
  35. *STORE '  /  /  ' TO MDATE
  36. STORE YEAR(NEWDATE) TO MDATE
  37. STORE YEAR(DATE()) TO XDATE
  38. STORE XDATE-1 TO XDATE
  39. ***********************\/ <CHANGE HERE
  40. IF MDATE=XDATE
  41. @ 5,0 CLEA
  42. ? 'Account #'+ACCT+STR(MDATE)+'    '+'    '+'Invoice #'+INVNO+'    '+'Amt. ì
  43. Due'+STR(NET,8,2)
  44. ENDIF
  45. SKIP
  46. ENDDO
  47. WAIT ' OK! OK! ------->So touch me already '
  48. CLEA
  49. ?
  50. ? '                   Oooooooooooooh that felt gooooooooooooood...............'
  51. ?
  52. RETURN
  53.  
  54.