Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3AR.ZIP
Filename : PRTSALES.PRG

 
Output of file : PRTSALES.PRG contained in archive : DB3AR.ZIP
********************************** (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


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3AR.ZIP
Filename : PRTSALES.PRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/