Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : OFFICE.ZIP
Filename : TICKLETT.PRG
* Module purpose: prints letters and labels.
* Based upon date in the tickler field.
CLEAR
STORE 1 TO tkdate
@ 5, 5 SAY ' SCOPE TO PRINT OUTSTANDING TICKLER LETTERS '
@ 8, 5 SAY ' 0 - ALL TO DATE'
@ 9, 5 SAY ' 1 - TODAY ONLY '
@ 10, 5 SAY ' 2 - LAST 7 DAYS '
@ 11, 5 SAY ' 3 - THIS MONTH '
@ 14, 5 SAY ' ENTER SCOPE OF TICKLER ' GET tkdate PICTURE '#' RANGE 0,3
READ
@ 20, 0 SAY "Prepare to Print Tickler Letters"
@ 21, 0 SAY "Please Wait ..."
* First limit with filter command to date range, tickler status.
DO CASE
CASE tkdate = 0
SET filter TO tickler <= DATE() .AND. .NOT. ticksent
CASE tkdate = 1
SET filter TO tickler = DATE() .AND. .NOT. ticksent
CASE tkdate = 2
SET filter TO tickler > DATE() -7 .AND. tickler <= DATE() .AND.;
.NOT. ticksent
CASE tkdate = 3
SET filter TO MONTH(tickler) = MONTH(DATE()) .AND. tickler <=;
DATE() .AND. .NOT. ticksent
ENDCASE
* 11:12:50 7/23/1986 change. First toggle NOWMAILED to false
* in records meeting the filter condition.
* FORMLETR and LABELPRN can now work again on tickler letters.
* Also abort if now records meet condition.
GO TOP
IF .NOT. EOF()
REPLACE ALL nowmailed with .F.
* Use formletr to print form letters.
DO formletr
* Use labelprn to print labels.
DO labelprn
* Record in client that tickler letters were printed
* on this date for this tickler.
REPLACE ALL ticksent WITH .T.
ELSE
? CHR(7)
@ 20,0 CLEAR
@ 20,0 SAY "No Records Meet The Tickler Condition "
WAIT
ENDIF
* Inactivate filter.
SET filter TO
RETURN
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/