home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3plsar.zip
/
LATE.PRG
< prev
next >
Wrap
Text File
|
1986-08-04
|
3KB
|
116 lines
******************************* (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 LATE
ZAP
APPEND FROM 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
?
? ' Use this list to determine who will get the letter.'
? ' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-='
?
?
LIST OFF ACCT,NEWDATE,INVNO,PONO,PRICE,CRINV,AMTAPPL,NET
?
SET PRINT OFF
SET DEVICE TO SCREEN
EJECT
EJECT
SET HEADING OFF
SET TALK OFF
DO WHILE .T.
USE CUST INDEX ACCT
CLEAR
@ 1,1 SAY ì
[=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ì
-=-=-=-=-=]
@ 4,1 SAY 'This is set up to run on Tops #5062 2-way continuous ì
mailers.'
@ 5,1 say 'Check your local office supply store for this form.'
@ 6,1 say 'Or call us and we can send to you in a couple of ì
days.'
@ 7,1 SAY [We will ship you a box of 350 freight free for $ 49.95 ì
anywhere in the U.S.]
@ 8,1 say 'The form contains a file copy, a 1st class mail ì
envelope,'
@ 9,1 say 'a duplicate of the original,and a return envelope.'
@ 10,1 say 'Run a sample on blank paper to test first.'
@ 11,1 SAY 'Set 1st form flush at top of form.'
@ 13,1 SAY [Sorry,but you are going to have to set your printer ì
form length to 5 1/2"]
@ 15,1 SAY 'Want to run a late report?'
@ 18,1 SAY ì
[=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ì
-=-=-=-=-=]
?
?
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 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
clea
?
? [Don't forget to set your printer back to regular form length ì
when done.]
?
ENDDO