home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db3plsar.zip / ALLBAL.PRG < prev    next >
Text File  |  1986-08-04  |  2KB  |  64 lines

  1. ************************************* (ALLBAL.PRG)
  2. CLEAR
  3. @ 13,1 SAY [Do you want to update all customers to today's date?]
  4. ?
  5. STORE ' ' TO OPTION
  6. WAIT ' ?  ' TO OPTION
  7. IF OPTION<>'Y'
  8.    RETURN
  9. ENDIF
  10. CLEAR
  11. SET EXACT ON
  12. SET TALK ON
  13. USE CUST
  14. STORE 0 TO TIMES
  15. COUNT TO TIMES FOR NET=0.00 .AND. OLD_30<>0.00
  16. GO TOP
  17. IF TIMES>0
  18.    REPL ALL OLD_30 WITH 0.00 FOR NET=0.00
  19.    REPL ALL OLD_45 WITH 0.00 FOR NET=0.00
  20.    REPL ALL OLD_60 WITH 0.00 FOR NET=0.00
  21. ENDIF
  22. USE CUST INDE ACCT
  23. MACCT='    '
  24. MNAME='                              '
  25. ACCEPT 'Start with what account number? ' TO MACCT
  26. DO WHILE .NOT. EOF()
  27.    FIND &MACCT
  28.    STORE NAME TO MNAME
  29.    IF NET<>0.00
  30.       CLEAR
  31.       @ 1,3 SAY "I'm looking at "
  32.       @ 1,18 SAY MNAME
  33.       @ 1,52 SAY 'Account number: '+MACCT
  34.       USE INV
  35.       COPY TO TEMP FOR ACCT = MACCT
  36.       USE TEMP
  37.       STORE 0 TO NUMB
  38.       COUNT TO NUMB
  39.       GO TOP
  40.       MNET=0.00
  41.       OVER30=0.00
  42.       OVER45=0.00
  43.       OVER60=0.00
  44.       SET TALK ON
  45.       IF NUMB>0
  46.          @ 1,3 SAY "I'm working on "
  47.          SUM NET FOR ACCT = MACCT TO MNET
  48.          SUM NET FOR ACCT = MACCT .AND. NEWDATE <= DATE() - 30 TO OVER30
  49.          SUM NET FOR ACCT = MACCT .AND. NEWDATE <= DATE() - 45 TO OVER45
  50.          SUM NET FOR ACCT = MACCT .AND. NEWDATE <= DATE() - 60 TO OVER60
  51.       ENDIF
  52.       USE CUST INDEX ACCT
  53.       FIND &MACCT
  54.       REPLACE NET WITH MNET
  55.       REPLACE OLD_30 WITH OVER30
  56.       REPLACE OLD_45 WITH OVER45
  57.       REPLACE OLD_60 WITH OVER60
  58.       SET TALK OFF
  59.    ENDIF
  60.    SKIP +1
  61.    STORE ACCT TO MACCT
  62. ENDDO
  63. RETURN
  64.