Shareware Overload/ShartewareOverload.cdr/busi/chkmstr.zip/CSTATS.PRG

Text File | 1990-02-23 | 2KB | 86 lines

CLEAR
VALU=CRUN+CNTOT
DO WHILE .T.
CHOICE= " "
@1,1 TO 23,78 DOUBLE
@2,10 TO 4,68
@3,23 SAY "**** ACCOUNT { C } STATISTICS ****"
@6,3 SAY "GROSS TOTAL INCOME  $$  " + STR(CGIN,9,2)
@6,42 SAY "GROSS TOTAL EXPENSE  $$  " + STR(CGEXP,9,2)
@8,3 SAY "NET TOTAL INCOME    $$  " + STR(CNTOT,9,2)
@8,42 SAY "RUNNING TOTAL        $$  " + STR(VALU,9,2)
@10,10 TO 12,68
@11,26 SAY "**** ACCOUNT { C } MENU ****"
@14,25 SAY "S - PRINT ACCOUNT { C } SUMMARY"
@16,25 SAY "P - PRINT DETAIL FILE"
@18,25 SAY "A - ADD TO DETAIL FILE"
@20,25 SAY "E - EXIT"
@22,25 SAY "ENTER CHOICE" GET CHOICE
READ
CHOICE=UPPER(CHOICE)
CHOICEB=CHOICE
DO CASE
CASE .NOT. (CHOICE $ 'SPAE')
@24,14 SAY "**** ENTER CHOICE = S-P-A-E. YOU ENTERED { ";
+CHOICEB+" } ! ****"
CASE CHOICE= "S"
DO CSUMRY
CASE CHOICE= "P"
PRT=" "
CLEAR
@2,20 SAY "TO DISPLAY TO SCREEN, ENTER { S }"
@3,20 SAY "TO PRINT TO PRINTER, ENTER { P }"
DO WHILE .NOT. (UPPER(PRT) $ 'SP')
WAIT " " TO PRT
ENDDO
RETYEAR= "    "
DONE= "  "
@8,20 SAY "ENTER { DATE } OF RECORDS YOU WISH"
@9,20 SAY "TO RETRIVE FROM THE DETAIL FILE."
@11,20 SAY "LEAVE MONTH BLANK FOR FULL YEAR !"
@12,20 SAY "          { MONTH }  " GET DONE
@13,20 SAY "          { YEAR  }  " GET RETYEAR
READ
DVCE=VAL("&DONE")
RTYV=VAL("&RETYEAR")
IF MYEAR-RTYV=0
CLEAR
@10,10 SAY "SEARCHING ACCOUNT { C } DETAIL FILE"
@11,10 SAY "RECORDS FOR DATE { "+DONE+"  "+RETYEAR+" } --------------"
USE ACCTC INDEX ACCTC
ELSE
CLEAR
@10,10 SAY "SEARCHING ACCOUNT { C } ARCHIVE FILE"
@11,10 SAY "RECORDS FOR DATE { "+DONE+"  "+RETYEAR+" } -------------"
USE ACCAR INDEX ACCAR
ENDIF
DELETE FOR YEAR(DATE) <> RTYV
IF DVCE >0
DELETE FOR MONTH(DATE) <> DVCE
ENDIF
IF PRT = "P"
CLEAR
@10,10 SAY "PRINTING SELECTED ACCOUNT { C }"
@11,10 SAY "RECORDS FOR DATE { "+DONE+"  "+RETYEAR+" } -------------"
SET PRINT ON
SET CONSOLE OFF
LIST
SET CONSOLE ON
SET PRINT OFF
ELSE
DISPLAY ALL
WAIT
ENDIF
SET DELETED OFF
RECALL ALL
SET DELETED ON
CLEAR
CASE CHOICE= "A"
DO ACTC99
CLEAR
CASE CHOICE= "E"
DO CHEXMENU
ENDCASE
ENDDO
RETURN