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

Text File | 1985-10-15 | 2.9 KB | 104 lines

********************************** (B:PRTSALES.PRG)
STORE DTOC(DATE()) TO MDATE
STORE YEAR(DATE()) TO XDATE
STORE (1900.-XDATE) TO XDATE
STORE SUBSTR(MDATE,1,2) TO R
CLEAR
@ 13,1 SAY 'Are you sure you want to go through with this?'
?
STORE ' ' TO OPTION
WAIT ' ?  ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
CLEA
SET TALK OFF
@ 2,0 CLEAR
USE B:SALES
DO WHILE .NOT. EOF()
SET TALK ON
SET HEADING ON
SUM ì
STORE_RING,COPY_RING,CHARGES,CREDITS_AR,STORE_CASH,COPY_CASHì
 TO MSR,MCR,MCH,MCREDAR,MSTCSH,MCCASH
SUM STORE_RING+COPY_RING TO RINGS
SUM CREDITS_AR+STORE_CASH+COPY_CASH TO MDEPO
SUM STORE_CASH+COPY_CASH TO ALLCASH
SUM STORE_CASH+COPY_CASH+CHARGES TO NEWSALES
AVERAGE ì
STORE_RING,COPY_RING,CHARGES,CREDITS_AR,STORE_CASH,COPY_CASH TO ì
ASR,ACR,ACHG,ACRED,ASC,ACC
@ 2,0 CLEAR
USE B:INV
? 'Jay:'
?
?
SUM PRICE FOR SALES='J' .AND. NEWDATE >=CTOD('&R/01/&XDATE') TO ì
JAY
?
?
? 'House:'
?
?
SUM PRICE FOR SALES='H' .AND. NEWDATE >=CTOD('&R/01/&XDATE') TO HOUSE
SET TALK OFF
SET HEADING OFF
@ 2,0 CLEAR
SET DEVICE TO PRINT
SET PRINT ON
@ 1,0 SAY '==================================='
@ 1,37 SAY DATE()
@ 1,47 SAY '================================'
@ 2,1 SAY 'Store rings '
@ 2,30 SAY MSR PICTURE '9,999'
@ 2,47 SAY 'Average store ring '
@ 2,68 SAY ASR
@ 3,1 SAY 'Copy center rings '
@ 3,31 SAY STR(MCR,4,0)
@ 3,47 SAY 'Average copy ring '
@ 3,68 SAY ACR
@ 4,1 SAY 'Total rings '
@ 4,30 SAY RINGS PICTURE '9,999'
@ 5,1 SAY '-----------------------------------------------------------------------------'
@ 6,1 SAY 'Charges to A/R '
@ 6,26 SAY MCH PICTURE '99,999.99'
@ 6,47 SAY 'Average charge day'
@ 6,69 SAY ACHG PICTURE '99,999.99'
@ 7,1 SAY '-----------------------------------------------------------------------------'
@ 8,1 SAY 'Credits (A/R recieved) '
@ 8,26 SAY MCREDAR PICTURE '99,999.99'
@ 8,47 SAY 'Average A/R recieved '
@ 8,69 SAY ACRED PICTURE '99,999.99'
@ 9,1 SAY 'Store cash sales '
@ 9,26 SAY MSTCSH PICTURE '99,999.99'
@ 9,47 SAY 'Average store day '
@ 9,72 SAY STR(ASC,6,2)
@ 10,1 SAY 'Copy center cash sales '
@ 10,26 SAY MCCASH PICTURE '99,999.99'
@ 10,47 SAY 'Average copy day '
@ 10,72 SAY STR(ACC,6,2)
@ 11,1 SAY 'Total cash at counters '
@ 11,26 SAY ALLCASH PICTURE '99,999.99'
@ 12,1 SAY '                         ---------'
@ 13,1 SAY 'Deposits to bank '
@ 13,26 SAY MDEPO PICTURE '99,999.99'
@ 13,47 SAY 'Cash sales+charges'
@ 13,69 SAY NEWSALES PICTURE '99,999.99'
@ 15,1 SAY ì
'----------------------------------------------------------------ì
-------------'
@ 16,1 SAY 'JAY KENNEY       $ '
@ 16,26 SAY JAY PICTURE '99,999.99'
@ 16,47 SAY 'House       $ '
@ 16,69 SAY HOUSE PICTURE '99,999.99'
@ 18,0 SAY ì
'-----------------------------------------------------------------ì
--------------'
USE B:SALES
REPO FORM B:SALES PLAIN NOEJECT TO PRINT
EJECT
SET DEVICE TO SCREEN
SET PRINT OFF
ENDDO
RETURN