home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3plsar.zip
/
MENU.PRG
< prev
next >
Wrap
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