home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / propmgr2.zip / SEARCH1.ACG < prev    next >
Text File  |  1986-09-03  |  5KB  |  201 lines
  1. * DATE 08/27/84  12:40
  2. STOR CHR(PEEK(063)) TO dr
  3. STOR "Detailed Search" TO mode
  4. ERAS
  5. @ 10,20 SAY 'SELECT FIELD NUMBER '
  6. @ 12,20 SAY 'ENTER SEARCH DATA '
  7. @ 14,0 SAY ' 1. Lastname    2. Firstname   3. Spouse      4. Mr.         5. Title      '
  8. @ 15,0 SAY ' 6. Company 1   7. Company 2   8. Co. Address 9. Co. Suite  10. Co. City   '
  9. @ 16,0 SAY '11. Co. State  12. Co. Zip    13. Home Addr. 14. Apt        15. Home City  '
  10. @ 17,0 SAY '16. Home State 17. Home Zip   18. Off. Phone 19. Home Phone 20. Salutation '
  11. @ 18,0 SAY '21. Send Mail  22. Code 1     23. Code 2     24. Code 3     25. Code 4     '
  12. @ 19,0 SAY '26. Code 5     27. Code 6     28. Update     '
  13. STOR '  ' TO EVAR
  14. DO WHIL VAL(EVAR) < 1 .OR. VAL(EVAR) > 28
  15.  @ 10,20 SAY 'SELECT FIELD NUMBER ' GET EVAR PICTURE '99'
  16.  READ
  17. ENDD
  18. STOR '                              ' TO EPART
  19. @ 12,20 SAY 'ENTER SEARCH DATA ' GET EPART
  20. READ
  21. IF VAL(EVAR) = 1
  22.  STOR 'LASTNAME' TO PARTFIELD
  23. ENDI
  24. IF VAL(EVAR) = 2
  25.  STOR 'FNAME' TO PARTFIELD
  26. ENDI
  27. IF VAL(EVAR) = 3
  28.  STOR 'SPOUSE' TO PARTFIELD
  29. ENDI
  30. IF VAL(EVAR) = 4
  31.  STOR 'MR' TO PARTFIELD
  32. ENDI
  33. IF VAL(EVAR) = 5
  34.  STOR 'TITLE' TO PARTFIELD
  35. ENDI
  36. IF VAL(EVAR) = 6
  37.  STOR 'COMPANY1' TO PARTFIELD
  38. ENDI
  39. IF VAL(EVAR) = 7
  40.  STOR 'COMPANY2' TO PARTFIELD
  41. ENDI
  42. IF VAL(EVAR) = 8
  43.  STOR 'CADDRESS' TO PARTFIELD
  44. ENDI
  45. IF VAL(EVAR) = 9
  46.  STOR 'SUITE' TO PARTFIELD
  47. ENDI
  48. IF VAL(EVAR) = 10
  49.  STOR 'CCITY' TO PARTFIELD
  50. ENDI
  51. IF VAL(EVAR) = 11
  52.  STOR 'CST' TO PARTFIELD
  53. ENDI
  54. IF VAL(EVAR) = 12
  55.  STOR 'CZIP' TO PARTFIELD
  56. ENDI
  57. IF VAL(EVAR) = 13
  58.  STOR 'ADDRESS' TO PARTFIELD
  59. ENDI
  60. IF VAL(EVAR) = 14
  61.  STOR 'APT' TO PARTFIELD
  62. ENDI
  63. IF VAL(EVAR) = 15
  64.  STOR 'CITY' TO PARTFIELD
  65. ENDI
  66. IF VAL(EVAR) = 16
  67.  STOR 'ST' TO PARTFIELD
  68. ENDI
  69. IF VAL(EVAR) = 17
  70.  STOR 'ZIP' TO PARTFIELD
  71. ENDI
  72. IF VAL(EVAR) = 18
  73.  STOR 'OPHONE' TO PARTFIELD
  74. ENDI
  75. IF VAL(EVAR) = 19
  76.  STOR 'PHONE' TO PARTFIELD
  77. ENDI
  78. IF VAL(EVAR) = 20
  79.  STOR 'DEAR' TO PARTFIELD
  80. ENDI
  81. IF VAL(EVAR) = 21
  82.  STOR 'SEND' TO PARTFIELD
  83. ENDI
  84. IF VAL(EVAR) = 22
  85.  STOR 'CS1' TO PARTFIELD
  86. ENDI
  87. IF VAL(EVAR) = 23
  88.  STOR 'CS2' TO PARTFIELD
  89. ENDI
  90. IF VAL(EVAR) = 24
  91.  STOR 'CS3' TO PARTFIELD
  92. ENDI
  93. IF VAL(EVAR) = 25
  94.  STOR 'CS4' TO PARTFIELD
  95. ENDI
  96. IF VAL(EVAR) = 26
  97.  STOR 'CS5' TO PARTFIELD
  98. ENDI
  99. IF VAL(EVAR) = 27
  100.  STOR 'CS6' TO PARTFIELD
  101. ENDI
  102. IF VAL(EVAR) = 28
  103.  STOR 'UPDATE' TO PARTFIELD
  104. ENDI
  105. USE &DR.:ag.DBF
  106. STOR TRIM(EPART) TO EPART
  107. RELE EVAR
  108. GO BOTTOM
  109. STOR # TO LASTREC
  110. GO TOP
  111. STOR 0 TO RECNO
  112. STOR T TO PARTSRCH
  113. STOR ' ' TO EOPTION
  114. STOR T TO FIRSTLOOP
  115. DO WHIL PARTSRCH
  116.  IF EOPTION = 'S'
  117.   STOR # TO RECNO
  118.   STOR F TO PARTSRCH
  119.   LOOP
  120.  ENDI
  121.  IF EOPTION = 'R'
  122.   STOR 0 TO RECNO
  123.   STOR F TO PARTSRCH
  124.   LOOP
  125.  ENDI
  126.  IF RECNO = LASTREC
  127.   STOR 'R' TO EOPTION
  128.   LOOP
  129.  ENDI
  130.  IF FIRSTLOOP
  131.   LOCA FOR !(EPART) $ !(&PARTFIELD)
  132.  ENDI
  133.  IF .NOT.FIRSTLOOP
  134.   CONT
  135.  ENDI
  136.  STOR F TO FIRSTLOOP
  137.  STOR # TO RECNO
  138.  IF # = LASTREC .AND.(.NOT. EPART $ &PARTFIELD)
  139.   STOR 'R' TO EOPTION
  140.   LOOP
  141.  ENDI
  142.  ERAS
  143.  @ 1,25 SAY mode
  144.  @ 2,0 SAY '+-----------------------------------------------------------------------------+'
  145.  @ 3,3 SAY 'Lastname:                                  First & MI:'
  146.  @ 4,5 SAY 'Spouse:                                  Address as:'
  147.  @ 6,6 SAY 'Title:'
  148.  @ 7,1 SAY 'Company #1:'
  149.  @ 8,9 SAY '#2:'
  150.  @ 9,0 SAY 'Co. Address:                                       Suite:'
  151.  @ 10,7 SAY 'City:                        ST:              Zip:'
  152.  @ 12,2 SAY 'Home Addr:                                         Apt:'
  153.  @ 13,7 SAY 'City:                        ST:              Zip:'
  154.  @ 14,2 SAY 'Telephone  Office:                          Home Phone:'
  155.  @ 15,1 SAY 'Salutation:                              Send to office:'
  156.  @ 16,4 SAY 'Codes 1-         2-         3-         4-          5-         6-'
  157.  @ 17,50 SAY 'Update:'
  158.  @ 18,0 SAY '+-----------------------------------------------------------------------------+'
  159.  @ 3,13 SAY LASTNAME
  160.  @ 3,58 SAY FNAME
  161.  @ 4,13 SAY SPOUSE
  162.  @ 4,58 SAY MR
  163.  @ 6,13 SAY TITLE
  164.  @ 7,13 SAY COMPANY1
  165.  @ 8,13 SAY COMPANY2
  166.  @ 9,13 SAY CADDRESS
  167.  @ 9,58 SAY SUITE
  168.  @ 10,13 SAY CCITY
  169.  @ 10,41 SAY CST
  170.  @ 10,58 SAY CZIP
  171.  @ 12,13 SAY ADDRESS
  172.  @ 12,58 SAY APT
  173.  @ 13,13 SAY CITY
  174.  @ 13,41 SAY ST
  175.  @ 13,58 SAY ZIP
  176.  @ 14,21 SAY OPHONE
  177.  @ 14,58 SAY PHONE
  178.  @ 15,13 SAY DEAR
  179.  @ 15,58 SAY SEND
  180.  @ 16,13 SAY CS1
  181.  @ 16,24 SAY CS2
  182.  @ 16,35 SAY CS3
  183.  @ 16,46 SAY CS4
  184.  @ 16,58 SAY CS5
  185.  @ 16,69 SAY CS6
  186.  @ 17,58 SAY UPDATE
  187.  STOR ' ' TO EOPTION
  188.  @ 23,0 SAY 'N (NEXT), S (SELECT), R (RETURN)'
  189.  DO WHIL EOPTION <> 'N' .AND. EOPTION <> 'S' .AND. EOPTION <> 'R'
  190.   @ 23,33 GET EOPTION
  191.   READ
  192.   STOR !(EOPTION) TO EOPTION
  193.  ENDD
  194. ENDD
  195. RELE PARTSRCH
  196. RELE EMETH, EOPTION, EPART, FILESRCH, LASTREC, FIRSTREC
  197. RELE PARTFIELD, FIRSTLOOP, EKEYOPT, INCREMENT
  198. STOR t TO first
  199. STOR t TO more
  200. RETU
  201.