CP/M/CPM_CDROM.iso/cpm/dbaseii/tdas.ark/STUD5-A.PRG

Text File | 1986-08-24 | 5.0 KB | 204 lines

*******************************************************************************
*      STUD5-A PRG This routine sums the monthly payments received            *
*      and puts them into each student's record in the "Student" file.        *
*******************************************************************************
SET Talk OFF
ERASE
STORE "         " to Mmonth
STORE T to Postpay
DO WHILE Postpay
@ 7,5 SAY "Right now I'm reorganizing the payments file."
USE Payments
INDEX on Dacct:Num TO PID
INDEX on Dlname + Dfname TO Plname
ERASE
*
SET Color TO 120
SET Intensity OFF
@ 5,4 SAY "Spell"
SET Color to 112.7
SET Intensity ON
@ 5,10 SAY "the"
SET Intensity OFF
SET Color TO 11
@ 5,14 SAY "NAME OF THE MONTH"
SET Intensity ON
SET Color TO 112.7
@ 5,32 SAY "in which payments arrived."
@ 7,36 GET Mmonth PICTURE "!XXXXXXXX"
READ NOUPDATE
STORE F TO Postpay
ENDDO
ERASE
*
* Now, for posterity, we'll print out a list of all payments/credits
* received for the month just past.
STORE CHR(174) TO A
STORE CHR(173) TO B
STORE CHR(126) TO C
STORE 0 TO Sumpay,Sumcrt,Sheet
SET Intensity OFF
SET Color TO 11
@ 3,23 SAY "YOUR COMPANY NAME GOES ABOUT HERE"
SET Color TO 112.7
SET Intensity ON
@ 8,10 SAY "For the record, I'm printing a list of all payments ;
for "+Mmonth
SET Format TO Print
SET Eject OFF
USE Payments INDEX Plname
DO WHILE .NOT. EOF
STORE Sheet+1 TO Sheet
@ 0,1 SAY CHR(27) + CHR(66) + CHR(1) + CHR(27) + CHR(77) + CHR(5) + ;
CHR(27) + CHR(78) + CHR(5)
SET Print ON
SET Eject ON
@ 1,4 SAY "Page "+STR(Sheet,1)
@ 1,56 SAY Sdate
@ 3,21 SAY "CENTER YOUR NAME RIGHT ABOUT HERE"
@ 5,17 SAY "Summary of Payments for Month of "+Mmonth
@ 7,28 SAY A+B+A+B+A+B+A+B+A+B+A+B+A+B+A+B+A
? CHR(27) + CHR(77) + CHR(6)
@ 9,1 SAY "ACCT. #    Date               Name              Payment      "+;
"Credit"
@ 10,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
STORE 11 TO Horiz
DO WHILE Horiz<56 .AND. .NOT. EOF
*
@ Horiz,2 SAY Dacct:num
@ Horiz,10 SAY Ddate
IF DLname="Zz"
  @ Horiz,21 SAY "New Trier High School"
ELSE
  @ Horiz,21 SAY TRIM(DFname)+" "+DLname
ENDIF
IF Damount=0
  @ Horiz,51 SAY "---"
ELSE
  @ Horiz,47 SAY Damount
ENDIF
IF Dcredits=0
  @ Horiz,63 SAY "---"
ELSE
  @ Horiz,59 SAY Dcredits
ENDIF
*
STORE Sumpay+Damount to Sumpay
STORE Sumcrt+Dcredits TO Sumcrt
STORE Horiz+1 to Horiz
SKIP
ENDDO
ENDDO
IF EOF
  STORE Horiz+2 to Horiz
  @ Horiz,27 SAY "TOTALS"
  @ Horiz,46 SAY STR(Sumpay,9,2)
  @ Horiz,58 SAY STR(Sumcrt,9,2)
? CHR(27) + CHR(77) + CHR(1) + CHR(27) + CHR(78) + CHR(1)
STORE $(Cdate,7,2) TO Year
STORE VAL(Year)-1 to Year2
STORE STR(Year2,2) to Year3
USE Totalpay INDEX Payyear
IF Mmonth="December"
  FIND &Year3
ELSE
  FIND &Year
ENDIF
REPLACE &Mmonth WITH Sumpay
USE
RELEASE Year
ENDIF
SET Format TO Screen
USE
EJECT
ERASE
SET Print OFF
*
USE Student
DO WHILE .NOT. EOF
SET Intensity OFF
SET Color TO 120
@ 5,9 SAY "Rest a minute, old friend!"
SET Color to 112,7
SET Intensity ON
@ 8,3 SAY "Now I'm putting that month's name into each student's record."
@ 10,3 SAY "Thus I'll know what month we're working with as we print the;
 statements, etc."
REPLACE ALL Month with Mmonth
REPLACE ALL Curpayment with 0
ERASE
ENDDO
*
USE Student
SET Index TO Lname
DO WHILE .NOT. EOF
SET Intensity OFF
SET Color TO 139
@ 6,5 SAY "Puff, puff, wheeze, wheeze!"
SET Color TO 112,7
SET Intensity ON
@ 9,6 SAY "Now I'm churning through the file, placing all the payments;
 plus the"
@ 11,6 SAY [credits in the Students' "cur(rent)payment" fields]
@ 14,8 SAY "...Figure on 2-3 minutes of clicks & buzzing, at least."
@ 17,1 SAY "While I'm chugging along, why not go ahead and put the 2-part ;
paper in the"
@ 18,1 SAY "printer?  Then you'll be ready to print statements next."
STORE Acct:num to Placemark
  SELECT Secondary
  USE Payments INDEX PID
   SUM Dcredits FOR Dacct:num=Placemark to Stucred
   SUM Damount FOR Dacct:Num=Placemark to Stupay
   STORE Stucred+Stupay to Desperate
*
SELECT Primary
REPLACE Curpayment WITH Desperate
Store 0 to Stupay,Stucred,Desperate
SKIP
ENDDO
*
ERASE
* We're thru with the posting of payments.  Ring the Bell!!!
? CHR(7)
STORE 1 to Counter
DO WHILE Counter<20
@ 10,9 SAY "Now you can go ahead and start printing the statements."
STORE Counter + 1 to Counter
ENDDO
ERASE
*
RELEASE Mmonth,Placemark,Stupay,Stucred,Counter,Year,Year2,Year3
SELECT Secondary
USE
SELECT Primary
USE
STORE " " to Select
SET Talk ON
RETURN
* EOF



SET Color TO 120
SET Intensity OFF
@ 5,4 SAY "Spell"
SET Color to 112.7
SET Intensity ON
@ 5,10 SAY "the"
SET Intensity OFF
SET Color TO 11
@ 5,14 SAY "NAME OF THE MONTH"
SET Intensity ON
SET Color TO 112.7
@ 5,32 SAY "in which payments arrived."
@ 7,36 GET Mmonth PICTURE "!XXXXXXXX"
READ NOUPDATE
STORE F TO Postpay
ENDDO
ERASE
*
* Now, for posterity, we'll print out a list of all payments/credits
* received for the month just past.
STORE CHR