makesj.prg

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

set talk off
set safe off
clos data

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

sele 2
iYear  = Year(Date())
if iYear > 2000
   iYear = iYear - 2000
else
   iYear = iYear - 1900
endif      
iMonth = Month(Date())
sYhf = 'Yhf' + SubStr(Str(iYear / 100, 4, 2), 3, 2) + SubStr(Str(iMonth / 100, 4, 2), 3, 2)
use &sYhf

do while .not. Eof()
   sele 2
   if Lb <> 'A' .and. Lb <> 'B' .and. Lb <> 'C' .and. Lb <> 'D'
      skip
      loop
   endif
      
   sTel   = DhHm
   sCNo   = Hth
   sName  = Name
   dChg01 = ShYzf
   dChg02 = Shf+XxFy
   dChg03 = NhJce
   dChg04 = Chf
   dChg05 = Dbf
   dChg06 = Syz
   dChg07 = ShZwf
   dChg08 = YdDhf
   dChg09 = WxXff
   dChg10 = SjTxf
   dChg11 = Zxf
   dChg12 = CzDl
   dChg13 = Xlw
   dChg14 = Dwf
   dChg15 = NhYzf + NhHyf + Djf
   dChg16 = 0.0
   dZj    = Zj

   sele 1
   appe blank
   repl CNo  with sCNo
   repl Name with sName
   repl Tel  with sTel
   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 dZj
   repl Ok with .F.

   sele 2
   skip
enddo

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