home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / INDEXER.PRG < prev    next >
Encoding:
Text File  |  1989-11-09  |  1.6 KB  |  72 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  PROG NAME: INDEXER.PRG Indexing routine.                           │ *
  3. * │  Copyright (c) 1989 Tech III, Inc. All rights reserved.             │ *
  4. * │  Tech III of San Pedro, California      (213) 547-2191.             │ *
  5. * │  "The bridge connecting people and technology."(tm)                 │ *
  6. * └─────────────────────────────────────────────────────────────────────┘ *
  7.  
  8. ACTIVATE WINDOW working
  9. CLOSE DATA
  10. SET TALK ON
  11.  
  12. ? 'INVOICE FILE...'
  13. USE invoice
  14. PACK
  15. INDEX ON invoice TO inv_inv
  16. INDEX ON cust_id TO inv_cus
  17. INDEX ON inv_date TO inv_dat
  18.  
  19. ?
  20. ? 'INVENTORY FILE...'
  21. USE items
  22. PACK
  23. INDEX ON item TO itm_itm
  24.  
  25. ?
  26. ? 'INVOICE LINE ITEMS FILE...'
  27. USE lineitms
  28. PACK
  29. INDEX ON invoice TO lns_inv
  30. INDEX ON item TO lns_itm
  31.  
  32. ?
  33. ? 'CUSTOMER FILE...'
  34. USE customer
  35. PACK
  36. INDEX ON cust_id TO cus_cus
  37. INDEX ON company TO cus_com
  38.  
  39. ?
  40. ? 'PAYMENTS FILE...'
  41. USE payments
  42. PACK
  43. INDEX ON cust_id TO pmt_cus
  44. INDEX ON DATE TO pmt_dat
  45.  
  46. ?
  47. ? 'SALES REPS FILE...'
  48. USE salesrep
  49. PACK
  50. INDEX ON salename TO sal_nam
  51. INDEX ON soldby   TO sal_sal
  52.  
  53. ?
  54. ? 'STATES FILE...'
  55. USE states
  56. PACK
  57. INDEX ON state TO states
  58.  
  59. CLOSE DATA
  60. USE invoice  IN 1 INDEX inv_inv, inv_cus, inv_dat ALIAS invoice
  61. USE items    IN 2 INDEX itm_itm                   ALIAS items
  62. USE lineitms IN 3 INDEX lns_inv, lns_itm          ALIAS lines
  63. USE customer IN 4 INDEX cus_cus, cus_com          ALIAS customer
  64. USE payments IN 5 INDEX pmt_cus, pmt_dat          ALIAS payments
  65. USE salesrep IN 6 INDEX sal_nam, sal_sal          ALIAS salesrep
  66.  
  67. SELECT invoice
  68. SET TALK OFF
  69. DEACTIVATE WINDOW working
  70. RETURN
  71. * eof
  72.