home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a063 / 6.img / SAMPLE / APTSQL / RGDSC_1.FPL < prev    next >
Encoding:
Text File  |  1990-08-24  |  306 b   |  15 lines
  1. create apt proc rgdsc_1() as
  2. begin
  3.     useform sdsc_3
  4.     variable  status int
  5.  
  6.     if $curfield = "yes"
  7.         totpercent = totpercent +  grpdiscount[$index].percent
  8.     else
  9.         totpercent = totpercent -  grpdiscount[$index].percent
  10.  
  11.     call clcst_1(quantity, totpercent, price, totalcost, status)
  12.  
  13.     return
  14. end
  15.