tzbt.prg

一个功能较单一的企业工资管理系统。用FoxPro开发

sele 9
use tzbtsz
select jsgs into array lgs1 from tzbtsz where gwlb='1'
select xishu into array lxs1 from tzbtsz where gwlb='1'
select jsgs into array lgs2 from tzbtsz where gwlb='2'
select xishu into array lxs2 from tzbtsz where gwlb='2'
select jsgs into array lgs3 from tzbtsz where gwlb='3'
select xishu into array lxs3 from tzbtsz where gwlb='3'
use gzhist
l1='update gzhist set tzbt=('+(lgs1)+')*'+str(lxs1,3,2)+' where ygxz="1" and gwlb="1"'
l2='update gzhist set tzbt=('+(lgs2)+')*'+str(lxs2,3,2)+' where ygxz="1" and gwlb="2"'
l3='update gzhist set tzbt=('+(lgs3)+')*'+str(lxs3,3,2)+' where ygxz="1" and gwlb="3"'
&l1
&l2
&l3
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