* Program : REPORTS.PRG * Version : V4.2 * Author(s) : Joe Tomas * Date : 07/27/86 * Notice : * Called by : SYSMGR1.PRG * Call(s) : * Notes : REPORT MENU FOR PRINTING FINANCIAL REPORTS & * : PHYSICAL INVENTORY WORKSHEET CLEAR DO WHILE .T. STORE " " TO ANS call paint with "rptsmenu.img" @ 20,32 GET ANS READ STORE UPPER(ANS) TO ANS CLEAR GETS DO CASE CASE VAL(ANS) = 1 DO PRICELST CASE VAL(ANS) = 2 DO DECUSRPT CASE VAL(ANS) = 3 STORE ; 'CASH REVENUE (TAXABLE) BY PRODUCT - SUMMARY REPORT' TO TITLE DO FINRPT WITH ANS,TITLE CASE VAL(ANS) = 4 STORE ; 'CASH REVENUE (TAX EXEMPT) BY PRODUCT - SUMMARY REPORT' TO TITLE DO FINRPT WITH ANS,TITLE CASE VAL(ANS) = 5 STORE ; 'CREDIT CARD REVENUE (TAXABLE) BY PRODUCT - SUMMARY REPORT' TO TITLE DO FINRPT WITH ANS,TITLE CASE VAL(ANS) = 6 STORE ; 'CREDIT CARD REVENUE (TAX EXEMPT) BY PRODUCT - SUMMARY REPORT' TO TITLE DO FINRPT WITH ANS,TITLE CASE VAL(ANS) = 7 STORE ; 'PURCHASE ORDERS REVENUE (TAXABLE) BY PRODUCT - SUMMARY REPORT' TO TITLE DO FINRPT WITH ANS,TITLE CASE VAL(ANS) = 8 STORE ; 'PURCHASE ORDERS REVENUE (TAX EXEMPT) BY PRODUCT - SUMMARY REPORT' ; TO TITLE DO FINRPT WITH ANS,TITLE CASE VAL(ANS) = 9 DO PHYSICAL CASE VAL(ANS) = 10 DO PRODLABL CASE ANS = 'E' USE CLEAR RETURN OTHERWISE @ 23,00 ?? VBELL3 ENDCASE ENDDO