Category : Databases and related files
Archive   : PROSPEC2.ZIP
Filename : LABELS.PRG

CLEA
TEXT




Select a Report Option

1. Directory

2. Mailing Labels

3. Return to Main Menu

( ) Selection


ENDT
REPCHOICE = 0
@3,21 TO 15,56 DOUBLE
@13,29 GET REPCHOICE PICT "9" RANGE 1,3
READ
IF REPCHOICE = 3
RETU
ENDI
CLEA
TEXT




Select a Sort Order

1. Alphabetical order by Company

2. Zip Code Order

3. Original Order

( ) Selection

ENDT
SORTCHOICE = 0
@3,20 TO 15,57 DOUBLE
@13,23 GET SORTCHOICE PICT "9" RANGE 1,3
READ
DO CASE
CASE SORTCHOICE = 1
SET INDE TO COMPANY
CASE SORTCHOICE = 2
SET INDE TO ZIPS
CASE SORTCHOICE = 3
CLOS INDE
ENDC
CLEA
QCHOICE = "A"
OPTION = "C"
@9,3 TO 11,50 DOUBLE
@10,5 SAY "Do you want (A)ll records, or a (Q)uery? ( )"
@10,47 GET QCHOICE PICT "!"
READ
IF QCHOICE = "Q"
@9,3 TO 11,55 DOUBLE
@10,5 SAY "(C)reate your own, or (R)esumes NOT received? ( )"
@10,52 GET OPTION PICT "!"
READ
IF OPTION = "R"
SET FILTER TO FILE NOTRECV
ELSE
MODI QUERY MAILGEN
SET FILTER TO FILE MAILGEN
ENDI
ENDI
PMACRO = " "
TOPRINT = "N"
CLEA
@9,3 TO 11,44 DOUBLE
@10,5 SAY "Send report to printer (Y)es, (N)o ( )"
@10,41 GET TOPRINT PICT "!"
READ
IF TOPRINT = "Y"
PMACRO = "TO PRINT"
ENDI
DO CASE
CASE REPCHOICE = 1
IF PMACRO = "TO PRINT"
SET DEVI TO PRIN
@0,0 SAY CHR(15)
ENDI
REPO FORM NEWDIR &PMACRO
IF PMACRO = "TO PRINT"
@51,0 SAY CHR(18)
SET DEVI TO SCRE
ENDI
CASE REPCHOICE = 2
LABE FORM TWOCOL &PMACRO
ENDC
IF TOPRINT <> "Y"
@24,1 CLEA
WAIT "Press any key to return to menu..."
ENDI
SET FILTER TO
SET INDE TO COMPANY,ZIPS,LASTCALL