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

 
Output of file : SALES.PRG contained in archive : DB3AR.ZIP
********************************** (B:SALES.PRG)
CLEAR
@ 2,31 SAY 'Just a moment '
USE B:SALES
STORE 0.00 TO MSR,MCR,MCH,MCREDAR,MSTCSH,MCCASH
DO WHILE .T.
SET TALK OFF
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
GO BOTTOM
STORE DATE TO MDATE
@ 2,0 CLEAR
@ 3,0 SAY 'Store rings '
@ 3,28 SAY MSR PICTURE '9,999'
@ 3,50 SAY 'Average store ring '
@ 3,77 SAY STR(ASR,3,0)
@ 4,0 SAY 'Copy center rings '
@ 4,30 SAY STR(MCR,3,0)
@ 4,50 SAY 'Average copy ring '
@ 4,77 SAY STR(ACR,3,0)
@ 5,0 SAY 'Total rings '
@ 5,28 SAY RINGS PICTURE '9,999'
@ 6,0 SAY '--------------------------------------------------------------------------------'
@ 7,0 SAY 'Charges to A/R '
@ 7,24 SAY MCH PICTURE '99,999.99'
@ 7,50 SAY 'Average charge day'
@ 7,71 SAY ACHG PICTURE '99,999.99'
@ 8,0 SAY '--------------------------------------------------------------------------------'
@ 9,0 SAY 'Credits (A/R recieved) '
@ 9,24 SAY MCREDAR PICTURE '99,999.99'
@ 9,50 SAY 'Average A/R recieved '
@ 9,71 SAY ACRED PICTURE '99,999.99'
@ 10,0 SAY 'Store cash sales '
@ 10,24 SAY MSTCSH PICTURE '99,999.99'
@ 10,50 SAY 'Average store day '
@ 10,74 SAY STR(ASC,6,2)
@ 11,0 SAY 'Copy center cash sales '
@ 11,24 SAY MCCASH PICTURE '99,999.99'
@ 11,50 SAY 'Average copy day '
@ 11,74 SAY STR(ACC,6,2)
@ 12,0 SAY 'Total cash at counters '
@ 12,24 SAY ALLCASH PICTURE '99,999.99'
@ 13,0 SAY ' ---------'
@ 14,0 SAY 'Deposits to bank '
@ 14,24 SAY MDEPO PICTURE '99,999.99'
@ 14,50 SAY 'Cash sales+charges'
@ 14,71 SAY NEWSALES PICTURE '99,999.99'
@ 9,34 SAY CHR(27)
@ 12,34 SAY CHR(27)
@ 9,35 SAY CHR(205)
@ 9,36 SAY CHR(205)
@ 9,37 SAY CHR(187)
@ 12,35 SAY CHR(205)
@ 12,36 SAY CHR(205)
@ 12,37 SAY CHR(188)
@ 10,37 SAY CHR(186)
@ 11,37 SAY CHR(186)
@ 12,37 SAY CHR(185)
@ 13,37 SAY CHR(186)
@ 14,37 SAY CHR(188)
@ 14,36 SAY CHR(205)
@ 14,35 SAY CHR(205)
@ 14,34 SAY CHR(27)
@ 15,0 SAY 
'--------------------------------------------------------------------------------'
@ 17,25 SAY 'Do you want to enter a day? '
@ 17,62 SAY 'Last date'
@ 17,72 SAY MDATE
?
WAIT ' ? ' TO OPTION
IF OPTION='N'
RETURN
ENDIF
SET CONFIRM ON
@ 2,0 CLEAR
APPEND BLANK
@ 3,1 SAY 'Date ' GET DATE
@ 5,1 SAY 'Store rings ' GET STORE_RING
@ 7,1 SAY 'Copy center rings ' GET COPY_RING
@ 9,1 SAY 'Charges ' GET CHARGES
@ 11,1 SAY 'Credits/AR ' GET CREDITS_AR
@ 13,1 SAY 'Store cash sales ' GET STORE_CASH
@ 15,1 SAY 'Copy center cash sales ' GET COPY_CASH
READ
@ 20,1 SAY 'Is OK? '
?
WAIT ' ? ' TO OPTION
IF OPTION='N'
EDIT RECNO()
ENDIF
SET CONFIRM OFF
CLEAR
RETURN
ENDDO


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3AR.ZIP
Filename : SALES.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/