home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / tkmengen.zip / SETUP.INC < prev   
Text File  |  1990-03-13  |  618b  |  33 lines
  1.   CLEAR(PR:RECORD)
  2.   SET(PR:PROVNAME,PR:PROVNAME)
  3.   LOOP UNTIL EOF(PROVIDER)
  4.   NEXT(PROVIDER)
  5.   IF PR:PR_DATE ~=TODAY()
  6.      PR:DAY_CHARGE=0
  7.      PR:DAY_PAY=0
  8.      PR:PR_DATE=TODAY()
  9.    PUT(PROVIDER)
  10.   .
  11.  
  12.   CLEAR(DAY:RECORD)
  13.   SET(DAY:DATE_KEY)
  14.   PREVIOUS(DAY_REC)
  15.  
  16.  
  17.   IF DAY:DATE ~=TODAY()
  18.      DAY:CREDIT=0
  19.      DAY:CHECKS=0
  20.      DAY:CASH=0
  21.      DAY:COH=DAY:COH
  22.      DAY:ACC_REC = DAY:ACC_REC
  23.      DAY:MONTHCHARGE= DAY:MONTHCHARGE
  24.      DAY:MONTHPAYMENT= DAY:MONTHPAYMENT
  25.      DAY:MONTHADJUST=  DAY:MONTHADJUST
  26.      DAY:DATE =TODAY()
  27.      ADD(DAY_REC)
  28.  
  29.   ELSE
  30.      BREAK
  31.      .
  32.      .
  33.