Software Du Jour/SoftwareDuJour.iso/BUSINESS/DBASE/DB3AR.ARC/MENU.PRG

Text File | 1985-10-17 | 3.5 KB | 174 lines

CLEAR
SET INTEN OFF
SET DELIM TO '[]'
SET DELIM ON
SET HEAD OFF
SET TALK OFF
SET BELL OFF
SET FUNC 9 TO 'DO B:MENU;'
SET SAFE OFF
****************** (B:MENU.PRG)
DO WHILE .T.
CLEAR
? [COPYRIGHT OCT 15,1985  JAY'S OFFICE SUPPLIES,INC.]
RESTORE FROM B:MTITLE
? [&MTITLE]
?
? "Jay's Office Supplies,Inc. 824 Camino Del Rio North -#329  ì
San Diego,CA 92108"
? "Voice phone San Diego 619-295-6053"
? "Data phone RBBS-Jay's Office Supplies  300/1200 baud 24 hours ì
619-291-5682"
RESTORE FROM B:MADD1
RESTORE FROM B:MADD2
RESTORE FROM B:MPHONE
CLEA
TYPE B:MENU.TXT
STORE 0 TO T
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'
STORE ' ' TO OPTION
CLEAR
?
WAIT '                   Are you sure you want to put it away? ' TO OPTION
IF OPTION<>'Y'
LOOP
ENDIF
CLEA
QUIT
CASE choice = 'X'
CLEAR
SET FUNCT 3 TO 'DO B:NAMECHG;'
SET FUNCT 4 TO 'DO B:SORTINV;'
SET FUNCT 5 TO 'EJECT;'
SET FUNCT 6 TO 'DO B:BUCKS;'
SET FUNCT 8 TO 'DO B:CLOSEOUT;'
SET FUNCT 10 TO 'DO B:EDIT;'
SET FUNCT 7 TO 'DO B: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 scan invoices'
?
RETURN
CASE choice = '1'
CLEA
SET FUNCT 3 TO 'DO B:INV;'
@ 15,20 SAY 'Press F3 to continue...'
RETURN
CASE choice = '2'
DO B:EDITINV
CASE choice = '3'
DO B:CREDIT
CASE choice = '4'
DO B:PRGPMT
CASE choice = '5'
DO B:ADDNAMES
CASE choice = '6'
DO B:EDITACC
CASE choice = '7'
DO B:FSTATE
CASE choice = '8'
DO B:STMT
CASE choice = 'A'
DO B:BAL
CASE choice = 'G'
DO B:LABELS
CASE choice = 'C'
DO B:CHECKER
CASE CHOICE = 'D'
DO B:LATE
CASE choice = 'E'
DO B:SALES
CASE choice = 'F'
DO B:PRTSALES
CASE choice = 'H'
DO B:DATA
CASE choice = 'I'
DO B:ADDIT
CASE choice = 'B'
DO B:ALLBAL
CASE choice = '9'
CLEAR
INET=0.00
CNET=00
USE B:INV
SET TALK ON
SUM NET TO INET
MDATE=DATE()
SUM NET TO E FOR NEWDATE <= MDATE-120
SUM NET TO F FOR NEWDATE <= MDATE-150
USE B: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
SET TALK OFF
@ 2,0 CLEAR
@ 8,1 SAY 'Invoice file total'
@ 8,20 SAY STR(INET,9,2)
@ 10,1 SAY 'Customer file total'
@ 10,20 SAY STR(A,9,2)
@ 13,1 SAY 'If these totals are different you are not updated.'
@ 17,1 SAY 'Do you want to print the report now?'
?
STORE ' ' TO OPTION
WAIT ' ?  ' TO OPTION
IF OPTION<>'Y'
ENDDO
ELSE
REPO FORM B:TOTAL FOR NET<>0.00 HEAD [&MTITLE;ACCOUNTS RECEIVABLE ì
REPORT] NOEJECT TO PRINT
SET PRIN ON
? SPAC(15)+'-----------------------------------------------'
? SPAC(15)+'Over 30 days past due date  '+STR(B,9,2)+' -- '+STR(BA,5,2)+'%'
? SPAC(15)+'Over 45 days past due date  '+STR(C,9,2)+' -- '+STR(CA,5,2)+'%'
? SPAC(15)+'Over 60 days past due date  '+STR(D,9,2)+' -- '+STR(DA,5,2)+'%'
? SPAC(15)+'Over 90 days past due date  '+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)+'-----------------------------------------------'
?
? CHR(12)
SET PRIN OFF
CLEAR
LOOP
ENDIF
OTHERWISE
CLEAR
DO B:FIDO
LOOP
ENDCASE choice
ENDDO B:MENU