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

 
Output of file : LATE.PRG contained in archive : DB3AR.ZIP
******************************** (B:LATE.PRG)
CLEAR
@ 15,15 SAY 'This needs the printer turned on and ready to go.'
@ 17,27 SAY 'Do you want to continue?'
store ' ' to option
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
CLEA
SET EXACT ON
STORE DTOC(DATE()) TO MDATE
SET TALK ON
USE B:LATE
ZAP
APPEND FROM B:INV FOR .NOT. PAID .AND. NEWDATE < CTOD(MDATE) - 75
REPLACE ALL DUEDATE WITH NEWDATE+30
CLEA
*SET DEVICE TO PRINT
*SET MARGIN TO 4
*SET PRINT ON
LIST OFF ACCT,NEWDATE,INVNO,PONO,PRICE,CRINV,AMTAPPL,NET
?
*SET PRINT OFF
*SET DEVICE TO SCREEN
*SET HEADING OFF
SET TALK OFF
DO WHILE .T.
USE B:CUST INDEX B:ACCT
CLEAR
@ 5,1 SAY 'This is set up to run on Tops #5062 2-way continuous 
mailers'
@ 6,1 say 'Check your local office supply store for this form.'
@ 7,1 say 'Or call us and we can send to you in a couple of 
days.'
@ 8,1 say 'It contains a file copy, a 1st class mail 
envelope,'
@ 9,1 say 'a duplicate of the original,and a return envelope.'
?
?
? 'Want to run a late report?'
?
?
STORE ' ' TO OPTION
WAIT ' Press Y or N ' TO OPTION
IF OPTION= 'N'
RETURN
ENDIF
CLEAR
STORE 0.00 TO MNET
CLEAR
ACCEPT 'Which account? ' TO X
FIND &X
MATTN=ATTN
MNAME=NAME
MADDRESS=ADDRESS
MCITY=CITY
MSTATE=STATE
MZIP=ZIP
USE B:LATE
STORE 0.00 TO GEE
SUM NET FOR ACCT=X TO GEE
*SET DEVICE TO PRINT
*SET MARGIN TO 4
*SET PRINT ON
CLEAR
@ 2,1 SAY MTITLE
@ 3,1 SAY MADD1
@ 4,1 SAY MADD2
@ 5,1 SAY MPHONE
@ 7,1 SAY 'These invoices show as over 45 days past the due date,can 
you please help?'
@ 8,0 SAY 'Invoice Date Amount Credits Payments Net 
Due
Due Date'
@ 9,0 SAY 
'-----------------------------------------------------------------
---------'
LIST OFF INVNO,NEWDATE,PRICE,CRINV,AMTAPPL,' ',NET,' ',DUEDATE FOR ACCT=X
? ' total due 
$'+STR(GEE,8,2)
@ 22,8 SAY MTITLE
@ 22,39 SAY MATTN
@ 23,8 SAY MADD1
@ 23,39 SAY MNAME
@ 24,8 SAY MADD2
@ 24,39 SAY MADDRESS
@ 25,39 SAY TRIM(MCITY) +' '+ MSTATE +' '+ MZIP
?
*SET DEVICE TO SCREEN
*SET PRINT OFF
*SET MARGIN TO 0
ENDDO


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