Oakland CPM Archive/oakcpm.iso/cpm/dbaseii/tdas.ark/STUD5-8.PRG

Text File | 1986-08-24 | 2.5 KB | 109 lines

*******************************************************************************
*         STUD5-8.PRG - A simple program that prints the Ageing Report:       *
*         The report tells who's paying, who ain't.                           *
*******************************************************************************
SET Talk OFF
SET Print ON
? CHR(27) + CHR(64)
? CHR(27) + CHR(66) + CHR(2)
? CHR(27) + CHR(78) + CHR(8)
? CHR(27) + CHR(77) + CHR(6)
STORE 0 to Page
USE Student
SET Index TO Lname
SET Print OFF
SET Format TO Print
DO WHILE .NOT. EOF
STORE Page+1 to Page
STORE 'January  February March    April    May      June     '+;
'July     August   SeptemberOctober  November December ' TO Date:str
STORE TRIM($(Date:str, VAL($(Cdate,1,2))*9-8,9))+" " +;
$(Cdate,4,2)+", 19"+$(Cdate,7,2) to Sdate
@ 2,4 SAY 'Page '+STR(Page,1)
@ 2,71 SAY Sdate
@ 4,29 SAY "YOUR COMPANY NAME CENTERED HERE"
@ 6,38 SAY "AGEING REPORT"
STORE CHR(174) to A
STORE CHR(173) to B
STORE CHR(126) to C
@ 8,36 SAY A+B+A+B+A+B+A+B+A+B+A+B+A+B+A+B+A
@ 10,11 SAY "Name                 Balance    Last Mo.  30-60;
     60-90     90-120   120-150"
@ 11,1 SAY C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+;
C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+;
C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C
STORE 13 to Line
DO WHILE Line<56 .AND. .NOT. EOF
*
IF Lname="Zz"
 @ Line,1 SAY "New Trier High School"
ELSE
  @ Line,1 SAY TRIM(Fname)+" "+Lname
ENDIF
*
  @ Line,31 SAY Balance
 IF M1Chg = 0
  @ Line,45 SAY "-"
 ELSE
  @ Line,40 SAY M1Chg
 ENDIF
 IF M2Chg = 0
  @ Line,55 SAY "-"
 ELSE
  @ Line,50 SAY M2Chg
 ENDIF
 IF M3Chg = 0
  @ Line,65 SAY "-"
 ELSE
  @ Line,60 SAY M3Chg
 ENDIF
 IF M4Chg = 0
  @ Line,75 SAY "-"
 ELSE
  @ Line,70 SAY M4Chg
 ENDIF
 IF M5Chg = 0
  @ Line,85 SAY "-"
 ELSE
  @ Line,80 Say M5Chg
 ENDIF
  @ Line+1,31 SAY Dateofbill
 IF M1Pay = 0
  @ Line+1,45 SAY "-"
 ELSE
  @ Line+1,40 SAY M1Pay
 ENDIF
 IF M2Pay = 0
  @ Line+1,55 SAY "-"
 ELSE
  @ Line+1,50 SAY M2Pay
 ENDIF
 IF M3Pay = 0
  @ Line+1,65 SAY "-"
 ELSE
  @ Line+1,60 SAY M3Pay
 ENDIF
 IF M4Pay = 0
  @ Line+1,75 SAY "-"
 ELSE
  @ Line+1,70 SAY M4Pay
 ENDIF
 IF M5Pay = 0
  @ Line+1,85 SAY "-"
 ELSE
  @ Line+1,80 SAY M5Pay
 ENDIF
  STORE Line+3 to Line
  SKIP
 ENDDO
 EJECT
ENDDO
SET Format to Screen
SET Talk ON
USE
RELEASE Line,Page
RETURN
* EOF
-90     90-120   120-150"
@ 11,1 SAY C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+C+;