home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a063 / 6.img / SAMPLE / APTSQL / ADISC_1.FPL next >
Encoding:
Text File  |  1990-08-24  |  363 b   |  16 lines
  1. create apt proc adisc_1() as
  2. begin
  3.     useform sdsc_3
  4.     variable status int
  5.  
  6.     totpercent = totpercent + (adddisc - adddisc:savedvalue)
  7.     save field adddisc
  8.  
  9.     /* Re-compute and re-display the total cost.  The variable
  10.     ** 'status' is not used here, but is required by clcst.
  11.     */
  12.     call clcst_1(quantity, totpercent, price, totalcost, status)
  13.  
  14.     return
  15. end
  16.