home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / RPTDISP.PRG < prev    next >
Encoding:
Text File  |  1990-09-18  |  2.3 KB  |  140 lines
  1. ** BEGIN OF RPTDISP.PRG **
  2. CLEAR
  3. DIME FNUM(128)
  4. BNO=''
  5. BGM=''
  6. FN=''
  7. DO SELEB
  8. IF LEN(FN)=0
  9. RETU
  10. ENDIF
  11. SELE 3
  12. USE BBTK
  13. SET FILT TO B_NO=BNO
  14. GO TOP
  15. I=1
  16. DO WHILE .NOT.EOF()
  17. FNUM(I)=FIELD_LEN
  18. I=I+1
  19. SKIP
  20. ENDDO
  21. NUM=I-1
  22. SELE 1
  23. USE FFBT
  24. SET FILT TO B_NO=BNO
  25. RPT='RPT_STRU'
  26. GO TOP
  27. COPY TO &RPT SDF FOR B_NO=BNO
  28. COPY TO FNS STRU EXTE
  29. SELE 2
  30. USE FNS
  31. ZAP
  32. APPE BLAN
  33. REPL FIELD_NAME WITH '╨╨║┼',FIELD_TYPE WITH 'N',FIELD_LEN WITH 2
  34. APPE BLAN
  35. REPL FIELD_NAME WITH '╫≤┐≥╝▄',FIELD_TYPE WITH 'C',FIELD_LEN WITH 74
  36. APPE BLAN
  37. REPL FIELD_NAME WITH '╓╨┐≥╝▄',FIELD_TYPE WITH 'C',FIELD_LEN WITH 74
  38. APPE BLAN
  39. REPL FIELD_NAME WITH '╙╥┐≥╝▄',FIELD_TYPE WITH 'C',FIELD_LEN WITH 74
  40. APPE BLAN
  41. REPL FIELD_NAME WITH '│¼│ñ▓┐╖▌',FIELD_TYPE WITH 'C',FIELD_LEN WITH 28
  42. USE
  43. CREA &RPT FROM FNS
  44. USE &RPT
  45. APPE FROM &RPT SDF
  46. GO TOP
  47. INSE BLAN BEFO
  48. REPL ╫≤┐≥╝▄ WITH SPACE((74-LEN(TRIM(BGM)))/2)+BGM
  49. REPL ALL ╨╨║┼ WITH RECNO()-1
  50. INDE ON ╨╨║┼ TO &RPT
  51. SET MENU ON
  52. BROW LOCK 1 NOMO
  53. SET MENU OFF
  54. YN=' '
  55. @ 09,20 SAY '╥¬╨▐╕─┬≡?[Y/N]:' GET YN PICT '!' VALID YN$'YN'
  56. READ
  57. IF YN='N'
  58. CLOS DATA
  59. ERAS &RPT..DBF
  60. ERAS &RPT..TXT
  61. ERAS &RPT..IDX
  62. RETU
  63. ENDIF
  64. SET MENU ON
  65. BROW LOCK 1 NOFO
  66. SET MENU OFF
  67. YN=' '
  68. DO WHILE .NOT.YN$'YN'
  69. @ 09,20 SAY '▒ú┤µ┬≡?(Y/N):' GET YN PICT '!'
  70. READ
  71. ENDDO
  72. IF YN='Y'
  73. PACK
  74. GO BOTT
  75. SKIP -1
  76. LINE=╫≤┐≥╝▄+╓╨┐≥╝▄+╙╥┐≥╝▄+│¼│ñ▓┐╖▌
  77. I=1
  78. @ 7,24 SAY ''
  79. BZ=0
  80. DO WHILE I<=NUM
  81. LEN=LEN(LINE)-LEN(LTRIM(SUBS(LINE,3)))-2
  82. IF LEN<FNUM(I)
  83. @ ROW(),COL()+2 SAY I PICT '99'
  84. BZ=1
  85. ENDIF
  86. FNUM(I)=LEN
  87. I=I+1
  88. LINE=LTRIM(SUBS(LINE,3))
  89. ENDDO
  90. IF BZ=1
  91. @ 6,20 SAY '╧┬┴╨╧ε─┐╡─┐φ╢╚╨í╙┌╘¡▒φ╕±╓╨╢╘╙ª╧ε─┐╡─┐φ╢╚:'
  92. @ 8,20 SAY '┐╔─▄╥²╞≡╩²╛▌┤≥╙í▓╗╧┬!!!'
  93. @ 9,20 SAY '╚╘╛╔▒ú┤µ┬≡?[Y/N]:' GET YN PICT '!' VALID YN$'YN'
  94. READ
  95. IF YN='N'
  96. CLOS DATA
  97. ERAS &RPT..DBF
  98. ERAS &RPT..TXT
  99. ERAS &RPT..IDX
  100. RETU
  101. ENDIF
  102. ENDIF
  103. GO TOP
  104. BGM=LTRIM(╫≤┐≥╝▄)
  105. DELE
  106. PACK
  107. USE &RPT INDE &RPT
  108. GO TOP
  109. SELE 1
  110. DELE ALL FOR B_NO=BNO
  111. PACK
  112. SELE 2
  113. DO WHILE .NOT.EOF()
  114. SELE 1
  115. APPE BLAN
  116. REPL B_NO WITH BNO ,SNA WITH B->╫≤┐≥╝▄+B->╓╨┐≥╝▄+B->╙╥┐≥╝▄+B->│¼│ñ▓┐╖▌
  117. SELE 2
  118. SKIP
  119. ENDDO
  120. SELE 1
  121. USE BTK
  122. LOCA FOR B_NO=BNO
  123. REPL B_NAME WITH BGM
  124. SELE 3
  125. SET FILT TO B_NO=BNO
  126. GO TOP
  127. I=1
  128. DO WHILE .NOT.EOF()
  129. REPL FIELD_LEN WITH FNUM(I)
  130. I=I+1
  131. SKIP
  132. ENDDO
  133. ENDIF
  134. CLOS DATA
  135. ERASE &RPT..DBF
  136. ERAS &RPT..TXT
  137. ERAS &RPT..IDX
  138. RETU
  139. ** END OF RPTDISP.PRG **
  140.