Shareware Overload/ShartewareOverload.cdr/database/db3plsar.zip/MENU.PRG

Text File | 1986-08-04 | 5KB | 201 lines

SET DEFAULT TO B:
SET SCOREBOARD ON
SET STATUS OFF
SET TALK OFF
LOAD TWENTY.BIN && Opens up to 20 files
LOAD NUMON.BIN && Turns on  Num Lock
LOAD NUMOFF.BIN && Turns off Num Lock
LOAD CAPSON.BIN && Turns on  Caps Lock
LOAD CAPSOFF.BIN && Turns off Caps Lock
CALL CAPSON.BIN
CALL TWENTY.BIN
CLEAR
@ 12,29 SAY [Jay's Office Supplies,Inc.]
@ 10,10 TO 14,70 DOUB
@ 7,7 TO 17,72 DOUB
@ 5,5 TO 19,74 DOUB
@ 3,3 TO 21,76 DOUB
@ 1,1 TO 23,79 DOUB
@ 1,1 TO 23,79
@ 3,3 TO 21,76
@ 5,5 TO 19,74
@ 7,7 TO 17,72
@ 10,10 TO 14,70
@ 12,29 SAY [JAY'S OFFICE SUPPLIES,INC.]
SET INTEN OFF
SET DELIM TO '[]'
SET DELIM ON
SET HEAD OFF
SET TALK OFF
SET BELL OFF
SET FUNC 9 TO 'DO MENU;'
SET SAFE OFF
****************** (MENU.PRG)
DO WHILE .T.
   CLEAR
   RESTORE FROM MADD1
   RESTORE FROM MADD2
   RESTORE FROM MPHONE
   TYPE MENU.TXT
   STORE 0 TO T
   RESTORE FROM MTITLE
   STORE LEN(MTITLE) TO T
   STORE (80-T)/2 TO T
   @ 3,T SAY MTITLE
   ?
   ?
   ?
   ?
   ?
   ?
   ?
   ?
   ?
   ?
   ?
   ?
   ?
   ?
   ?
   ?
   ?
   ?
   ?
   ?
   WAIT '                              Select option  ' TO choice
   DO CASE
      CASE choice = '0'
         CLEA
         CALL CAPSOFF.BIN
         QUIT
      CASE choice = 'X'
         CLEAR
         SET SCOREBOARD ON
         SET FUNCT 3 TO 'DO NAMECHG;'
         SET FUNCT 4 TO 'DO SORTINV;'
         SET FUNCT 5 TO 'EJECT;'
         SET FUNCT 6 TO 'DO BUCKS;'
         SET FUNCT 8 TO 'DO CLOSEOUT;'
         SET FUNCT 10 TO 'DO BACKUP;'
         SET FUNCT 7 TO 'DO MANUAL;'
         @ 4,1 SAY 'Press F3 key to change company name'
         @ 6,1 SAY 'Press F4 key to sort invoices by account and date'
         @ 8,1 SAY 'Press F5 key to form feed printer one page.'
         @ 10,1 SAY 'Press F6 key to see YTD totals'
         @ 12,1 SAY 'Press F7 key to read or print manual'
         @ 14,1 SAY 'Press F8 key to delete paid invoices'
         @ 16,1 SAY 'Press F9 key to return to menu'
         @ 18,1 SAY 'Press F10 key to back up hard disk'
         ?
         ? ' Space on default drive: '+STR(DISKSPACE())
         RETURN
      CASE choice = '1'
         DO INV
      CASE choice = '2'
         DO EDITINV
      CASE choice = '3'
         DO CREDIT
      CASE choice = '4'
         DO PRGPMT
      CASE choice = '5'
         DO ADDNAMES
      CASE choice = '6'
         DO EDITACC
      CASE choice = '7'
         DO FSTATE
      CASE choice = '8'
         DO STMT
      CASE choice = 'A'
         DO BAL
      CASE choice = 'G'
         DO LABELS
      CASE choice = 'C'
         DO CHECKER
      CASE CHOICE = 'D'
         DO LATE
      CASE choice = 'E'
         DO SALES
      CASE choice = 'F'
         DO PRTSALES
      CASE choice = 'H'
         DO DATA
      CASE choice = 'I'
         DO ADDIT
      CASE choice = 'B'
         DO ALLBAL
      CASE choice = '9'
         CLEAR
         INET=0.00
         CNET=00
         USE INV
         SET TALK ON
         SUM NET TO INET
         MDATE=DATE()
         SUM NET TO E FOR NEWDATE <= MDATE-90
         SUM NET TO F FOR NEWDATE <= MDATE-120
         USE CUST
         SUM NET,OLD_30,OLD_45,OLD_60 TO A,B,C,D
         STORE B/A*100 TO BA
         STORE C/A*100 TO CA
         STORE D/A*100 TO DA
         STORE E/A*100 TO EA
         STORE F/A*100 TO FA
         USE PAID
         STORE 0 TO OLDPAID
         AVER NEWDATE-PAYDATE TO OLDPAID FOR PRICE<>0.00 .AND. PAID
         STORE ABS(OLDPAID) TO OLDPAID
         USE INV
         STORE 0 TO X
         AVER NEWDATE-PAYDATE TO X FOR PAID
         STORE ABS(X) TO X
         SET TALK OFF
         USE CUST
         CLEAR
         @ 6,1 SAY 'Average pay days from date of invoice current month'
         @ 6,52 SAY STR(X,3,0)
         @ 8,1 say 'Average pay days from big PAID.DBF'
         @ 8,36 SAY STR(OLDPAID,3,0)
         @ 10,1 SAY 'Invoice file total'
         @ 10,20 SAY STR(INET,9,2)
         @ 12,1 SAY 'Customer file total'
         @ 12,20 SAY STR(A,9,2)
         @ 15,1 SAY 'If these totals are different you are not updated.'
         @ 19,1 SAY 'Do you want to print the report now?'
         ?
         STORE ' ' TO OPTION
         WAIT ' ?  ' TO OPTION
         IF OPTION<>'Y'
         ENDDO
      ELSE
         SET PRINT ON
         REPO FORM TOTAL FOR NET<>00.00 HEAD [&MTITLE;ACCOUNTS RECEIVABLE ì
REPORT] NOEJECT
         ?
         ? SPAC(15)+'-----------------------------------------------'
         ? SPAC(15)+'30 days from date of invoice '+STR(B,9,2)+' -- '+STR(BA,5,2)+'%'
         ? SPAC(15)+'45 days from date of invoice '+STR(C,9,2)+' -- '+STR(CA,5,2)+'%'
         ? SPAC(15)+'60 days from date of invoice '+STR(D,9,2)+' -- '+STR(DA,5,2)+'%'
         ? SPAC(15)+'90 days from date of invoice '+STR(E,9,2)+' -- ì
'+STR(EA,5,2)+'%'
         ? SPAC(15)+'Over 120 days past due date '+STR(F,9,2)+' -- ì
'+STR(FA,5,2)+'%'
         ? SPAC(15)+'Average days from date of invoice to pay:'+STR(X,3,0)+' days'
         ? SPAC(15)+'Average pay days from big ì
PAID.DBF :     '+STR(OLDPAID,3,0)+' days'
         ? SPAC(15)+'-----------------------------------------------'
         ?
         ? CHR(12)
         REPO FORM OLD FOR OLD_30>0.00
         ?CHR(12)
         SET PRIN OFF
         CLEAR
         LOOP
      ENDIF
   OTHERWISE
      CLEAR
      DO FIDO
      LOOP
ENDCASE choice
ENDDO MENU