home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / RPTMODI.PRG < prev    next >
Encoding:
Text File  |  1990-06-04  |  1.1 KB  |  76 lines
  1. ** BEGIN OF RPTMODI.PRG **
  2. CLEAR
  3. BNO=''
  4. BGM=''
  5. FN=''
  6. DO SELEB
  7. IF LEN(FN)=0
  8. RETU
  9. ENDIF
  10. SELE 1
  11. USE FFBT
  12. SET FILT TO B_NO=BNO
  13. GO TOP
  14. COPY TO RPT SDF
  15. COPY TO FNS STRU EXTE
  16. SELE 2
  17. USE FNS
  18. ZAP
  19. APPE BLAN
  20. REPL FIELD_NAME WITH '╨╨║┼',FIELD_TYPE WITH 'N',FIELD_LEN WITH 2
  21. APPE BLAN
  22. REPL FIELD_NAME WITH '▒φ╕±┐≥╝▄',FIELD_TYPE WITH 'C',FIELD_LEN WITH 254
  23. USE
  24. CREA RPT FROM FNS
  25. USE RPT
  26. APPE FROM RPT SDF
  27. ERAS FNS.DBF
  28. ERAS RPT.TXT
  29. REPL ALL ╨╨║┼ WITH RECNO()
  30. INDE ON ╨╨║┼ TO RPT
  31. SET MENU ON
  32. BROW NOFO WIDTH 74
  33. SET MENU OFF
  34. YN=' '
  35. DO WHILE .NOT.YN$'YN'
  36. @ 09,20 SAY '▒ú┤µ┬≡?(Y/N):' GET YN PICT '!'
  37. READ
  38. ENDDO
  39. GO BOTT
  40. SKIP -1
  41. KGX=TRIM(▒φ╕±┐≥╝▄)
  42. LEN=LEN(KGX)
  43. SELE 3
  44. USE BBTK
  45. SET FILT TO B_NO=BNO
  46. GO TOP
  47. DO WHILE LEN(KGX)>2
  48. KGX=LTRIM(SUBS(KGX,3))
  49. LEN1=LEN(KGX)
  50. REPL FIELD_LEN WITH LEN-LEN1-2
  51. SKIP
  52. LEN=LEN1
  53. ENDDO
  54. USE
  55. SELE 2
  56. IF YN='Y'
  57. PACK
  58. COPY TO RPT1
  59. USE RPT1
  60. REPL ALL ╨╨║┼ WITH BNO
  61. COPY TO RPT SDF
  62. USE
  63. ERAS RPT1.DBF
  64. SELE 1
  65. DELE ALL FOR B_NO=BNO
  66. PACK
  67. APPE FROM RPT SDF
  68. ERAS RPT.TXT
  69. ENDIF
  70. CLOS DATA
  71. ERASE RPT.DBF
  72. ERAS RPT.IDX
  73. RETU
  74. ** END OF RPTMODI.PRG **
  75.  
  76.