home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3plsar.zip
/
DATA.PRG
< prev
next >
Wrap
Text File
|
1986-08-04
|
2KB
|
63 lines
**************************************** (DATA.PRG)
CLEAR
@ 9,1 SAY 'Be sure you have updated the customer files before ì
continuing.'
@ 13,1 SAY 'Want to print a customer data report? '
?
STORE ' ' TO OPTION
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
CLEAR
USE CUST
STORE 0 TO COUNT
STORE 1 TO PCOUNT
SET TALK OFF
DO WHILE .NOT. EOF()
STORE ' ' TO MSALES
******************************!!**(PUT YOUR NAME AND CODES HERE IF YOU LIKE.)
*IF SALES='J'
*STORE 'JAY KENNEY' TO MSALES
*ENDIF
*IF SALES='C'
*STORE 'Charles Nash' TO MSALES
*ENDIF
*IF SALES='H'
*STORE 'House' TO MSALES
*ENDIF
SET PRINT ON
IF COUNT = 10
STORE PCOUNT+1 TO PCOUNT
STORE 0 TO COUNT
? CHR(12)
ENDIF
IF COUNT=0
? MTITLE+' Page '+STR(PCOUNT,2)
? DTOC(DATE())+' Customer Data Net Due ì
+ 30 ì
+ 45 + 60'
? ì
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ì
ì
~~~~~~~~~~~~~~'
ENDIF
? 'Account number '+ACCT
? NAME+' '+PHONE+' '+STR(NET,7,2)+' ì
'+STR(OLD_30,7,2)+STR(OLD_45,9,2)+STR(OLD_60,7,2)
? ADDRESS+'Salesman: '+MSALES
? CITY+STATE+' '+ZIP+' Discount:'+' '+DISC+' Paid YTD Total: ì
'+STR(ALLPAY,8,2)
? ì
'-----------------------------------------------------------------ì
--------------'
?
SKIP
STORE COUNT +1 TO COUNT
IF EOF()
? CHR(12)
ENDIF
SET PRINT OFF
ENDDO
RETURN