dy_taxb.prg

来自「本工资管理系统是一个运行于Windows 95/98 的基于图形用户界面的通用工」· PRG 代码 · 共 23 行

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


 MENUFLAG = .T.
 TAXB = 'tb' + YM
 RESTORE FROM taxjs ADDITIVE
  if not file('&taxb..dbf')
 = MESSAGEBOX('个人所得税表不存在。请执行“编辑个人所得税表的收入”功能！',64,'提示')
 MENUFLAG = .F.
 RETURN 
 ENDIF 
 IF TAX_XM1 = '@' .OR. TAX_XM2 = '@'
 = MESSAGEBOX('当前, 本系统不需要计算个人所得税。' + CHR(13) + CHR(13) +  ;
'若需要计算，请执行“系统设置”菜单的“选择应发工资、缴个人所得税项目”命令, 然后执行本命令。',64,'提示')
 MENUFLAG = .F.
 RETURN 
 ENDIF 
 DO FORM f_dytaxb
 RETURN 
*