edit_tax.prg

本工资管理系统是一个运行于Windows 95/98 的基于图形用户界面的通用工资管理系统。它具有图形界面友好、操作简单、使用灵活之特点。工资项目、报表格式由用户任意设置

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: EDIT_TAX.PRG 
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 MENUFLAG = .T.
 RESTORE FROM taxjs ADDITIVE
 IF TAX_XM1 = '@' .OR. TAX_XM2 = '@'
 WAIT WINDOW AT 12 , 10 NOWAIT  ;
      '本系统未设置应发工资和扣所得税项目。	请调用“系统设置”菜单的“选择应发工资和扣所得税项目”命令'
 MENUFLAG = .F.
 RETURN 
 ENDIF 
 TAXB = 'tb' + YM
  if file('&taxb..dbf') 
  if not indbc('&taxb','Table')    
  add table &taxb
 ENDIF 
 ELSE 
 DO FORM f_xzgzym TO GZYM
 IF GZYM = '@'
 MENUFLAG = .F.
 RETURN 
 ENDIF 
 WAIT WINDOW AT 12 , 35 NOWAIT '正在导入工资收入...'
 GZB1 = 'gz' + GZYM
 USE taxbb
  copy stru to &taxb
 USE 
  add table &taxb
  =dbsetprop('&taxb..yhzh','field','Caption','银行账号')
  =dbsetprop('&taxb..bmh','field','Caption','部门编号')
  =dbsetprop('&taxb..bmmc','field','caption','部门名称')
  =dbsetprop('&taxb..zgbh','field','Caption','职工编号')
  =dbsetprop('&taxb..zgxm','field','Caption','姓名')
  =dbsetprop('&taxb..tb1','field','Caption','工资收入')
  =dbsetprop('&taxb..tb2','field','Caption','岗位津贴')
  =dbsetprop('&taxb..tb3','field','Caption','其他收入')
  =dbsetprop('&taxb..tb4','field','Caption','收入合计')
  =dbsetprop('&taxb..tb5','field','Caption','减基数')
  =dbsetprop('&taxb..tb6','field','Caption','应纳税所得额')
  =dbsetprop('&taxb..tb7','field','Caption','税率(%)')
  =dbsetprop('&taxb..tb8','field','Caption','速算扣除数')
  =dbsetprop('&taxb..tb9','field','Caption','应缴所得税')
  use &taxb in 1   
 SELECT 1
  use &gzb1 order tag bmzgh in 2  
 SELECT 2
  rpl_exp='yhzh with &gzb1..yhzh,bmh with &gzb1..bmh,zgbh with &gzb1..zgbh,zgxm with &gzb1..zgxm,tb1 with &gzb1..&tax_xm1'
 SCAN 
 SELECT 1
 APPEND BLANK
  repl &rpl_exp
 SELECT 2
 ENDSCAN 
  use &bmb order tag bmh in 3   
 SELECT 3
 GO TOP
 SCAN 
 BMH1 = BMH
 SELECT 1
  repl all bmmc with &bmb..bmmc for bmh=bmh1
 SELECT 3
 ENDSCAN 
 CLOSE TABLE
 ENDIF 
 DO FORM f_bjtax
 RETURN 
*