home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / RPTDELE.PRG < prev    next >
Encoding:
Text File  |  1990-05-06  |  659 b   |  53 lines
  1. *** RPTDELE.PRG ***
  2. CLEAR
  3. SET TALK OFF
  4. DO WHILE .T.
  5. BNO=0
  6. BGM=''
  7. FN=''
  8. DO SELEB
  9. IF BNO=0
  10. CLOS DATA
  11. RETU
  12. ENDIF
  13. SELE 1
  14. USE FFBT
  15. SET FILT TO B_NO=BNO
  16. GO TOP
  17. SET MENU ON
  18. BROW FIELD SNA WIDTH 80 NOMO NOAP
  19. SET MENU OFF
  20. CLEAR
  21. MLL=' '
  22. @ 3,5 SAY '╔╛│²╙╨╨º┬≡? (Y/N)' GET MLL
  23. READ
  24. IF UPPER(MLL)='Y'
  25. DELE ALL FOR B_NO=BNO
  26. PACK
  27. USE BBTK
  28. DELE ALL FOR B_NO=BNO
  29. PACK
  30. USE BTK
  31. DELE ALL FOR B_NO=BNO
  32. PACK
  33. USE BMZK
  34. DELE ALL FOR B_NO=BNO
  35. PACK
  36. USE BWZK
  37. DELE ALL FOR B_NO=BNO
  38. PACK
  39. ENDIF
  40. USE
  41. CLEAR
  42. LL=' '
  43. @ 3,5 SAY '╗╣╔╛│²▒≡╡─▒φ═╖┬≡? (Y/N):' GET LL
  44. READ
  45. IF UPPER(LL)#'Y'
  46. CLOSE DATA
  47. EXIT
  48. ENDIF
  49. ENDDO
  50. RETU
  51. ** END OF RPTDELE.PRG **
  52.  
  53.