home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BJH5.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.4 KB  |  111 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database 
  5. if t='2'
  6. set cons off
  7. dele file sx.dbf
  8. use bjh
  9. copy to sx for bjh4<>0 field ì
  10. bjh1,bjh4,bjh10
  11. set cons on
  12. endif
  13. a='        '
  14. @ 4,10 say '╟δ╩Σ╚δ╜╪╓╣╚╒╞┌' get a pict '99.99.99'
  15. read
  16. clear
  17. @ 4,20 say "╒²╘┌╝╞╦πú¼╟δ╔╘║≥úí"
  18. set cons off
  19. j1=substr(a,4,2)
  20. j2=substr(a,7,2) 
  21. j3=substr(a,1,2)
  22. a=j1+'/'+j2+'/'+j3
  23. a=ctod(a)
  24. sele 1
  25. use sx
  26. sele 2
  27. use xs
  28. sele 5
  29. use de
  30. sele 6
  31. use sb index sb1
  32. sele 7
  33. use jh index jh1
  34. dele all for jh2='3' .or. jh2='4'
  35. pack
  36. sele 1
  37. do while .not. eof()
  38. e=bjh4
  39. c=bjh10
  40. b=1
  41. p1=1
  42. do while c+e<=a
  43. f=c+e
  44. c=month(f)
  45. if p1=1
  46. p=bjh1
  47. sele 6
  48. seek p
  49. a1=sb13
  50. a2=sb14
  51. a3=sb4
  52. qq=sb24
  53. sele 2
  54. loca for xs16=qq .and. xs17='3'
  55. b1=xs1
  56. b2=xs2
  57. b3=xs3
  58. b4=xs4
  59. b5=xs5
  60. b6=xs6
  61. b7=xs7
  62. b8=xs8
  63. b9=xs9
  64. b10=xs10
  65. b11=xs11
  66. b12=xs12
  67. b13=xs13
  68. b14=xs14
  69. b15=xs15
  70. sele 5
  71. loca for de1=a3
  72. x1=a1*b1
  73. x2=a2*b2
  74. x3=de5*b3
  75. x4=de6*b4
  76. x5=de7*b5
  77. x6=de8*b6
  78. x7=de11*b7
  79. x8=a1*b8+a2*b10+de5*b11+de6*b12+de7*b13+de8*b14+de11*b15
  80. if a1<=a2
  81. p11=a1
  82. a1=a2
  83. a2=p11
  84. endif
  85. x9=b9*a1
  86. p1=2
  87. endif
  88. sele 7
  89. j1=year(a)
  90. j2=year(f)
  91. j1=j1-1
  92. loca for jh1=p .and. jh3=c
  93. if j2>j1
  94. if eof()
  95. appe blank
  96. repl jh1 with p,jh2 with '3',jh3 with c,jh4 with x1,jh5 with ì
  97. x2,jh6 with x3,jh7 with x4,jh8 with x5,jh9 with x6,jh10 with x7
  98. repl jh11 with x8,jh12 with x9
  99. endif
  100. endif
  101. c=f
  102. enddo
  103. sele 1
  104. skip
  105. enddo
  106. close database
  107. set cons on
  108. retu
  109.  
  110.  
  111.