home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BJH3.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.4 KB  |  108 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 dx1.dbf
  8. use bjh
  9. copy to dx1 for bjh2<>0 field ì
  10. bjh1,bjh2,bjh6
  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 on 
  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 dx1
  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             
  35. pack
  36. sele 1
  37. do while .not. eof()
  38. e=bjh2
  39. c=bjh6
  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='1'
  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. if j2>j1
  93. appe blank
  94. repl jh1 with p,jh2 with '1',jh3 with c,jh4 with x1,jh5 with ì
  95. x2,jh6 with x3,jh7 with x4,jh8 with x5,jh9 with x6,jh10 with x7
  96. repl jh11 with x8,jh12 with x9,jh13 with f
  97. endif
  98. c=f
  99. enddo
  100. sele 1
  101. skip
  102. enddo
  103. close database
  104. set cons on
  105. retu
  106.  
  107.  
  108.