home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3plsar.zip
/
PRTSALES.PRG
< prev
next >
Wrap
Text File
|
1986-08-04
|
3KB
|
94 lines
********************************** (PRTSALES.PRG)
STORE DTOC(DATE()) TO MDATE
STORE YEAR(DATE()) TO XDATE
STORE (1900.-XDATE) TO XDATE
STORE SUBSTR(MDATE,1,2) TO R
STORE 0.00 TO SALESTAX
STORE 0.00 TO SUB
STORE 0.00 TO AMTDUE
CLEAR
@ 13,19 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
CLEAR
STORE DATE() TO TOPLINE
USE SALES
GO BOTT
STORE DTOC(DATE) TO TOPLINE
GO TOP
DO WHILE .NOT. EOF()
? [-------------> I'm ONLY going to average for days without a 0 total.]
? ì
'=================================================================ì
====='
?
?
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
SUM STORE_CASH+COPY_CASH+CHARGES TO SUB
STORE SUB*.06 TO AMTDUE
************!!! NEXT 3 LINES TAKE OUT 0 AMOUNT SATURDAYS !!!***************
AVERAGE COPY_RING TO ACR FOR COPY_RING<>0
AVERAGE COPY_CASH TO ACC FOR COPY_CASH<>0.00
AVERAGE CHARGES TO ACHG FOR CHARGES<>0.00
CLEAR
SET TALK OFF
SET DEVICE TO PRINT
SET PRINT ON
@ 1,0 SAY '==================================='
@ 1,37 SAY TOPLINE
@ 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 '-----------------------------------------------------------------------------'
@ 4,1 SAY 'Charges to A/R '
@ 4,26 SAY MCH/1.06 PICTURE '99,999.99'
@ 4,47 SAY 'Average charge day'
@ 4,69 SAY ACHG PICTURE '99,999.99'
@ 5,1 SAY '-----------------------------------------------------------------------------'
@ 6,1 SAY 'Credits (A/R recieved) '
@ 6,26 SAY MCREDAR PICTURE '99,999.99'
@ 6,47 SAY 'Average A/R recieved '
@ 6,69 SAY ACRED PICTURE '99,999.99'
@ 7,1 SAY 'Store cash sales '
@ 7,26 SAY MSTCSH/1.06 PICTURE '99,999.99'
@ 7,47 SAY 'Average store day '
@ 7,72 SAY STR(ASC,6,2)
@ 8,1 SAY '+ Sales Tax collected'
@ 8,26 SAY AMTDUE PICTURE '99,999.99'
@ 9,1 SAY ' ---------'
@ 10,1 SAY 'Deposits to bank '
@ 10,26 SAY MDEPO PICTURE '99,999.99'
@ 11,1 SAY 'Cash sales+charges'
@ 11,26 SAY NEWSALES/1.06 PICTURE '99,999.99'
@ 12,1 SAY 'Taxable sales'
@ 12,26 SAY MDEPO-AMTDUE PICTURE '99,999.99'
@ 13,0 SAY ì
'-----------------------------------------------------------------ì
--------------'
USE SALES
REPO FORM SALES PLAIN NOEJECT TO PRINT
EJECT
SET DEVICE TO SCREEN
SET PRINT OFF
ENDDO
RETURN