dy_lbhzb.prg

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

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


 MENUFLAG = .T.
 CLOSE TABLE
  use &lbhzb
 DIMENSION FF( 10 , 16 )
  n=Afields(ff,'&lbhzb')   
 USE 
 FLAG = .F.
 FOR I = 1 TO N
 IF UPPER(ALLTRIM(FF(I,1))) = 'ZZ'
    FLAG = .T.
    EXIT 
 ENDIF 
 ENDFOR 
 USE 
 SFGZ = SFGZ1
 IF  .NOT. FLAG
  alter table &lbhzb  add column zc N(10,2) default 0.00
  alter table &lbhzb 	add column zz N(10,2) default 0.00
  alter table &lbhzb 	add column xj N(10,2) default 0.00
 ENDIF 
  =dbsetprop('&lbhzb..zc','field','caption','转存银行')
  =dbsetprop('&lbhzb..zz','field','caption','转账')
  =dbsetprop('&lbhzb..xj','field','caption','邮寄工资和现金')
 CLOSE TABLE ALL
 WAIT WINDOW AT 10 , 30 NOWAIT '正在生成分类汇总表，请稍候...'
 USE (LBHZB)
 ZAP 
 USE IN 0 (GZB)
 SELECT (GZB)
 INDEX ON LBH TAG LBH
 SET ORDER TO lbh
 TOTAL ON LBH TO lbgz
 SELECT (LBHZB)
 APPEND FROM lbgz
 USE IN 0 (LBB)
 SELECT (LBB)
 INDEX ON LBH TAG LBH
 SELECT (LBHZB)
  set rela to lbh into &lbb
  repl all lbmc with &lbb..lbmc
 GO TOP
 DO WHILE  .NOT. EOF()
 SELECT (GZB)
  count to rs for lbh=&lbhzb..lbh
  sum &sfgz to zc1 for lbh=&lbhzb..lbh and alltrim(fs)='转存银行'
  sum &sfgz to zz1 for lbh=&lbhzb..lbh and alltrim(fs)='转账'
  sum &sfgz to xj1 for lbh=&lbhzb..lbh and (alltrim(fs)='邮寄工资' or alltrim(fs)='现金')
 SELECT (LBHZB)
 REPLACE LBRS WITH RS , ZC WITH ZC1 , ZZ WITH ZZ1 , XJ WITH XJ1
 SKIP 
 ENDDO 
 SET RELATION TO
 CLOSE TABLE
 DELETE File lbgz.dbf
 USE (LBHZB)
 COPY TO gztmp DATABASE gzk WITH CDX SDF
 USE gztmp ORDER lbh
 DO FORM f_dylbhz
 RETURN 
*