home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db3ledge.zip / VENDEDIT.PRG < prev    next >
Text File  |  1986-01-12  |  931b  |  54 lines
  1. SET HEADING OFF
  2. SET SAFETY OFF
  3. ****************************** (VENDEDIT.PRG) jay kenney 8/15/85
  4. CLEAR
  5. USE VEND
  6. SET EXACT ON
  7. SET TALK OFF
  8. SET CONFIRM ON
  9. DO WHILE .T.
  10. @ 2,0 CLEAR
  11. @ 20,22 SAY 'Do you want to edit a vendor ?'
  12. ?
  13. ?
  14. STORE ' ' TO OPTION
  15. WAIT '                                    ? 'TO OPTION
  16. IF OPTION='N'
  17. RETURN
  18. ENDIF
  19. STORE 0 TO X
  20. CLEA
  21. @ 2,0 SAY '                         Please enter account number ' GET X
  22. READ
  23. IF X=0
  24. RETURN
  25. ENDIF
  26. IF OPTION='Y'
  27. LOCATE FOR ACCT=X
  28. IF EOF()
  29. LOOP
  30. ENDIF EOF()
  31. STORE RECNO() TO RECNO
  32. ?
  33. @ 4,25 SAY 'Enter Ctrl W when finished...'
  34. ?
  35. ?
  36. SET FORMAT TO VENDEDIT.FMT
  37. SET CONFIRM ON
  38. EDIT RECNO
  39. @ 2,0 CLEAR
  40. CLOSE FORMAT VENDEDIT.FMT
  41. @ 15,25 SAY 'Do you want to pack the database ? '
  42. STORE ' ' TO OPTION
  43. ?
  44. WAIT '                                       ' TO OPTION
  45. IF OPTION='Y'
  46. SET TALK ON
  47. CLEA
  48. PACK
  49. SET TALK OFF
  50. ENDIF
  51. SET CONFIRM OFF
  52. ENDDO
  53. RETURN
  54.