makesj.prg

DOS下一个完整的大型程序源代码

set talk off
set safe off
clos data

?
? '正在生成收缴数据库...'
sele 1
use Monbu
zap

sele 2
use \jf\tm0\dataman\dbfs\ch_tel
go top

sele 3
use \jf\tm0\dataman\dbfs\ch_usrid
index on User_Id to ch_usrid

sele 4
use \jf\tm0\account\statist
index on Tel_No to statist

sele 5
use \jf\tm0\dataman\dbfs\cb_arti
index on Tel_No to cx_arti

sele 6
use \jf\tm0\dataman\dbfs\cb_wx
index on Tel_No to cx_wx

sele 2
do while .not. Eof()
   sele 2
   szTel = Tel_No
   szCNo = User_Id
   ch = SubStr(szCNo, 1, 1)
   if ch = '0' .or. ch = '1' .or. ch = '2' .or. ch = '3' .or. ch = '9' then
     skip
     loop
   endif
   szName = ''
   dChg01 = 0.0
   dChg02 = 0.0
   dChg03 = 0.0
   dChg04 = 0.0
   dChg05 = 0.0
   dChg06 = 0.0
   dChg07 = 0.0
   dChg08 = 0.0
   dChg09 = 0.0
   dChg10 = 0.0
   dChg11 = Rent_01+Rent_02+Rent_03+Rent_04+Rent_05+Rent_06+Rent_07+Rent_08+Rent_09+Rent_10+;
            Rent_11+Rent_12+Rent_13+Rent_14+Rent_15+Rent_16+Rent_17+Rent_18+Rent_19+Rent_20
   dChg12 = 0.0
   dChg13 = Ns_Fee
   dChg14 = 0.0
   dChg15 = 0.0
   dChg16 = 0.0

   sele 3
   seek szCNo
   if Found()
      szName = User_Name
   endif

   sele 4
   seek szTel
   if Found()
      dChg01 = Money1  + Add1_1  + Add2_1  + Add3_1
      dChg02 = Money2  + Add1_2  + Add2_2  + Add3_2
      dChg03 = Money3  + Add1_3  + Add2_3  + Add3_3
      dChg04 = Money4  + Add1_4  + Add2_4  + Add3_4
      dChg05 = Money5  + Add1_5  + Add2_5  + Add3_5
      dChg06 = Money6  + Add1_6  + Add2_6  + Add3_6
      dChg07 = Money7  + Add1_7  + Add2_7  + Add3_7
      dChg08 = Money8  + Add1_8  + Add2_8  + Add3_8
      dChg09 = Money9  + Add1_9  + Add2_9  + Add3_9
      dChg10 = Money10 + Add1_10 + Add2_10 + Add3_10
   endif
   dChg07 = dChg07 + dChg08 + dChg09 + dChg10
   dChg08 = 0.0
   dChg09 = 0.0
   dChg10 = 0.0

   sele 5
   seek szTel
   if Found()
      dChg12 = Base_Fee1+Base_Fee2+Base_Fee3+Base_Fee4+Base_Fee5+Base_Fee6+Base_Fee7+Base_Fee8+Base_Fee9+Base_Fee10+;
               Base_Fee11+Base_Fee12+Base_Fee13+Base_Fee14+Base_Fee15+Base_Fee16+Base_Fee17+Base_Fee18+Base_Fee19+Base_Fee20
   endif

   sele 6
   seek szTel
   if Found()
      dChg14 = Wx1_Fee + Wx2_Fee + Wx3_Fee
   endif

   sele 1
   appe blank
   repl CNo with szCNo
   repl Name with szName
   repl Tel with szTel
   repl Chg01 with dChg01
   repl Chg02 with dChg02
   repl Chg03 with dChg03
   repl Chg04 with dChg04
   repl Chg05 with dChg05
   repl Chg06 with dChg06
   repl Chg07 with dChg07
   repl Chg08 with dChg08
   repl Chg09 with dChg09
   repl Chg10 with dChg10
   repl Chg11 with dChg11
   repl Chg12 with dChg12
   repl Chg13 with dChg13
   repl Chg14 with dChg14
   repl Chg15 with dChg15
   repl Chg16 with dChg16
   repl Zj with dChg01+dChg02+dChg03+dChg04+dChg05+dChg06+dChg07+dChg08+;
                dChg09+dChg10+dChg11+dChg12+dChg13+dChg14+dChg15+dChg16
   repl Ok with .F.

   sele 2
   skip
enddo

sele 1
sum zj to dZj
? '当月总计应收金额: ' + Str( dZj, 10, 2 )
close data
return