home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / billing / reindex.prg < prev    next >
Encoding:
Text File  |  1986-11-10  |  527 b   |  14 lines
  1. use taskunit index taskdate
  2. set date ansi
  3. ? "               reindexing task records on client code and date"
  4. index on str(c_code,3,0)+dtoc(taskdate) to taskdate
  5. set date american
  6. * if you leave date american, you have to do it this way
  7. *index on str(c_code,3,0)+substr(dtoc(taskdate),7,2)+substr(dtoc(taskdate),1,2)+substr(dtoc(taskdate),3,2) to taskdate
  8.  
  9. use client index cltcode,cltname
  10. * cltcode=str(c_code,3,0); cltname=c_name
  11. ? "               reindexing client records on client code & name"
  12. reindex
  13. return
  14.