gts.prg

来自「一个功能较单一的企业工资管理系统。用FoxPro开发」· PRG 代码 · 共 46 行

sele 9
use gzhist
go top
do while .not. eof()
	if ygxz='1' and gwlb='1'
		lgts=gwgz+zjjt+ngjt+blgz+qtbt+wjbt+djjl+jbbx-bksb-zfgj-ghf-ybf-100
		do case
		case lgts<0
			repl gts with 0
		case lgts>0 and lgts<=500
			repl gts with lgts*0.05
		case lgts>500 and lgts<=2000
			repl gts with (lgts*0.10-25)
		case lgts>2000
			repl gts with (lgts*0.15-125)
	endcase
	endif
	skip
enddo
use xmlb
select count(*) into array lnf from xmlb where xmbz='1'
select xmjp into array lajpf from xmlb where xmbz='1'
select count(*) into array lnk from xmlb where xmbz='2'
select xmjp into array lajpk from xmlb where xmbz='2'
use gzhist
go 1
do while .not. eof()
  syfs=0
  for i=1 to lnf
	l1='syfs=syfs+'+allt((lajpf(i)))
    &l1
  endfor
  repl yfs with syfs
  syks=0
  for i=1 to lnk
	l2='syks=syks+'+allt((lajpk(i)))
	&l2
  endfor
  repl yks with syks
  repl sfs with yfs-yks
  skip
enddo
=messagebox("个调税计算完毕!",0+64,"信息提示")
use
return